(defwidget vertical-statusbar-systray []
  (systray
    :class "systray"
    :spacing 3
    :orientation "h"
    :space-evenly true
    :icon-size 16
  )
)

(defwidget vertical-statusbar []
  (box
    :class "statusbar"
    :orientation "v"
    :spacing 8
    :space-evenly false
    (clock-large)
    (vertical-statusbar-systray)
    (system-monitor-group
      :name "Performance"
      :orientation "v"
      (system-monitor-perf-cpu)
      (system-monitor-perf-gpu)
    )
    (system-monitor-disks)
    (system-monitor-net)
    (system-monitor-audio)
  )
)

(defwindow vertical-statusbar
  :monitor '[ "<primary>", "LG ULTRAWIDE", "HDMI-A-1" ]'
  ;; Note that this geometry is crucial for setting the reserved space
  ;; properly.  Changing the geometry may cause eww to no longer give the proper
  ;; reserved-space hints.
  :geometry (geometry
    :x "0%"
    :y "0%"
    :width "60px"
    :height "100%"
    :anchor "center left"
  )
  :stacking "fg"
  :exclusive true
  :focusable false
  (vertical-statusbar)
)