xmonad: Layout tweaks

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 19dc8cf14e93b3b73827f00ece5e107054136a40..c64fc1069391de29e6752ddf25e4610da5a50fc6 100644 (file)
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -3,6 +3,7 @@ import XMonad
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.Script
+import XMonad.Layout.Grid
 import XMonad.Layout.IM
 import XMonad.Layout.LayoutHints
 import XMonad.Layout.NoBorders
@@ -82,7 +83,6 @@ goldenRatio = (toRational (2/(1+sqrt(5)::Double)))
 
 createLayout name layout =
        renamed [Replace name] $
-       avoidStruts $
        layoutHints $
        smartBorders $
        layout
@@ -91,20 +91,21 @@ myFullLayout = createLayout "Full" $
        Full
 
 myTiledLayout = createLayout "Tall" $
+       avoidStruts $
        Tall nMaster ratioIncrement ratio where
                nMaster = 1
                ratioIncrement = 3/100
                ratio = goldenRatio
 
-myMirrorTiledLayout = createLayout "MTall" $
-       Mirror myTiledLayout
-
 myTabbedLayout = createLayout "Tab" $
+       avoidStruts $
        simpleTabbed
 
 myImLayout = createLayout "IM" $
+       avoidStruts $
        noFrillsDeco shrinkText defaultTheme $
-       IM ratio roster where
+       withIM ratio roster $ GridRatio 1
+       where
                ratio = 1/4
                roster = (Or (Title "Buddy List") (And (Resource "main") (ClassName "psi")))
 
@@ -113,7 +114,7 @@ myLayout =
        (
                onWorkspace "1" (myImLayout) $
                onWorkspace "2" (myTabbedLayout ||| myFullLayout) $
-               (myTiledLayout ||| myTabbedLayout ||| myMirrorTiledLayout ||| myFullLayout)
+               (myTiledLayout ||| myTabbedLayout ||| myFullLayout)
        )
 
 main = do