refactor of yuck files
This commit is contained in:
@@ -1,7 +1,8 @@
|
||||
(defwidget datetime []
|
||||
(box :class "datetime"
|
||||
:halign "center"
|
||||
:valign "center"
|
||||
(box
|
||||
:class "datetime"
|
||||
:halign "center"
|
||||
:valign "center"
|
||||
{ time == ''
|
||||
? ''
|
||||
: time
|
||||
@@ -10,8 +11,9 @@
|
||||
)
|
||||
|
||||
(defvar time-visible false)
|
||||
(defpoll time :interval "1s"
|
||||
:initial "initial-value" ; optional, defaults to poll at startup
|
||||
:run-while time-visible ; optional, defaults to 'true'
|
||||
(defpoll time
|
||||
:interval "1s"
|
||||
:initial "initial-value" ; optional, defaults to poll at startup
|
||||
:run-while time-visible ; optional, defaults to 'true'
|
||||
`date +"%H:%M - %a, %d %b"` ; https://www.man7.org/linux/man-pages/man1/date.1.html
|
||||
)
|
||||
|
Reference in New Issue
Block a user