From c28b337c5033124c847662166ca4a3bf67943a4b Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 12 Mar 2011 20:50:47 +0100 Subject: Format dates. --- mulkcms.lisp | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/mulkcms.lisp b/mulkcms.lisp index f2070a4..bcc2fe8 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -59,19 +59,26 @@ :directory *templates*)))) (defun format-short-human-date (date) - ;; FIXME (multiple-value-bind (year month day hour minute second millisecond) (decode-timestamp date) (declare (ignore second millisecond)) - (format nil "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D" year month day hour minute))) + (format nil "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D" + year month day hour minute))) (defun format-human-date (date) ;; FIXME - "(some date)") + (multiple-value-bind (year month day hour minute second millisecond) + (decode-timestamp date) + (declare (ignore second millisecond)) + (format nil "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D" + year month day hour minute))) (defun format-iso-date (date) - ;; FIXME - "(some date)") + (multiple-value-bind (year month day hour minute second millisecond) + (decode-timestamp date) + (declare (ignore millisecond)) + (format nil "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0DZ" + year month day hour minute second))) (defun template (template-name) (parse-template-string (read-file-into-string (find-template template-name)))) -- cgit v1.2.3