(defwidget bar []
  (box :orientation "h" :hexpand true
    (workspaces)
    (music)
    (sidestuff)))

(defwidget sidestuff []
  (box :class "sidestuff" :orientation "h" :space-evenly false :halign "end"
    (slider-vol)
    (slider-ram)
    (time)))

(defwidget workspaces []
  (box :class "workspaces"
       :orientation "h"
       :space-evenly true
       :halign "start"
    (button :onclick "wmctrl -s 0" 1)
    (button :onclick "wmctrl -s 1" 2)
    (button :onclick "wmctrl -s 2" 3)
    (button :onclick "wmctrl -s 3" 4)
    (button :onclick "wmctrl -s 4" 5)
    (button :onclick "wmctrl -s 5" 6)
    (button :onclick "wmctrl -s 6" 7)
    (button :onclick "wmctrl -s 7" 8)
    (button :onclick "wmctrl -s 8" 9)))

(defwidget music []
  (box :class "music" :orientation "h" :space-evenly false :halign "center"
    '  ${music}'))

(defwidget slider-vol []
  (box :class "slider-vol" :orientation "h" :space-evenly "false"
    (box :class "label-vol" ""
      (scale :min 0 :max 101 :value volume :onchange "amixer -D pulse sset Master \{}%"))))

(defwidget slider-ram []
  (box :orientation "h" :class "slider-ram" :space-evenly false
    (box :class "label-ram" ""
      (scale :min 0 :max 101 :active false :value EWW_RAM))))



(defwidget time []
  (box :class "time"
    "${hour}:${min} ${month} ${number_day}, ${year_full}"))


(defpoll music :interval "5s" "playerctl metadata --format '{{ artist }} - {{ title }}' || true")
(defpoll volume :interval "1s" "scripts/getvol")

(defpoll number_day :interval "5h"  "date '+%d'")
(defpoll month      :interval "10h" "date '+%b'")
(defpoll min        :interval "10s" "date '+%M'")
(defpoll hour       :interval "1m"  "date '+%H'")
(defpoll year_full  :interval "15h" "date '+%Y'")

(deflisten battery-remaining "tail -f /sys/class/power_supply/BAT0/capacity")

(defwindow bar
  :monitor 0
  :windowtype "dock"
  :geometry (geometry :x "0%" :y "0%" :width "100%" :height "4%")
  :reserve (struts :side "top" :distance "4%")
  (bar))