[xmonad] keyboard fun

[lowly coder]

in my .xmonad/xmonad.hs , I have:


++

         [((m .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust
(windows . f))
              | (key, sc) <- zip [xK_a, xK_f] [0..] , (f, m) <- [(W.view,
0)]]

++

         [((m .|. mod4Mask, key), screenWorkspace sc >>= flip whenJust
(windows . f))
              | (key, sc) <- zip [xK_s, xK_d] [0..] , (f, m) <- [(W.shift,
0)]]

now, instead of this, I'd perfer to have something where

xK_f alternates between workspace 0 & 1
I'd also like to make xK_d to send current window to other workspace

(this requires that I somehow know what my current workspace is -- is there
a function to return this?)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/xmonad/attachments/20090216/cafb1ed5/attachment.htm