(defvar time-visible false)
(deflisten workspace "scripts/workspace")

(
	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
		)
)

(
  defwindow workspaces
    :monitor 0
    :geometry (
      geometry :x "0%"
               :y "10px"
               :width "auto"
               :height "50px"
               :anchor "top center"
    )
    :stacking "fg"
    :windowtype "dock"
    :wm-ignore false
    (literal :content workspace)
)

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

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