(defvar time-visible false)

(
	defwindow clock
						 :monitor 0
						 :geometry (
						 						 geometry :x "-10%"
																  :y "15%"
																  :width "15%"
																  :height "10%"
																	:anchor "top right"
											 )

						 :stacking "bg"
						 :windowtype "dock"
						 :wm-ignore true
		(
			box :orientation "horizontal"
					:halign "center"

				time
		)
)

(
	defpoll time :interval "1s"
							 :initial "initial-value"
							 :run-while time-visible

	`date +%H:%M:%S`
)