From 521ef9e01da611b47d13d9b6a29250496f041750 Mon Sep 17 00:00:00 2001 From: Brandon S Allbery KF8NH Date: Thu, 24 Feb 2011 00:32:24 +0000 Subject: [PATCH] Prevent non-default XUtils windows from being composited --- XMonad/Util/XUtils.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index 8ea3653f..7df77650 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -63,6 +63,11 @@ createNewWindow (Rectangle x y w h) m col o = do case m of Just em -> io $ selectInput d win em Nothing -> io $ selectInput d win exposureMask + -- @@@ ugly hack to prevent compositing + whenX (return $ isJust m) $ flip catchX (return ()) $ do + wINDOW_TYPE <- getAtom "_NET_WM_WINDOW_TYPE" + dESKTOP <- getAtom "_NET_WM_WINDOW_TYPE_DESKTOP" + io $ changeProperty32 d win wINDOW_TYPE aTOM propModeReplace [fi dESKTOP] return win -- | Map a window