diff options
| author | Trevor Elliott <trevor@galois.com> | 2008-05-21 23:50:57 +0200 |
|---|---|---|
| committer | Trevor Elliott <trevor@galois.com> | 2008-05-21 23:50:57 +0200 |
| commit | 6f2edee6d2f458ee212f199cf2ce1d72660c7d00 (patch) | |
| tree | 659bf2094658b05c3de612ae6df9a3dc4d8a6a61 /XMonad | |
| parent | d089d9eeb64c119ebc4d0338371a2a6cb9fb5281 (diff) | |
| download | xmonad-6f2edee6d2f458ee212f199cf2ce1d72660c7d00.tar.gz xmonad-6f2edee6d2f458ee212f199cf2ce1d72660c7d00.tar.xz xmonad-6f2edee6d2f458ee212f199cf2ce1d72660c7d00.zip | |
Raise windows in the floating layer when moving or resizing
darcs-hash:20080521215057-5b2f6-8f1e27f1963b78ebe2954cd17558a778de82de3a.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Config.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 3d1f6d3..fa7bd90 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -223,11 +223,13 @@ keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $ 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)) + [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w + >> windows W.swapMaster)) -- mod-button2 %! Raise the window to the top of the stack , ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) -- mod-button3 %! Set the window to floating mode and resize by dragging - , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) + , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w + >> windows W.swapMaster)) -- you may also bind events to the mouse scroll wheel (button4 and button5) ] |