From: Matt Mullins <mokomull@gmail.com>
Date: Tue, 27 Nov 2012 06:31:26 +0000 (-0800)
Subject: Move workspace-swapping to Mod+Shift+Scroll, make Mod+Scroll do the same as Mod+J/K
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=HEAD;p=xmonad-config.git

Move workspace-swapping to Mod+Shift+Scroll, make Mod+Scroll do the same as Mod+J/K
---

diff --git a/xmonad.hs b/xmonad.hs
index ee6c832..7b9e602 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -29,8 +29,10 @@ defaults = defaultConfig {
                    , ( (modMask x .|. shiftMask, xK_semicolon), withFocused toggleBorder )
                    ]
         mymouseBindings x = [
-                              ( (modMask x, button4), \win -> windows $ prevWorkspace x)
-                            , ( (modMask x, button5), \win -> windows $ nextWorkspace x)
+                              ( (modMask x, button4), \win -> windows $ SS.focusDown)
+                            , ( (modMask x, button5), \win -> windows $ SS.focusUp)
+                            , ( (modMask x .|. mod1Mask, button4), \win -> windows $ prevWorkspace x)
+                            , ( (modMask x .|. mod1Mask, button5), \win -> windows $ nextWorkspace x)
                             ]
         tiled = Tall nmaster delta ratio
         nmaster = 1