summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2015-06-01 09:35:12 +0200
committerLars-Dominik Braun <lars@6xq.net>2015-06-01 09:35:12 +0200
commit2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd (patch)
tree9447580c2eae328e5ecc7ca3251ed63cfba29e48
parent35988308ee9bdd0a5b78e1e41f1844bce1643fa3 (diff)
downloadcomatose-2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd.tar.gz
comatose-2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd.tar.bz2
comatose-2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd.zip
Add a simple navbar
-rw-r--r--Main.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 5ec3915..caad9d0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -294,6 +294,13 @@ page db attrib = doctypehtml_ $ do
extjs "https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"
extcss "style.css"
body_ $ do
+ nav_ [class_ "navbar navbar-default"] $ do
+ div_ [class_ "container-fluid"] $ do
+ div_ [class_ "navbar-header"] $ do
+ span_ [class_ "navbar-brand"] "comatose"
+ ul_ [class_ "nav navbar-nav"] $ do
+ li_ $ a_ [href_ "#features"] "Features"
+ li_ $ a_ [href_ "#protocols"] "Protocols"
div_ [class_ "container"] $ do
div_ [class_ "page-header"] $ do
h1_ "comatose"