((title . "Index")
 (no-heading . #t))
`(div
  (@ (class "posts"))
  ,@(map
     (lambda (post)
       `(article
         (@ (class "post"))
         (h1 (a (@ (href ,(post-url post))) ,($ 'title post)))
         (p (@ (class "post-meta"))
            (span (@ (class "date")) ,(pretty-date ($ 'date post))))
         (inject ,(read-page post))
         (hr)))
     (latest-posts)))