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}
|
|
)
|
|
)
|