diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 13:00:38 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 13:00:38 +0200 |
commit | daadcaa31bf5bff6111a1d0cf7fee161b985cdab (patch) | |
tree | 28a3c37f28cc2ea271a8c1db2a5e2ace2c1a3098 /xmonad.hs | |
parent | d7735aa3cc1dbf273bb5464e15d9d4fea1b76495 (diff) | |
download | xmonad-conf-daadcaa31bf5bff6111a1d0cf7fee161b985cdab.tar xmonad-conf-daadcaa31bf5bff6111a1d0cf7fee161b985cdab.zip |
DynamicPerScreenWorkspaces mostly working
Diffstat (limited to 'xmonad.hs')
-rw-r--r-- | xmonad.hs | 13 |
1 files changed, 5 insertions, 8 deletions
@@ -60,11 +60,10 @@ main = xmonad $ ewmh $ defaultConfig , ("<XF86AudioRaiseVolume>", spawn "amixer -q sset Master 5%+ unmute") , ("M1-<F4>", kill) ] - -- ++ [ (("M-C-" ++ show n, windows $ W.greedyView ws)) | (ws, n) <- zip myWorkspaces ([1..9]++[0])] - ++ [ (("M-S-" ++ show n, shiftGroup ws)) | (ws, n) <- zip myWorkspaces ([1..9]++[0])] - -- ++ [ (("M-C-" ++ show n, shiftIgnoreGroup ws)) | (ws, n) <- zip myWorkspaces ([1..9]++[0])] - ++ [ (("M-" ++ show n, view dwConfig ws)) | (ws, n) <- zip [0..] ([1..9]++[0])] - ++ [ (("M-C-" ++ show n, viewOnCurrent dwConfig ws)) | (ws, n) <- zip [0..] ([1..9]++[0])] + ++ [ ("M-" ++ show n, view dwConfig ws) | (ws, n) <- zip [0..] ([1..9]++[0])] + ++ [ ("M-C-" ++ show n, viewOnCurrent dwConfig ws) | (ws, n) <- zip [0..] ([1..9]++[0])] + ++ [ ("M-S-" ++ show n, create dwConfig ws >> shiftGroup (workspaceTag dwConfig ws) >> cleanup) | (ws, n) <- zip [0..] ([1..9]++[0])] + ++ [ ("M-S-C-" ++ show n, create dwConfig ws >> shiftIgnoreGroup (workspaceTag dwConfig ws) >> cleanup) | (ws, n) <- zip [0..] ([1..9]++[0])] ) `additionalMouseBindings` [ ((modm, button4), \_ -> sendMessage Shrink) @@ -74,8 +73,6 @@ main = xmonad $ ewmh $ defaultConfig ] -myWorkspaces = map show [1..10] - dwConfig :: DynamicWorkspaceConfig dwConfig = DynamicWorkspaceConfig { defaultWorkspaceScreen = defWSScreen , workspaceTag = show . (+1) @@ -87,7 +84,7 @@ defWSScreen 1 _ = S 0 defWSScreen _ i | i `elem` [0..7] = S 0 defWSScreen _ i | i `elem` [8,9] = S 1 -defWSScreen n i = S (i `mod` n) +defWSScreen n i = S ((i-10) `mod` n) viewOrWarp :: Int -> X () |