(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 "0%"
																	:width "40%"
																	:height "40%"
																	:anchor "center"
											 )

						 :stacking "bg"
						 :wm-ignore false
		(
			box :orientation "horizontal"
					:halign "center"

				workspace
		)
)

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

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

(
	defwidget workspaces []
		(literal :content workspace)
)