Changeset 20543 in project for gazette/layouts

Timestamp:

09/27/10 17:12:27 (10 years ago)

Author:

Moritz Heidkamp

Message:

gazette: add dates and authors to archive and reverse its ordering; fix a bug in the default-page-vars regexp for issue layouts

File:

• gazette/layouts/article.sxml (modified) (1 diff)

gazette/layouts/article.sxml

@@ -1 +1 @@
 ()
 `((h1 ,($ 'title))
-
   (div (@ (class "article-meta"))
-       (p (@ (class "authors")) 
-          "by "
-          ,(car ($ 'authors))
-          ,@(if (null? (cdr ($ 'authors))) 
-                '()
-                (map (lambda (author)
-                       `(,(car author) (span (@ (class "author")) ,(cdr author))))
-                     (append (map (cut cons ", " <>) (butlast (cdr ($ 'authors))))
-                             `((" and " . ,(last ($ 'authors))))))))
-       (p  (@ (class "date")) ,(format-seconds ($ 'date))))
+       (p (@ (class "authors")) "by " ,(authors->sxml ($ 'authors)))
+       (p (@ (class "date")) ,(format-seconds ($ 'date))))
 
   (inject ,contents)