((title . "Archive"))
`(h1 ,($ 'title))
`(dl (@ (id "archive"))
     ,(map (lambda (issue)
	     `((dt (a (@ (href ,(page-path issue))) ,($ 'title issue))
                   " "
                   (span (@ (class "date")) ,(format-seconds ($ 'date issue))))
	       (dd (@ (class "authors"))
                   "by " ,(authors->sxml ($ 'authors issue)))))
	   (all-issues)))