dotfiles

commit: 05e30ae53aa3323ef8ae46dc36a3e957d25872e5
parent: 3d87ab3a7d9f7292a5e4bcde0a7c4dddeee1c9da
Author: Haelwenn (lanodan) Monnier <contact@hacktivis.me>
Date:   Mon,  6 May 2019 07:53:03 +0200

.xmonad/xmonad.hs: Move child windows to their parent

Diffstat:
M
.xmonad/xmonad.hs
21
++++++++++-----------

1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
@@ -2,6 +2,7 @@ import XMonad
 
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.ManageHelpers -- transience
 
 import XMonad.Actions.PhysicalScreens -- horizontalScreenOrderer
 import XMonad.Util.WorkspaceCompare -- getSortByXineramaPhysicalRule
@@ -21,17 +22,15 @@ myLayout = avoidStruts (Full ||| tiled ||| Mirror tiled ||| Grid )
 		ratio   = 1/2
 		delta   = 3/100
 
-myManageHook = composeAll
-	[ className =? "qemu-system-x86_64" --> doFloat
-	, className =? "st-256color" --> doShift "1"
-	, className =? "Navigator" --> doShift "2"
-	, className =? "Firefox" --> doShift "2" -- Theses fucking script popups
-	, className =? "mpv" --> doShift "3"
-	, className =? "ffplay" --> doShift "3"
-	--, isDialog --> doFloat
-	, className =? "Pidgin" --> doF focusDown
-	, className =? "Navigator" --> doF focusDown
-	, role =? "browser" --> doShift "2"
+myManageHook = composeOne
+	[ transience
+	, role =? "browser" -?> doShift "2"
+	, isDialog -?> doFloat
+	, className =? "st-256color" -?> doShift "1"
+	, className =? "Navigator" -?> doShift "2"
+	, className =? "ffplay" -?> doShift "3"
+	, className =? "mpv" -?> doShift "3"
+	, className =? "Pidgin" -?> doF focusDown
 	]
 	where
 		role = stringProperty "WM_WINDOW_ROLE"