9 lines
145 B
Plaintext
9 lines
145 B
Plaintext
(defpoll time :interval "60s"
|
|
:initial "initial-value"
|
|
`date +%H:%M`)
|
|
|
|
(defwidget time []
|
|
(box
|
|
:class "time"
|
|
(label
|
|
:text time))) |