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 (file)
--- 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