19 lines
489 B
Hy
19 lines
489 B
Hy
(import astal *)
|
|
(import astal.gtk3 *)
|
|
|
|
(let [
|
|
datetime (.poll (Variable "") 1000 "date +'%d %b %H:%M:%S'" (fn [out _] out))
|
|
unix-seconds (.poll (Variable "") 1000 "date +%s" (fn [out _] out))]
|
|
(setv clock (Widget.Box
|
|
:class-name "clock"
|
|
:vertical True
|
|
:valign Gtk.Align.CENTER
|
|
:children [
|
|
(Widget.Label
|
|
:halign Gtk.Align.START
|
|
:label (bind datetime))
|
|
(Widget.Label
|
|
:halign Gtk.Align.START
|
|
:label (bind unix-seconds))])))
|
|
|