summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp17
1 files 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))))