(defwidget workspaces [workspaces-json]
  (box
    :class "workspaces"
    :orientation "h"
    :space-evenly false
    (for ws in workspaces-json
      (box
        (label
          :text "${ws.name}"
          :class "workspace ${ ws.active ? "active" : "inactive" } ${ws.focused ? "focused" : "unfocused"}"
        )
      )
    )
  )
)

(defwidget workspaces-primary []
  (workspaces :workspaces-json workspaces-json-dp2)
)

(defwidget workspaces-secondary []
  (workspaces :workspaces-json workspaces-json-dp1)
)