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