(li (@ (id "blog-title-header"))
(a (@ (href "index.html"))
(h1 ,(assoc-ref metadata 'author)))))
(li (@ (id "blog-title-header"))
(a (@ (href "index.html"))
(h1 ,(assoc-ref metadata 'author)))))
(ul (@ (class "navigation-items right"))
,@(map (lambda (page)
`(li (a (@ (href ,(cdr page))) ,(car page))))
(ul (@ (class "navigation-items right"))
,@(map (lambda (page)
`(li (a (@ (href ,(cdr page))) ,(car page))))