(defpoll hours
  :interval "1s"
  :initial "00"
  `date +%I`)


(defpoll minutes
  :interval "1s"
  :initial "00"
  `date +%M`)


(defpoll ampm
  :interval "1s"
  :initial "00"
  `date +%p`)

(defpoll date
  :interval "1s"
  :initial "1970-01-01"
  `date +%Y-%m-%d`)


(defwidget clock []
  (box :vexpand false :hexpand false
    :width 180
    :height 180
    :space-evenly false
    (box :width 180 :height 180 :class "analog-clock")
    (box 
      :height 180
      :width 180
      :class "numerical-clock" 
      :orientation "v"
      :space-evenly false
      (box
        :class "time-container"
        (box
          :class "time"
          (label :text hours)
          )
        (box
          :class "time"
          (label :text minutes)
          )
        (box 
          :class "time"
          (label :text ampm)
          )
      )
      (box
        :class "date"
        (label :text "   ${date}")
        )
      )
  ))




(defwindow clock
  :monitor 0
  :geometry (geometry 
              :x "5%"
              :y "35%"
              :height "200px"
              :anchor "top right")
  :stacking "bg"
  :exclusive true
  :focusable false
  :namespaces "widget_clock"
  (clock))