(defpoll time :initial '{}' :interval "5s" `date +'{"date": "%a %d %b", "hour": "%H", "minute": "%M", "day": "%A"}'`)

(defwidget clock []
 (box
  :class "module accent bold"
  (label
   :text "${time.hour}:${time.minute}"
   :class "hour")))

(defwidget date []
 (box
  :class "module bold"
  (label :text "${time.date}")))
