2013-02-12 22:23:48 +01:00
|
|
|
;; -*- mode: scheme; -*-
|
2013-02-16 11:15:51 +01:00
|
|
|
((site-title . "Markam")
|
|
|
|
|
(menu-items-left
|
|
|
|
|
. (("Downloads" . "downloads.html")))
|
|
|
|
|
(menu-items-right
|
2013-02-12 22:23:48 +01:00
|
|
|
. (("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
|
2013-02-16 11:15:51 +01:00
|
|
|
(title ,($ 'site-title) ": " ,($ 'title))
|
2013-02-12 22:23:48 +01:00
|
|
|
(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"))
|
2013-02-16 11:15:51 +01:00
|
|
|
(a (@ (href "index.html") (class "brand"))
|
|
|
|
|
,($ 'site-title))
|
|
|
|
|
(ul (@ (class "nav"))
|
|
|
|
|
,@(map (eval ($ 'print-item))
|
|
|
|
|
($ 'menu-items-left)))
|
2013-02-12 22:23:48 +01:00
|
|
|
(ul (@ (class "nav pull-right"))
|
|
|
|
|
,@(map (eval ($ 'print-item))
|
2013-02-16 11:15:51 +01:00
|
|
|
($ 'menu-items-right))))))
|
2013-02-12 22:23:48 +01:00
|
|
|
(div (@ (class "container"))
|
2013-02-16 11:15:51 +01:00
|
|
|
(div (@ (class "page-header"))
|
|
|
|
|
(h1 ,($ 'site-title)
|
|
|
|
|
(small ", " ,($ 'title))))
|
2013-02-12 22:23:48 +01:00
|
|
|
(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") "."))))))
|
