(defpoll datetime :interval "10s"
"date +'%A %d, %H:%M'")

(defvar calendar_state "hidden")

(defwidget clock []
    (box :class "clock"
      (button :onclick "sh ./scripts/display-calendar.sh"
      "${datetime}")
    )
)