xmonad: fix full screen flash

[dotfiles] / .xmonad / xmonad.hs

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index d84188cd9594422fdab15831ef8142610958f728..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
@@ -71,6 +74,8 @@ myManageHook = composeAll [
                (className =? "Gnome-fallback-mount-helper" <&&> resource =? "gnome-fallback-mount-helper") --> doFloat,
                (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
        ]
 
@@ -104,11 +109,11 @@ myFullLayout = createLayout "Full" $
 myTiledLayout = createLayout "Tall" $
        avoidStruts $
        Mag.magnifierOff $
-       Tall nMaster ratioIncrement ratio
+       Tall nMaster ratioIncrement masterRatio
        where
                nMaster = 1
                ratioIncrement = 3/100
-               ratio = goldenRatio
+               masterRatio = goldenRatio
 
 myTabbedLayout = createLayout "Tab" $
        avoidStruts $
@@ -123,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 $
@@ -140,6 +153,7 @@ referenceAllLayoutsToAvoidErrors =
        myTiledLayout |||
        myTabbedLayout |||
        myThreeColLayout |||
+       myTwoPaneLayout |||
        myImLayout
 
 
@@ -153,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,