From 0c8d5193e4b399494020a84e1bb5582f3f8f7d7c Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 24 Jan 2013 02:01:30 +0100
Subject: Add first version of site

---
 layouts/default.sxml | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 layouts/default.sxml

(limited to 'layouts/default.sxml')

diff --git a/layouts/default.sxml b/layouts/default.sxml
new file mode 100644
index 0000000..011db4c
--- /dev/null
+++ b/layouts/default.sxml
@@ -0,0 +1,38 @@
+;; -*- mode: scheme; -*-
+((menu-items
+  . (("Browse Source" .
+      "http://code.ryuslash.org/cgit.cgi/emacs/dispass.el/")
+     ("View README" .
+      "http://code.ryuslash.org/cgit.cgi/emacs/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") "."))))))
-- 
cgit v1.2.3-54-g00ecf