On Tue, Sep 04, 2007 at 10:23:58AM +1000, Donald Bruce Stewart wrote:
kg2007.kg:
Thanks everybody :)
I have find a solution ... I don't believe it's a beautiful solution, but it works !
In the Config.hs :
keyWorkspace :: [KeySym] keyWorkspace = [xK_ampersand,xK_eacute,xK_quotedbl,
xK_apostrophe,xK_parenleft,xK_minus,xK_egrave,xK_underscore,xK_ccedilla, xK_agrave]
-- mod-[1..9] @@ Switch to workspace N -- mod-shift-[1..9] @@ Move client to workspace N [((m .|. modMask, k), f i) | (i, k) <- zip [0 .. fromIntegral workspaces - 1] (take (fromIntegral workspaces - 1) keyWorkspace) , (f, m) <- [(view, 0), (shift, shiftMask)]]
Just out of curiosity, could you try if this would work? -- mod-[1..9] @@ Switch to workspace N -- mod-shift-[1..9] @@ Move client to workspace N [((m .|. modMask, k), f i) | (i, k) <- zip workspaces [xK_F1 ..] , (f, m) <- [(view, 0), (shift, shiftMask)]] This is my personal setting, because I get annoyed with the overlap with emacs' key bindings (and my laptop has no other mod key I could redefine modMask as). If it also turns out to be more robust with regard to international keyboards, it might not be a bad default. -- David Roundy Department of Physics Oregon State University