capybara/templates/article.html.rkt

#lang s-exp "../xtemplate.rkt"

`(html
  ([lang "en"])
  (head
    ()
    ,*banner*
    (meta ([charset "utf-8"]))
    (title () ,(metadata-ref+ metadata 'title "<untitled article>"))
    (meta ([name "viewport"] [content "width=device-width, initial-scale=1"]))
    ,@(match (metadata-ref+ metadata 'summary)
             [#f '()]
             [summary
               `((meta ([name "description"] [content ,summary])))])
    ,@(match (metadata-ref metadata 'authors)
             [(or #f '()) '()]
             [authors
               `((meta ([name "author"] [content ,(string-join authors ", ")])))])
    ,@(match (metadata-ref metadata 'date)
             [#f '()]
             [(list yn mn dn)
              `((meta ([name "DC.Date.created"]
                       [content ,(format "~a-~a-~a"
                                         (~r yn #:min-width 4 #:pad-string "0")
                                         (~r mn #:min-width 2 #:pad-string "0")
                                         (~r dn #:min-width 2 #:pad-string "0"))])))])
    (meta ([name "generator"] [content "meow meow meow meow"]))
    ;<link rel="shortcut icon" type="image/png" href="haskal.png"/>
    (style ([type "text/css"]) ,page-styles))
  (body
    ()
    (nav
      ()
      ,content-toc)
    (main
      ()
      ,@content)
    ,*mathjax-placeholder*))