31 lines
524 B
Text
31 lines
524 B
Text
(defvar time-visible false)
|
|
|
|
(
|
|
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
|
|
)
|
|
)
|
|
|
|
(
|
|
defpoll time :interval "1s"
|
|
:initial "initial-value"
|
|
:run-while time-visible
|
|
|
|
`date +%H:%M:%S`
|
|
)
|