hunner/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

0 goes here in Bépo

Browse source
This commit is contained in:
Hunter Haugen 2010-05-08 22:37:19 -07:00
parent 489bcb3214
commit 23e2700497
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.xmonad/xmonad.hs
View file

@ -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