currentWindows :: XState -> [Window]
currentWindows = W.integrate' . W.stack . W.workspace . W.current . windowset
currentWindows :: XState -> [Window]
currentWindows = W.integrate' . W.stack . W.workspace . W.current . windowset
currentWindows = W.integrate' . W.stack . W.workspace . W.current . windowset