16 Feb
2009
16 Feb
'09
10:57 p.m.
Excerpts from lowly coder's message of Mon Feb 16 20:18:11 -0700 2009:
okay, I have most of this figured out:
shiftWindow = ....
Looks like you're looking for something like: withOtherScr fn = do -- squashed left for email tag <- withWindowSet $ screenWorkspace . (1 -) . W.screen . W.current W.current flip whenJust (windows . fn) tag and bind to: -- more keys where modm = mod4Mask , ((modm, xK_f), withOtherScr W.view) , ((modm, xK_d), withOtherScr W.shift) -- wmw