From 1253162e55d3f93d476958907491ef0014777bda Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 12 Mar 2011 20:30:24 +0100 Subject: Improve journal archive table layout and labelling. --- mulkcms.lisp | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'mulkcms.lisp') diff --git a/mulkcms.lisp b/mulkcms.lisp index f44e4c4..f2070a4 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -60,7 +60,10 @@ (defun format-short-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-human-date (date) ;; FIXME @@ -299,7 +302,12 @@ :site-subtitle "" :link "" :full-archive-link "" - :full-archive-label "Full archive (slow!)")) + :full-archive-label "Full archive (slow!)" + :archive-title "Older posts" + :archive-table-caption "Posts by date" + :archive-title-label "Title" + :archive-date-label "Date" + :archive-comments-label "Comments")) (head (expand-template page-template (list* :head t :articles displayed-revisions :minor-articles revisions -- cgit v1.2.3