diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:50:15 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:50:15 +0000 |
commit | 0c73f0a8cd5d4c34b93c15ada9345d87ef0bc235 (patch) | |
tree | e5d5c0ffc8d5e9cb82908d80a3f65687afd1e451 | |
parent | 9f77aad31d019915f81a34733703b6bd740217ea (diff) | |
download | sariulclocks-0c73f0a8cd5d4c34b93c15ada9345d87ef0bc235.tar.gz |
nav bar buttons
-rw-r--r-- | src/sariulclocks.hs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 6a3b656..b370541 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -20,7 +20,21 @@ navBar :: Page Html 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>" + << (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>" + +++ (thediv # "navbar-collapse collapse" << form # "navbar-form navbar-right" ! [strAttr "role" "form"] + << ( bsButton "start-lesson" "btn btn-info" "Start lesson" + +++ bsButton "date-toggle" "btn btn-default" ("Toggle " +++ (underline << "d") +++ "ate style") + +++ soundsButton))) + where + soundsButton = thediv # "btn-group" + << (anchor # "btn btn-default dropdown-toggle" + ! [ strAttr "data-toggle" "dropdown" + , strAttr "aria-expanded" "false" + , strAttr "role" "button" + , strAttr "href" "#"] + << ("Play sound >") + +++ ulist # "dropdown-menu" ! [strAttr "role" "menu"] + << li << anchor ! [strAttr "href" "#"] << "Klaxon") makeClockToggle :: Clock -> Html makeClockToggle _ = bsButton "leftClockToggle" "btn btn-info" "Count up/down toggle" |