blob: 64e9852f2d2a4ebc935dc71755648b317537202c (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define-module (web templates genenetwork)
#:use-module (web view markdown)
#:export (default-gn-template))
(define* (default-gn-template path #:optional (title "Default Page Template"))
"Render `PATH' with a default template and styling that fits in with
GeneNetwork's look and feel."
`(html
(head
(meta (@ (charset "UTF-8")))
(meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0")))
(title ,title)
(link (@ (rel "stylesheet") (type "text/css")
(href "/css/gn-template-style.css"))))
(body
(header (@ (id "header")) (span (@ (id "header-text")) "GeneNetwork"))
(main (@ (id "main")) ,(markdown-github->sxml path)))))
|
