aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrandon S Allbery KF8NH <allbery.b@gmail.com>2011-02-24 01:32:24 +0100
committerBrandon S Allbery KF8NH <allbery.b@gmail.com>2011-02-24 01:32:24 +0100
commite99226d1d73b349ae5962e0f3230e3263c41be08 (patch)
tree15dabb8ac38c60b7b6d948fd9ffd2e102716c573
parentf77d4184bba082f6953ec0b611af36b0f3d19b9c (diff)
downloadXMonadContrib-e99226d1d73b349ae5962e0f3230e3263c41be08.tar.gz
XMonadContrib-e99226d1d73b349ae5962e0f3230e3263c41be08.tar.xz
XMonadContrib-e99226d1d73b349ae5962e0f3230e3263c41be08.zip
Prevent non-default XUtils windows from being composited
Ignore-this: 41a67b8504c412e2754085eb0038f416 darcs-hash:20110224003224-8238f-970f78334ed7710d78819867c8052304b9f14b08.gz
-rw-r--r--XMonad/Util/XUtils.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs
index 8ea3653..7df7765 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