twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Prevent non-default XUtils windows from being composited

Browse Source
This commit is contained in:
Brandon S Allbery KF8NH
2011-02-24 00:32:24 +00:00
parent 8fb4c1e734
commit 521ef9e01d
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Util/XUtils.hs
View File

@@ -63,6 +63,11 @@ createNewWindow (Rectangle x y w h) m col o = do
case m of case m of
Just em -> io $ selectInput d win em Just em -> io $ selectInput d win em
Nothing -> io $ selectInput d win exposureMask 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 return win
-- | Map a window -- | Map a window