(include "./workspaces.yuck")

(defwidget primary-bar []
  (box
    :class "statusbar"
    :orientation "h"
    :height 30
    (primary-leftstuff)
    (primary-rightstuff)
  )
)

(defwidget primary-leftstuff []
  (box
    :class "leftstuff"
    :orientation "h"
    :space-evenly true
    :halign "start"
    (workspaces-primary)
  )
)

(defwidget primary-rightstuff []
  (box
    :class "rightstuff"
    :orientation "h"
    :halign "end"
    (label :text "")
  )
)

(defwindow primary-statusbar
  :monitor '[ "<primary>", "DP-2", 0 ]'
  :geometry (geometry
    :x "0%"
    :y "0%"
    :width "100%"
    :height "30px"
    :anchor "top center"
  )
  :stacking "fg"
  :exclusive true
  :focusable false
  :wm-ignore false
  (primary-bar)
)