From fabc8a7b9027ff9c312ed45591e75dfd67c21f05 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 25 Mar 2022 15:51:26 -0500 Subject: [add] printing creation date in oneliner printouts --- lib/oneliner.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/oneliner.lisp') 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~%" -- cgit v1.2.3