diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:19:01 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:19:01 +0000 |
| commit | d29bc3e2f6bfd229c58a25741ee79ebe5bd87e55 (patch) | |
| tree | 691a0f9b194d2de04141bbddb7950a71c042e6f7 | |
| parent | 60b0b9278533f746369be2d5ebee85e80b55052e (diff) | |
| download | sariulclocks-d29bc3e2f6bfd229c58a25741ee79ebe5bd87e55.tar.gz | |
navbar header
| -rw-r--r-- | src/sariulclocks.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index f2d2a5e..93fb7e2 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -17,7 +17,10 @@ import Utils.Classes import Text.XHtml.Bootstrap navBar :: Page Html -navBar = return $ paragraph << "navbar here" +navBar = return $ + thediv # "navbar navbar-inverse navbar-fixed-top" ! [strAttr "role" "navigation"] + << thediv # "container" + << primHtml "<div class=\"navbar-header\"> <button type=\"button\" class=\"navbar-toggle\" data-toggle=\"collapse\" data-target=\".navbar-collapse\"> <span class=\"sr-only\">Toggle navigation</span> <span class=\"icon-bar\"></span> <span class=\"icon-bar\"></span> <span class=\"icon-bar\"></span> </button> <a class=\"navbar-brand\" href=\"#\">Mr Whitton's timers</a> </div>" makeClockToggle :: Clock -> Html makeClockToggle _ = bsButton "leftClockToggle" "btn btn-info" "Count up/down toggle" |