summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTrevor Elliott <trevor@galois.com>2008-05-21 23:50:57 +0200
committerTrevor Elliott <trevor@galois.com>2008-05-21 23:50:57 +0200
commitbd766ec5a14b8ff0b991f5c05ffbae0c059ee4af (patch)
tree659bf2094658b05c3de612ae6df9a3dc4d8a6a61
parent3dad7d93d1c0c144aee759842557aca053d8c4ff (diff)
downloadmetatile-bd766ec5a14b8ff0b991f5c05ffbae0c059ee4af.tar
metatile-bd766ec5a14b8ff0b991f5c05ffbae0c059ee4af.zip
Raise windows in the floating layer when moving or resizing
darcs-hash:20080521215057-5b2f6-8f1e27f1963b78ebe2954cd17558a778de82de3a
-rw-r--r--XMonad/Config.hs6
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)
]