58 lines
982 B
Text
58 lines
982 B
Text
(defvar time-visible false)
|
|
(deflisten workspace "scripts/workspace")
|
|
|
|
(
|
|
defwindow clock
|
|
:monitor 0
|
|
:geometry (
|
|
geometry :x "-10%"
|
|
:y "15%"
|
|
:width "15%"
|
|
:height "10%"
|
|
:anchor "top right"
|
|
)
|
|
|
|
:stacking "bg"
|
|
:windowtype "dock"
|
|
:wm-ignore true
|
|
(
|
|
box :orientation "horizontal"
|
|
:halign "center"
|
|
|
|
time
|
|
)
|
|
)
|
|
|
|
(
|
|
defwindow workspaces
|
|
:monitor 0
|
|
:geometry (
|
|
geometry :x "0%"
|
|
:y "0%"
|
|
:width "40%"
|
|
:height "40%"
|
|
:anchor "center"
|
|
)
|
|
|
|
:stacking "bg"
|
|
:wm-ignore false
|
|
(
|
|
box :orientation "horizontal"
|
|
:halign "center"
|
|
|
|
workspace
|
|
)
|
|
)
|
|
|
|
(
|
|
defpoll time :interval "1s"
|
|
:initial "initial-value"
|
|
:run-while time-visible
|
|
|
|
`date +%H:%M:%S`
|
|
)
|
|
|
|
(
|
|
defwidget workspaces []
|
|
(literal :content workspace)
|
|
)
|