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
myTiledLayout = createLayout "Tall" $
avoidStruts $
Mag.magnifierOff $
- Tall nMaster ratioIncrement ratio where
+ Tall nMaster ratioIncrement ratio
+ where
nMaster = 1
ratioIncrement = 3/100
ratio = goldenRatio
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")))