77 lines
1.2 KiB
Text
77 lines
1.2 KiB
Text
|
|
|
|
|
|
(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))
|
|
|
|
|