aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2015-03-23 00:50:14 +0000
committerSean Whitton <spwhitton@spwhitton.name>2015-03-23 00:50:14 +0000
commit3d024944e8e572a48377d37f3a0a9bfa52020cf2 (patch)
tree5cc4af7086346256ba8d8b1fb5bc9b5a9626d1a3
parentcbc2b4f565439da3beffeea7e91e69ee03a3915f (diff)
downloadsariulclocks-3d024944e8e572a48377d37f3a0a9bfa52020cf2.tar.gz
bind l to start the lesson
-rw-r--r--assets/js/main.js2
-rw-r--r--src/sariulccgi.hs2
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" ""]