module Model.Timer
  ( Timer
  , initialTimer
  , substractTimerTime
  , initTime
  ) where

import List
import Time (Time)

type alias Timer =
  { creationTime : Time
  , name : String
  , initialTime : Time
  , currentTime : Time
  , isRunning : Bool
  }

initialTimer : Time -> String -> Timer
initialTimer creationTime name =
  let initialTime = 5 * 60 * 1000
  in  { creationTime = creationTime
      , name = name
      , initialTime = initialTime
      , currentTime = initTime initialTime
      , isRunning = True
      }

substractTimerTime : Time -> Timer -> Timer
substractTimerTime time timer =
  if timer.isRunning
    then
      if timer.currentTime - time <= 0.0
        then
          { timer
          | currentTime <- 0.0
          , isRunning <- False
          }
        else
          { timer
          | currentTime <- timer.currentTime - time
          }
    else
      timer

initTime : Time -> Time
initTime t = t + 999