From 3d024944e8e572a48377d37f3a0a9bfa52020cf2 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 23 Mar 2015 00:50:14 +0000
Subject: bind l to start the lesson

---
 assets/js/main.js | 2 ++
 src/sariulccgi.hs | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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