(defpoll bar-time-display :interval "1s" :initial "" `date +"󰃭 %d  %R"`)

(defwidget bar-time []
  (box
    :class "widget default-padding"
    {bar-time-display}
    )
  )