(defwidget bar []
  (centerbox :orientation "v"
    (workspaces)
    "test"
    (battery)))

(defwidget workspace-btn [n ?icon]
  (button :onclick "hyprctl dispatch 'workspace ${n}'"
          :halign "baseline"
          :hexpand true
    "${icon ?: n}"))

(defwidget workspaces []
  (box :class "workspaces"
       :orientation "v"
       :space-evenly true
       :valign "start"
       :halign "center"
    (workspace-btn :n 1 :icon "")
    (workspace-btn :n 2 :icon "")
    (workspace-btn :n 3 :icon "󰈹")
    (workspace-btn :n 4 :icon "󰭹")
    (workspace-btn :n 5 :icon "")
    (workspace-btn :n 6 :icon "")
    (workspace-btn :n 7 :icon "")
    (workspace-btn :n 8 :icon "")
    (workspace-btn :n 9 :icon "")))

(defwidget battery []
  (metric :label "󰁹"
          :value {EWW_BATTERY}
          :onchange ""))

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

(defwindow bar
           :monitor 0
           :geometry (geometry :width "1.25%"
                               :height "98%"
                               :anchor "right center")
           :stacking "fg"
           :windowtype "dock"
           :exclusive true
  (bar))