(defwidget workspaceWidget []
  (box 
    :class "workspaces"
    (for workspace in workspaces
      (button
        :class "${workspace.urgent ? "urgent" : ""} ${workspace.focused ? "focused" : 0}"
        :onclick "swaymsg workspace ${workspace.name}"
        (label :text "${workspace.name}")
      )
    )
  )
)

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