;; Listeners
(deflisten active-workspace
  `stdbuf -oL scripts/active-workspace-listener`)

(deflisten workspace-list :initial '[1]'
  `stdbuf -oL scripts/workspace-list-listener`)

(deflisten datetime :initial '{"pretty":"","month":0}'
  `stdbuf -oL scripts/datetime-listener`)

(deflisten brightness
  `stdbuf -oL scripts/backlight-listener`)

(deflisten volume :initial '{"icon":"","percentage":""}'
  `stdbuf -oL scripts/volume-listener`)

(deflisten keymap
  `stdbuf -oL scripts/keymap-listener`)

(deflisten emails
  `stdbuf -oL scripts/email-listener`)

;; Pollers
(defpoll battery :initial '{"icon":"","percentage":""}' :interval "1s"
  `scripts/battery`)

(defpoll wireless :interval "1s"
  `scripts/wireless`)

;; Windows
(defwindow bar
  :monitor 0
  :stacking "fg"
  :exclusive true
  :geometry (geometry :width "100%" :height "40px" :anchor "top center")
  (bar))

(defwindow calendar-1
  :monitor 0
  :geometry (geometry :x "10%" :width "20%" :anchor "center left")
  (calendar :class "cal"
            :month {datetime.month - 1}))

(defwindow calendar-2
  :monitor 0
  :geometry (geometry :width "20%" :anchor "center")
  (calendar :class "cal"))

(defwindow calendar-3
  :monitor 0
  :geometry (geometry :x "10%" :width "20%" :anchor "center right")
  (calendar :class "cal"
            :month {datetime.month + 1}))

(defwidget bar []
  (centerbox
    (start)
    (middle)
    (end)))

(defwidget start []
  (workspaces))

(defwidget middle []
  (clock))

(defwidget end []
  (box :halign "end"
       :class "end"
       :space-evenly false
       (emails)
       (keymap)
       (wireless)
       (brightness)
       (volume)
       (battery)))

(defwidget workspaces []
  (box :class "workspaces"
       :space-evenly false
       (for id in workspace-list
            (button :class {active-workspace == id ? "active" : ""}
                    :onclick `hyprctl dispatch workspace ${id}`
                    id))))

(defwidget clock []
  {datetime.pretty})

(defwidget wireless []
  (pair :icon "" :text wireless))

(defwidget keymap []
  (pair :icon "" :text keymap))

(defwidget brightness []
  (pair :icon "" :text brightness))

(defwidget volume []
  (pair :icon {volume.icon} :text {volume.percentage}))

(defwidget battery []
  (pair :icon {battery.icon} :text {battery.percentage}))

(defwidget emails []
  (pair :icon "" :text emails))

(defwidget pair [icon text]
  (box :width 70
       :space-evenly false
       (label :text icon)
       (label :text text)))