From cd3b37adebca99138fad1acca37908183036ace9 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 00:15:05 +0100
Subject: Initial commit, can create and name 5 minute timers, can toggle
 running state

---
 src/Model/Timer.elm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 src/Model/Timer.elm

(limited to 'src/Model/Timer.elm')

diff --git a/src/Model/Timer.elm b/src/Model/Timer.elm
new file mode 100644
index 0000000..ddbe97b
--- /dev/null
+++ b/src/Model/Timer.elm
@@ -0,0 +1,40 @@
+module Model.Timer
+  ( Timer
+  , initialTimer
+  , substractTimerTime
+  ) where
+
+import List
+import Time (Time)
+
+type alias Timer =
+  { creationTime : Time
+  , name : String
+  , time : Time
+  , isRunning : Bool
+  }
+
+initialTimer : Time -> String -> Timer
+initialTimer creationTime name =
+  { creationTime = creationTime
+  , name = name
+  , time = 5 * 60 * 1000
+  , isRunning = True
+  }
+
+substractTimerTime : Time -> Timer -> Timer
+substractTimerTime time timer =
+  if timer.isRunning
+    then
+      if timer.time - time <= 0.0
+        then
+          { timer
+          | time <- 0.0
+          , isRunning <- False
+          }
+        else
+          { timer
+          | time <- timer.time - time
+          }
+    else
+      timer
-- 
cgit v1.2.3