From 8060fc370a8e16c7f39b1f63c6dc9127073eb5fe Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 21:59:06 +0100
Subject: Updating design

---
 src/Model/IdGenerator.elm | 2 +-
 src/Model/Model.elm       | 5 ++---
 src/Model/Timer.elm       | 2 +-
 3 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/Model')

diff --git a/src/Model/IdGenerator.elm b/src/Model/IdGenerator.elm
index 8bce44f..ba760d8 100644
--- a/src/Model/IdGenerator.elm
+++ b/src/Model/IdGenerator.elm
@@ -11,7 +11,7 @@ type alias IdGenerator =
   }
 
 initialIdGenerator =
-  { counter = 0
+  { counter = 1
   }
 
 getId : IdGenerator -> (Id, IdGenerator)
diff --git a/src/Model/Model.elm b/src/Model/Model.elm
index a3b4780..9a20219 100644
--- a/src/Model/Model.elm
+++ b/src/Model/Model.elm
@@ -14,7 +14,6 @@ import Model.IdGenerator (..)
 
 type alias Model =
   { currentTime : Time
-  , newTimerName : String
   , timers : Dict Id Timer
   , timerIdGenerator : IdGenerator
   }
@@ -22,9 +21,9 @@ type alias Model =
 initialModel : Time -> Model
 initialModel initialTime =
   let (id, idGenerator) = getId initialIdGenerator
+      timerName = "Timer " ++ (toString id)
   in  { currentTime = initialTime
-      , newTimerName = ""
-      , timers = Dict.insert id (initialTimer initialTime "Timer") Dict.empty
+      , timers = Dict.insert id (initialTimer initialTime timerName) Dict.empty
       , timerIdGenerator = idGenerator
       }
 
diff --git a/src/Model/Timer.elm b/src/Model/Timer.elm
index bfb734d..754a62a 100644
--- a/src/Model/Timer.elm
+++ b/src/Model/Timer.elm
@@ -23,7 +23,7 @@ initialTimer creationTime name =
       , name = name
       , initialTime = initialTime
       , currentTime = initTime initialTime
-      , isRunning = True
+      , isRunning = False
       }
 
 substractTimerTime : Time -> Timer -> Timer
-- 
cgit v1.2.3