blob: a0d5d01125f9c25c8e0dac6ae8478f381fc180c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (builder includes)
#:use-module (builder components)
#:export (header footer navigation))
(define (header name desc image)
`(header (@ (class "header h-card"))
(div (img (@ (src ,image) (class "header-image u-photo"))))
(div (@ (class "header-text"))
(h2 (@ (class "header-title"))
(a (@ (rel "me") (class "u-url") (href "/"))
"Hi, "
(span (@ (class "p-name")) ,name)
" here 👋"))
(div (@ (class "header-desc p-note")) ,desc))))
(define (navigation)
`(nav ,(linkline
(slash "/elsewhere")
(slash "/uses")
(slash "/donates"))))
|
