23 lines
517 B
Plaintext
23 lines
517 B
Plaintext
(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)
|
|
) |