From 2f24870d71ea1e1edf47b23020fe21d276dbca77 Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Thu, 15 Apr 2010 22:36:49 +0200 Subject: [PATCH] xmonad.hs: Prevent new windows from stealing focus. --- xmonad.hs | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/xmonad.hs b/xmonad.hs index 49082a4..e9edb19 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -10,14 +10,18 @@ import XMonad.Layout.Reflect import qualified XMonad.StackSet as W -- Necessary for smartBorders. import XMonad.Layout.NoBorders +-- Necessary for composeOne and -?>. +import XMonad.Hooks.ManageHelpers -- Prevent new windows from spawning in the master pane. Taken from -- http://haskell.org/haskellwiki/Xmonad/Frequently_asked_questions on --- 2009-06-30. Thanks. +-- 2009-06-30. Thanks. Modified to not steal focus from the master pane when a +-- new window is created, thanks to vav in #xmonad on Freenode (2010-04-15 +-- 21:59). avoidMaster :: W.StackSet i l a s sd -> W.StackSet i l a s sd avoidMaster = W.modify' $ \c -> case c of - W.Stack t [] (r:rs) -> W.Stack t [r] rs + W.Stack t [] (r:rs) -> W.Stack r [] (t:rs) otherwise -> c -- Create my custom layout. @@ -47,10 +51,17 @@ myLayoutHook = smartBorders $ Mirror tiled ||| Full -- -- Also some applications are spawned on specific workspaces. Thanks to -- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50). -myManageHook = composeAll - [ className =? "Iceweasel" --> doF (W.shift "2") - , className =? "Wireshark" --> doF (W.shift "3") - ] <+> doF avoidMaster +myManageHook = composeOne + [ className =? "Iceweasel" -?> doF (W.shift "2") + , className =? "Wireshark" -?> doF (W.shift "3") + + -- Don't span new windows in the master pane. + , return True -?> doF avoidMaster + -- Prevent windows which get moved to other workspaces from removing the + -- focus of the currently selected window. Thanks to vav in #xmonad on + -- Freenode (2010-04-15 21:04). + , return True -?> doF W.focusDown + ] main = xmonad $ defaultConfig -- Use Windows key as main key so it doesn't conflict with any other key -- 2.45.2