diff options
Diffstat (limited to 'XMonad/Config.hs')
-rw-r--r-- | XMonad/Config.hs | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 9aaab8f..ed931b2 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -36,7 +36,6 @@ import qualified XMonad.Core as XMonad import XMonad.Layout import XMonad.Operations -import XMonad.ManageHook import qualified XMonad.StackSet as W import Data.Bits ((.|.)) import Data.Default @@ -90,9 +89,7 @@ focusedBorderColor = "red" -- "#ff0000" don't use hex, not <24 bit safe -- and click on the client you're interested in. -- manageHook :: ManageHook -manageHook = composeAll - [ className =? "MPlayer" --> doFloat - , className =? "Gimp" --> doFloat ] +manageHook = mempty ------------------------------------------------------------------------ -- Logging @@ -210,9 +207,6 @@ keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $ , ((modMask, xK_h ), sendMessage Shrink) -- %! Shrink the master area , ((modMask, xK_l ), sendMessage Expand) -- %! Expand the master area - -- floating layer support - , ((modMask, xK_t ), withFocused $ windows . W.sink) -- %! Push window back into tiling - -- increase or decrease number of windows in the master area , ((modMask , xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area , ((modMask , xK_period), sendMessage (IncMasterN (-1))) -- %! Deincrement the number of windows in the master area @@ -241,14 +235,8 @@ keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $ -- | Mouse bindings: default actions bound to mouse events 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.shiftMaster) -- mod-button2 %! Raise the window to the top of the stack - , ((modMask, button2), windows . (W.shiftMaster .) . W.focusWindow) - -- mod-button3 %! Set the window to floating mode and resize by dragging - , ((modMask, button3), \w -> focus w >> mouseResizeWindow w - >> windows W.shiftMaster) + [ ((modMask, button2), windows . (W.shiftMaster .) . W.focusWindow) -- you may also bind events to the mouse scroll wheel (button4 and button5) ] @@ -327,4 +315,4 @@ help = unlines ["The default modifier key is 'alt'. Default keybindings:", "-- Mouse bindings: default actions bound to mouse events", "mod-button1 Set the window to floating mode and move by dragging", "mod-button2 Raise the window to the top of the stack", - "mod-button3 Set the window to floating mode and resize by dragging"]
\ No newline at end of file + "mod-button3 Set the window to floating mode and resize by dragging"] |