/ me shakes head in disgust at bad proofreading and word wrap / > tag <- withWindowSet $ > screenWorkspace . (1 -) . W.screen . W.current >>> /DELETE THIS: W.current /flip whenJust (windows . fn) tag -- wmw