diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-12 20:30:24 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-12 20:30:24 +0100 |
| commit | 1253162e55d3f93d476958907491ef0014777bda (patch) | |
| tree | d33126574c2cec3bf93365a3ae0574d02407edb0 /mulkcms.lisp | |
| parent | 6501daf7d0906f97125613c82af911aeed734971 (diff) | |
Improve journal archive table layout and labelling.
Diffstat (limited to 'mulkcms.lisp')
| -rw-r--r-- | mulkcms.lisp | 12 |
1 files changed, 10 insertions, 2 deletions
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 |