From e99226d1d73b349ae5962e0f3230e3263c41be08 Mon Sep 17 00:00:00 2001
From: Brandon S Allbery KF8NH <allbery.b@gmail.com>
Date: Thu, 24 Feb 2011 01:32:24 +0100
Subject: Prevent non-default XUtils windows from being composited

Ignore-this: 41a67b8504c412e2754085eb0038f416

darcs-hash:20110224003224-8238f-970f78334ed7710d78819867c8052304b9f14b08.gz
---
 XMonad/Util/XUtils.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'XMonad/Util')

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
-- 
cgit v1.2.3