[xmonad] Re: keyboard fun

[Wirt Wolff]

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