ambrevar/shell: Add `date' command.

2021-01-12 12:36:09 +01:00 · 2021-01-12 12:36:09 +01:00 · 87c6e235fa
parent c2ee48be16
commit 87c6e235fa
1 changed files with 4 additions and 0 deletions
--- a/.local/share/common-lisp/source/ambrevar/shell.lisp
+++ b/.local/share/common-lisp/source/ambrevar/shell.lisp
@ -9,6 +9,10 @@
  (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
  (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))

+(export-always 'date)
+(defun date ()
+  (local-time:format-rfc1123-timestring nil (local-time:now)))
+
 (defun assert-program (program &rest more-programs) ; TODO: Is this useful for a REPL?
  (sera:and-let* ((missing-programs
                   (delete-if #'sera:resolve-executable (cons program more-programs))))