From 23e27004973e86593a576a63a1ae3100e4d62517 Mon Sep 17 00:00:00 2001 From: Hunter Haugen Date: Sat, 8 May 2010 22:37:19 -0700 Subject: [PATCH] =?UTF-8?q?0=20goes=20here=20in=20B=C3=A9po?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .xmonad/xmonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 5418b01..07dbd97 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -109,7 +109,7 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window --wsgrid = gridselect gsConfig =<< gets (map (\x -> (x,x)) . (map W.tag . uncurry (++) . partition (isJust . W.stack) . W.workspaces . windowset)) -- (map W.tag . W.workspaces . windowset)) mKeysExt = [((m .|. mModMask, k), f i) -- changing workspaces with bébo - | (i, k) <- zip ([0..]) [0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f,0x2a] + | (i, k) <- zip ([0..]) [0x2a,0x22,0xab,0xbb,0x28,0x29,0x40,0x2b,0x2d,0x2f] , (f, m) <- [(withNthWorkspace W.greedyView, 0), (withNthWorkspace W.shift, shiftMask)]] {- [10:28] dschoepe : gets (map W.tag . W.workspaces . windowset) should work