(defvar WORK_TIME_SEC 1200)
(defvar PAUSE_TIME_SEC 300)

(defvar timer-state "inactive")
(defvar timer-start-time 0)

(defpoll timer-time 
  :interval "1s"
  :run-while {timer-state != "inactive"}
  `date +%s`)
  
(defpoll timer-work-period
  :interval "20m"
  :initial "first"
  :run-while {timer-state == "work"}
  `if [ "$(eww get timer-work-period)" == "first" ]; then 
    eww update timer-start-time=$(date +%s)
    echo next
  else 
    notify-send -c grind-timer -i ~/Images/Icons/moai.jpg "Work period over" "You can take a little nap now."
    eww update timer-state=pause
    echo first
  fi`) ; TODO: Put in a separate script

(defpoll timer-pause-period
  :interval "5m"
  :initial "first"
  :run-while {timer-state == "pause"}
  `if [ "$(eww get timer-pause-period)" == "first" ]; then 
    eww update timer-start-time=$(date +%s)
    echo next
  else 
    notify-send -c grind-timer -i ~/Images/Icons/moai.jpg "Pause period over" "Back to grinding we go."
    eww update timer-state=work
    echo first
  fi`) ; TODO: Put in a separate script

(defwidget start-button []
  (button
    :class "start-button"
    :vexpand true
    :onclick "eww update timer-state=${timer-state == "inactive" ? "work" : "inactive"} timer-work-period=first timer-pause-period=first"
    (overlay
      (circular-progress
        :class "circle-progress"
        :value "${
          timer-state == "inactive" ? 100 :
            100 * (timer-start-time + (timer-state == "work" ? WORK_TIME_SEC : PAUSE_TIME_SEC) - timer-time)
            / (timer-state == "work" ? WORK_TIME_SEC : PAUSE_TIME_SEC)
        }"
        :thickness 6
        :start-at 75
        :clockwise true)
      (label :class "start-icon" :text "${timer-state == "inactive" ? 'Start' : (timer-state == "work" ? "Working" : "Pause")}")
    )
  )
)

(defwidget timer []
  (box
    :orientation "v"
    :space-evenly false
    :class "timer ${timer-state}"
    (label :class "timer-title" :text "Grind timer")
    (start-button :valign "center" :vexpand true)
    (revealer
      :transition "slideup"
      :reveal {timer-state != "inactive"}
      (label :class "timer-text" :text "${timer-state != "inactive" ? formattime(timer-start-time - (3600 - (timer-state == "work" ? WORK_TIME_SEC : PAUSE_TIME_SEC)) - timer-time, "%H:%M:%S") : "00:20:00"}")
    )
  )
)


(defwindow timer
  :namespace "eww.timer"
  :monitor 0
  :geometry (geometry
    :x "6%"
    :y "10%"
    :width "300px"
    :height "350px"
    :anchor "top left")
  :stacking "bg"
  :focusable false
  :exclusive true
  (timer)
)