diff options
author | Colin Okay <okay@toyful.space> | 2022-03-25 15:51:26 -0500 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-03-25 15:51:26 -0500 |
commit | fabc8a7b9027ff9c312ed45591e75dfd67c21f05 (patch) | |
tree | 0d7aef241dd191d17746f8ce0fa336dc4dcca063 /lib/oneliner.lisp | |
parent | e95a60bce9d86ca3b2a7cdf41a0c4df3fc5cb3fd (diff) |
[add] printing creation date in oneliner printouts
Diffstat (limited to 'lib/oneliner.lisp')
-rw-r--r-- | lib/oneliner.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/oneliner.lisp b/lib/oneliner.lisp index 668a82c..8386fa9 100644 --- a/lib/oneliner.lisp +++ b/lib/oneliner.lisp @@ -75,7 +75,7 @@ (let* ((title-line-format-str (concatenate 'string "~" (prin1-to-string *term-width*) "<[~a]~;~a~;~a~>~%")) (tags-line-format-string - (concatenate 'string "~" (prin1-to-string *term-width*) "<~a~;by ~a~>~%"))) + (concatenate 'string "~" (prin1-to-string *term-width*) "<~a~;by ~a ~a~>~%"))) (loop repeat *term-width* do (princ #\_)) (terpri) (format t title-line-format-str @@ -87,7 +87,8 @@ (equalp "manual" (oneliner-runstyle ol)))) (format t tags-line-format-string (format nil "tags: ~{~a~^ ~}" (oneliner-tags ol)) - (oneliner-createdby ol)) + (oneliner-createdby ol) + (datestring-of-universal-time (oneliner-createdat ol))) (loop for x from 0 to (length (oneliner-brief ol)) by *term-width* do (format t "~a~%" |