(defwidget time []
  (box
    :class "time"
    (label
    :text time)))