34 lines
684 B
Plaintext
34 lines
684 B
Plaintext
|
(deflisten workspaces
|
||
|
|
:initial "[]"
|
||
|
|
|
||
|
|
"modules/workspace/workspaces.sh"
|
||
|
|
)
|
||
|
|
|
||
|
|
(deflisten current_workspace
|
||
|
|
:initial "1"
|
||
|
|
|
||
|
|
"modules/workspace/get-active-workspace.sh"
|
||
|
|
)
|
||
|
|
|
||
|
|
(defwidget workspaces []
|
||
|
|
(eventbox
|
||
|
|
:onscroll "modules/workspace/scroll-current-workspace.sh {} ${current_workspace}"
|
||
|
|
|
||
|
|
(box
|
||
|
|
:orientation "h"
|
||
|
|
:space-evenly false
|
||
|
|
:class "workspaces"
|
||
|
|
:hexpand true
|
||
|
|
|
||
|
|
(for workspace in workspaces
|
||
|
|
(button
|
||
|
|
:class "workspace ${current_workspace == workspace.id ? "active" : ""}"
|
||
|
|
:onclick "hyprctl dispatch workspace ${workspace.id}"
|
||
|
|
|
||
|
|
"${workspace.id}"
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|