(defwidget bar []
  (centerbox
    :orientation "h"
    (workspaces)
    (box)
    (sidestuff)
  )
)


(defwidget sidestuff []
  (box
    :class "sidestuff"
    :orientation "h"
    :space-evenly false
    :halign "end"
    (metric
      :label "󰕾"
      :value volume
      :onchange "pamixer --set-volume {}"
    )
    (metric
      :label "󱐋"
      :value {EWW_BATTERY.total_avg}
      :onchange ""
    )
    (metric
      :label "󰋊"
      :value {round((1 - (EWW_DISK["/"].free / EWW_DISK["/"].total)) * 100, 0)}
      :onchange ""
    )
    (metric
      :label ""
      :value {EWW_RAM.used_mem_perc}
      :onchange ""
    )
    (metric
      :label "󰍛"
      :value {EWW_CPU.avg}
      :onchange ""
    )
    time
  )
)

(deflisten workspaces :initial "[]" "bash ~/.config/eww/scripts/get-workspaces")
(deflisten active_workspace :initial "1" "bash ~/.config/eww/scripts/get-active-workspace")
(defwidget workspaces []
  (eventbox :class "workspaces-widget"
    (box
      :space-evenly false
      :spacing 10
      (label
        :text "${workspaces}${active_workspace}"
        :visible false
      )
      (for workspace in workspaces
        (eventbox
          :onclick "hyprctl dispatch workspace ${workspace.id}"
          (box
            :class "workspace-entry ${workspace.id == active_workspace ? "active" : ""} ${workspace.windows > 0 ? "occupied" : "empty"}"
            (label
              :text "${workspace.id}"
            )
          )
        )
      )
    )
  )
)


(defwidget metric [label value onchange]
  (box
    :orientation "h"
    :class "metric"
    :space-evenly false
    (box
      :class "label"
      label
    )
    (scale
      :min 0
      :max 100
      :active {onchange != ""}
      :value value
      :onchange onchange
    )
  )
)


(defpoll volume
  :interval "1s"
  "pamixer --get-volume"
)

(defpoll time
  :interval "1s"
  "date '+%Y-%m-%d %H:%M:%S'"
)

(defwindow bar
  :monitor 0
  :windowtype "dock"
  :exclusive true
  :geometry (geometry
    :x "0%"
    :y "0%"
    :width "100%"
    :height "22px"
    :anchor "top center"
  )
  :reserve (struts
    :side "top"
    :distance "4%"
  )
  (bar)
)