diff options
| author | Brandon S Allbery KF8NH <allbery.b@gmail.com> | 2011-02-24 01:32:24 +0100 |
|---|---|---|
| committer | Brandon S Allbery KF8NH <allbery.b@gmail.com> | 2011-02-24 01:32:24 +0100 |
| commit | e99226d1d73b349ae5962e0f3230e3263c41be08 (patch) | |
| tree | 15dabb8ac38c60b7b6d948fd9ffd2e102716c573 | |
| parent | f77d4184bba082f6953ec0b611af36b0f3d19b9c (diff) | |
| download | XMonadContrib-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.hs | 5 |
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 |