17 lines
376 B
Text
17 lines
376 B
Text
(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"
|
|
)
|