blob: 40a041baa41c3bbc93b1fc6b9d389b94eeeea163 (
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
|
;; -*- mode: scheme; -*-
((menu-items
. (("Browse Source" .
"http://code.ryuslash.org/cgit.cgi/dispass.el/")
("Read News" .
"http://blog.ryuslash.org/tags/dispass.el")
("View README" .
"http://code.ryuslash.org/cgit.cgi/dispass.el/about/")))
(print-item
. (lambda (mnu)
`(li (a (@ (href ,(cdr mnu))) ,(car mnu))))))
`((doctype-html)
(html (@ (lang "en"))
(head
(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 "navbar-inner"))
(div (@ (class "container"))
(a (@ (href "") (class "brand"))
,($ 'title))
(ul (@ (class "nav pull-right"))
,@(map (eval ($ 'print-item))
($ 'menu-items))))))
(div (@ (class "container"))
(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") "."))))))
|
