From: James Bunton <jamesbunton@delx.net.au>
Date: Wed, 5 Sep 2012 03:49:25 +0000 (+1000)
Subject: xmonad: Use Tall for IM instead of Grid
X-Git-Url: https://code.delx.au/dotfiles/commitdiff_plain/0ab4f922b72dd6c10f0fe89e6d4f0ce70ecfde6a

xmonad: Use Tall for IM instead of Grid
---

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 48267e4..a9edd5b 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -4,7 +4,6 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ICCCMFocus
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.Script
-import XMonad.Layout.Grid
 import XMonad.Hooks.SetWMName
 import XMonad.Layout.IM
 import XMonad.Layout.LayoutHints
@@ -104,7 +103,8 @@ myFullLayout = createLayout "Full" $
 myTiledLayout = createLayout "Tall" $
 	avoidStruts $
 	Mag.magnifierOff $
-	Tall nMaster ratioIncrement ratio where
+	Tall nMaster ratioIncrement ratio
+	where
 		nMaster = 1
 		ratioIncrement = 3/100
 		ratio = goldenRatio
@@ -116,9 +116,10 @@ myTabbedLayout = createLayout "Tab" $
 myImLayout = createLayout "IM" $
 	avoidStruts $
 	noFrillsDeco shrinkText defaultTheme $
-	withIM ratio roster $ GridRatio 1
+	withIM rosterRatio roster $
+	myTiledLayout
 	where
-		ratio = 1/4
+		rosterRatio = 1/8
 		roster = (Or (Title "Buddy List") (And (Resource "main") (ClassName "psi")))