diff options
| -rw-r--r-- | assets/js/main.js | 2 | ||||
| -rw-r--r-- | src/sariulccgi.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/assets/js/main.js b/assets/js/main.js index f1e9dc4..f701f85 100644 --- a/assets/js/main.js +++ b/assets/js/main.js @@ -340,6 +340,8 @@ if ($("#time-wasting-clock").length) // $(document).bind('keydown', 'space', timeWastingClock.toggle); $(document).bind('keydown', 'l', luckyNumber); } +else + $(document).bind('keydown', 'l', startLesson); $(document).bind('keydown', 's', timeWastingClock.reset); $(document).bind('keydown', 'r', activityClock.reset); diff --git a/src/sariulccgi.hs b/src/sariulccgi.hs index b2f5b78..e39a8ec 100644 --- a/src/sariulccgi.hs +++ b/src/sariulccgi.hs @@ -53,7 +53,7 @@ navBar = do +++ (li << anchor #= "why-so-noisy" ! [strAttr "href" "#"] << "Why are you so noisy?"))) lessonButtons :: Maybe Class -> Html -lessonButtons Nothing = bsButton "start-lesson" "btn btn-info" "Start lesson" +lessonButtons Nothing = bsButton "start-lesson" "btn btn-info" ("Start " +++ uC 'l' +++ "esson") -- +++ bsButton "end-of-week" "btn btn-default" "End of week" lessonButtons (Just _) = primHtml "<div class=\"form-group\"> <input id=\"class_points\" name=\"class_points\" type=\"text\" placeholder=\"Points scored\" class=\"form-control\"> </div> <div class=\"form-group\"> <input type=\"password\" id=\"teachers_password\" name=\"teachers_password\" placeholder=\"Teacher's password\" class=\"form-control\"> </div> " +++ input #= "class_time_wasted" ! [strAttr "name" "class_time_wasted", strAttr "type" "hidden", strAttr "value" ""] |