xmonad: use transience for better handling of some dialogues

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index c72943e63cea70a0f5e84854be8d5665fee588be..b9ef203c3aea0ab9c4305687e6adb783102e835c 100644 (file)
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -7,7 +7,6 @@ import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ICCCMFocus
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.ManageHelpers
-import XMonad.Hooks.Script
 import XMonad.Hooks.SetWMName
 import XMonad.Layout.IM
 import XMonad.Layout.LayoutHints
@@ -21,7 +20,6 @@ import XMonad.Layout.Reflect
 import XMonad.Layout.Tabbed
 import XMonad.Layout.ThreeColumns
 import XMonad.Util.Run(spawnPipe)
-import XMonad.Util.WindowProperties(getProp32s)
 import qualified Data.Map as M
 import qualified XMonad.StackSet as W
 
@@ -74,23 +72,14 @@ avoidMaster = W.modify' $ \c -> case c of
     W.Stack t [] (r:rs) -> W.Stack t [r] rs
     otherwise -> c
 
-isTransient = ask >>= \w -> liftX $ do
-    r <- getProp32s "WM_TRANSIENT_FOR" w
-    return $ case r of
-        Just [_] -> True
-        _ -> False
-
 isSkipTaskBar = isInProperty "_NET_WM_STATE" "_NET_WM_STATE_SKIP_TASKBAR"
 
-
 myManageHook =
     manageDocks <+>
     composeOne [
-        (className =? "Kupfer.py" <&&> resource =? "kupfer.py") -?> doFloat,
-        (className =? "Xfce4-appfinder" <&&> resource =? "xfce4-appfinder") -?> doFloatAt 0.1 0.1,
+        transience,
         (isSkipTaskBar -?> doFloat),
         (isDialog -?> doFloatAt 0.1 0.1),
-        (isTransient -?> doFloatAt 0.1 0.1),
         (isFullscreen -?> doFullFloat),
         (fmap Just $ doF avoidMaster)
     ]