15 lines
138 B
Plaintext
15 lines
138 B
Plaintext
|
(defpoll time
|
||
|
:interval "1s"
|
||
|
:initial "0"
|
||
|
|
||
|
"date +%H:%M"
|
||
|
)
|
||
|
|
||
|
(defwidget clock []
|
||
|
|
||
|
(label
|
||
|
:class "clock"
|
||
|
:text {time}
|
||
|
)
|
||
|
)
|