João Dias
16 lines
404 B
Plaintext
16 lines
404 B
Plaintext
|
|
(deflisten json_workspaces
|
|
:initial "[{1: {}, 2:{}}]"
|
|
`hyprctl -j workspaces`)
|
|
|
|
(defwidget workspaces []
|
|
(eventbox :onscroll "[[ {} =~ up ]] && hyprctl dispatch workspace e+1 || hyprctl dispatch workspace e-1"
|
|
(box :class "workspaces"
|
|
(for i in json_workspaces
|
|
(button :onclick "hyprctl dispatch workspace ${i}"
|
|
"${i[0].num}")
|
|
)
|
|
)
|
|
)
|
|
)
|