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