blob: 85d48a6fcbfa667d4c43245b394e8b0d414bac7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(define-module (theme)
#:use-module (haunt html)
#:use-module (haunt site)
#:use-module (haunt builder blog)
#:export (hwebs-theme
flat-page-template))
(define hwebs-theme
(theme #:name "hwebs"
#:layout
(lambda (site title body)
`((doctype "html")
(html
(head
(meta (@ (charset "utf-8")))
(meta (@ (name "viewport")
(content "width=device-width, initial-scale=1.0")))
(link (@ (rel "stylesheet")
(href "style.css")))
(title ,(string-append title " — " (site-title site))))
(body
(header (span ,(assq-ref (site-default-metadata site) 'author)))
(main
(article (h1 ,title)
,body))))))))
(define (flat-page-template site metadata body)
((theme-layout hwebs-theme) site (assq-ref metadata 'title) body))
|
