Initial commit, can create and name 5 minute timers, can toggle running state

1 files changed, 40 insertions, 0 deletions

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