From 2ef305a82ba8ae2585f638d8b8fa62e83bdd48bd Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 1 Jun 2015 09:35:12 +0200
Subject: Add a simple navbar

---
 Main.hs | 7 +++++++
 1 file changed, 7 insertions(+)

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"
-- 
cgit v1.2.3