xmonad: fix full screen flash

[dotfiles] / .xmonad / xmonad.hs

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 24793e5050ec839a7df9a2d927381f3b2bab5a00..08b88e1c46f4431620917d9ecce351509bbdb9e0 100644 (file)
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -1,6 +1,7 @@
 import System.IO
 import XMonad
 import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ICCCMFocus
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.Script
@@ -8,12 +9,14 @@ import XMonad.Hooks.SetWMName
 import XMonad.Layout.IM
 import XMonad.Layout.LayoutHints
 import qualified XMonad.Layout.Magnifier as Mag
+import XMonad.Hooks.ManageHelpers
 import XMonad.Layout.NoBorders
 import XMonad.Layout.NoFrillsDecoration
 import XMonad.Layout.PerWorkspace
 import XMonad.Layout.Renamed
 import XMonad.Layout.Tabbed
 import XMonad.Layout.ThreeColumns
+import XMonad.Layout.TwoPane
 import XMonad.Util.Run(spawnPipe)
 import qualified Data.Map as M
 import qualified XMonad.StackSet as W
@@ -72,6 +75,7 @@ myManageHook = composeAll [
                (className =? "Gdu-notification-daemon" <&&> resource =? "gdu-notification-daemon") --> doFloat,
                (className =? "Firefox" <&&> resource =? "Dialog") --> doFloat,
                (className =? "Screenruler" <&&> resource =? "screenruler") --> doFloat,
+               (className =? "Plugin-container" <&&> resource =? "plugin-container") --> doFullFloat,
                manageDocks
        ]
 
@@ -124,6 +128,14 @@ myThreeColLayout = createLayout "ThreeCol" $
                masterRatio = 4/10
                numMaster = 1
 
+myTwoPaneLayout = createLayout "TwoPane" $
+       avoidStruts $
+       Mag.magnifierOff $
+       TwoPane resizeDelta masterRatio
+       where
+               resizeDelta = 3/100
+               masterRatio = goldenRatio
+
 myImLayout = createLayout "IM" $
        avoidStruts $
        noFrillsDeco shrinkText defaultTheme $
@@ -141,6 +153,7 @@ referenceAllLayoutsToAvoidErrors =
        myTiledLayout |||
        myTabbedLayout |||
        myThreeColLayout |||
+       myTwoPaneLayout |||
        myImLayout
 
 
@@ -154,7 +167,7 @@ myLayout =
 main = do
        xmonadDir <- getXMonadDir
        xmobar <- spawnPipe ("xmobar " ++ xmonadDir ++ "/xmobar.hs")
-       xmonad $ defaultConfig {
+       xmonad $ ewmh defaultConfig {
                manageHook = myManageHook <+> manageHook defaultConfig,
                layoutHook = myLayout,
                workspaces = myWorkspaces,