diff options
| -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 |