capybara/templates/article.html.rkt

35 lines
1.0 KiB
Racket
Raw Normal View History

2021-06-07 02:38:03 +00:00
#lang s-exp "../xtemplate.rkt"
`(html
([lang "en"])
(head
()
,*banner*
(meta ([charset "utf-8"]))
(title () ,(metadata-ref+ md 'title "<untitled article>"))
(meta ([name "viewport"] [content "width=device-width, initial-scale=1"]))
,@(match (metadata-ref+ md 'summary)
[#f '()]
[summary
`((meta ([name "description"] [content ,summary])))])
,@(match (metadata-ref md 'authors)
[(or #f '()) '()]
[authors
`((meta ([name "author"] [content ,(string-join authors ", ")])))])
,@(match (metadata-ref md 'date)
[#f '()]
[(list y m d)
`((meta ([name "DC.Date.created"] [content ,(format "~a-~a~a" y m d)])))])
(meta ([name "generator"] [content "meow meow meow meow"]))
;<link rel="shortcut icon" type="image/png" href="haskal.png"/>
(style ([type "text/css"]) ,styles))
(body
()
(nav
()
,output-toc)
(main
()
,@output-cooked)
,*mathjax-placeholder*))