(defwidget workspaces []
  (eventbox
		:onscroll "echo {} | sed -e \"s/up/-1/g\" -e \"s/down/+1/g\" | xargs hyprctl dispatch workspace"
		(box
			:class "module workspaces"
		  (for ws in workspace
		    (button
					:onclick "hyprctl dispatch workspace ${ws.number}"
					:class "ws icon ${ws.color}"
					; :tooltip {ws.tooltip}
					(box
						:class `${ws.focused ? "focused" : ""}`
						:height 3))))))