38 lines
1.5 KiB
Scheme
38 lines
1.5 KiB
Scheme
;; -*- mode: scheme; -*-
|
|
((menu-items
|
|
. (("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 ,($ '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 "") (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") "."))))))
|