diff options
author | Devin Mullins <me@twifkak.com> | 2008-09-11 07:39:09 +0200 |
---|---|---|
committer | Devin Mullins <me@twifkak.com> | 2008-09-11 07:39:09 +0200 |
commit | 3fee57a0c800f3222778359d73823f97c9d546ae (patch) | |
tree | c53f64016659b2c88e7ce5aaf3e81e2fdc91bd1c /XMonad/Config.hs | |
parent | 1b780c7dffe376604590901d96296546de4c0449 (diff) | |
download | xmonad-3fee57a0c800f3222778359d73823f97c9d546ae.tar.gz xmonad-3fee57a0c800f3222778359d73823f97c9d546ae.tar.xz xmonad-3fee57a0c800f3222778359d73823f97c9d546ae.zip |
add W.shiftMaster, fix float/tile-reordering bug
darcs-hash:20080911053909-78224-d050fdbedac4eb39a96f30ec0679a9b67d274091.gz
Diffstat (limited to 'XMonad/Config.hs')
-rw-r--r-- | XMonad/Config.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 52c04af..aab81f2 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -226,12 +226,12 @@ mouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ()) mouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $ -- mod-button1 %! Set the window to floating mode and move by dragging [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w - >> windows W.swapMaster)) + >> windows W.shiftMaster)) -- mod-button2 %! Raise the window to the top of the stack - , ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) + , ((modMask, button2), (\w -> focus w >> windows W.shiftMaster)) -- mod-button3 %! Set the window to floating mode and resize by dragging , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w - >> windows W.swapMaster)) + >> windows W.shiftMaster)) -- you may also bind events to the mouse scroll wheel (button4 and button5) ] |