(defpoll time
  :interval "1s"
  :initial "0"

  "date +%H:%M"
)

(defwidget clock []

  (label
    :class "clock"
    :text {time}
  )
)