(defwidget workspaceWidget []
  (box 
    :class "workspaces"
    (for workspace in workspaces
      (button
        :style "border-bottom: 4px solid ${workspace.color}"
        :class "${workspace.active ? "focused" : 0}"
        :onclick "swaymsg workspace ${workspace.name}"
        (label :text "${workspace.idx}")
      )
    )
  )
)

(deflisten workspaces
  :initial "[]"
  "bar-ws-monitor"
)