blob: 73981a2fc0f84cf5ea2bafe7c3df4ca874f79d61 (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
;; -*- mode: scheme; -*-
((site-title . "Markam")
(menu-items-left
. (("Downloads" . "downloads.html")))
(menu-items-right
. (("Browse Source" .
"http://code.ryuslash.org/cgit.cgi/markam/")
("View README" .
"http://code.ryuslash.org/cgit.cgi/markam/about/")))
(print-item
. (lambda (mnu)
`(li (a (@ (href ,(cdr mnu))) ,(car mnu))))))
`((doctype-html)
(html (@ (lang "en"))
(head
(title ,($ 'site-title) ": " ,($ 'title))
(link (@ (rel "stylesheet") (type "text/css")
(href "css/bootstrap.min.css")))
(link (@ (rel "stylesheet") (type "text/css")
(href "css/extra.css"))))
(body
(div (@ (class "navbar navbar-static-top"))
(div (@ (class "container"))
(div (@ (class "container"))
(a (@ (href "index.html") (class "brand"))
,($ 'site-title))
(ul (@ (class "nav"))
,@(map (eval ($ 'print-item))
($ 'menu-items-left)))
(ul (@ (class "nav pull-right"))
,@(map (eval ($ 'print-item))
($ 'menu-items-right))))))
(div (@ (class "container"))
(div (@ (class "page-header"))
(h1 ,($ 'site-title)
(small ", " ,($ 'title))))
(inject ,contents)
(div (@ (class "centered"))
(small
"This site has been generated by "
(a (@ (href "http://wiki.call-cc.org/eggref/4/hyde"))
"Hyde") " and is powered by "
(a (@ (href "http://twitter.github.com/bootstrap/"))
"Bootstrap") " and "
(a (@ (href "http://glyphicons.com/"))
"Glyphicons") "."))))))
|
