From e1f8664779b0075ad7da76e4290c1fe8f9b76b94 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 22:19:06 +0100
Subject: Adding a play / pause button

---
 src/Update/UpdateTimer.elm |  6 +++---
 src/View/Timer.elm         | 13 ++++++++++---
 2 files changed, 13 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Update/UpdateTimer.elm b/src/Update/UpdateTimer.elm
index b3be088..3eba549 100644
--- a/src/Update/UpdateTimer.elm
+++ b/src/Update/UpdateTimer.elm
@@ -7,15 +7,15 @@ import Model.Timer (..)
 import Model.Id (..)
 
 type TimerAction =
-  ToggleRunning
-  | Restart
+  Restart
+  | ToggleRunning
   | Stop
 
 updateTimer : TimerAction -> Timer -> Timer
 updateTimer action timer =
   case action of
     ToggleRunning ->
-      { timer | isRunning <- not timer.isRunning }
+      { timer | isRunning <- timer.currentTime > 0.0 && not timer.isRunning }
     Restart ->
       { timer
       | isRunning <- True
diff --git a/src/View/Timer.elm b/src/View/Timer.elm
index 5d34c7e..e38b6cb 100644
--- a/src/View/Timer.elm
+++ b/src/View/Timer.elm
@@ -20,9 +20,7 @@ timerView (id, timer) =
   div
     [ class <| "timer" ++ (if timer.isRunning then " isRunning" else "") ]
     [ button
-        [ class "name block"
-        , onClick (Signal.send updates (UpdateTimer id ToggleRunning))
-        ]
+        [ class "name block" ]
         [ text timer.name ]
     , div
         [ class <| "time block" ]
@@ -32,6 +30,15 @@ timerView (id, timer) =
         , onClick (Signal.send updates (UpdateTimer id Restart))
         ]
         [ i [ class "fa fa-fw fa-backward" ] [] ]
+    , button
+        [ class <| "playPause block"
+        , onClick (Signal.send updates (UpdateTimer id ToggleRunning))
+        ]
+        [ let icon = if timer.isRunning then "fa-pause" else "fa-play"
+          in  i
+                [ class <| "fa fa-fw " ++ icon ]
+                []
+        ]
     , button
         [ class <| "stop block"
         , onClick (Signal.send updates (UpdateTimer id Stop))
-- 
cgit v1.2.3