From bdaed3bf3bb096b6380c7c0f962ad42347343287 Mon Sep 17 00:00:00 2001 From: James Bunton Date: Sat, 1 Sep 2012 11:42:01 +1000 Subject: [PATCH 1/1] xmonad: Layout tweaks --- .xmonad/xmonad.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 19dc8cf..c64fc10 100644 --- 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 -- 2.39.2