From d1833a8630f46c41af1f55d7f855f249532c0668 Mon Sep 17 00:00:00 2001 From: nojhan Date: Fri, 4 May 2012 14:50:05 +0200 Subject: [PATCH] added an IM mirrored layout for pidgin roster --- xmonad.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/xmonad.hs b/xmonad.hs index 52239bc..0f67257 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -14,6 +14,8 @@ import XMonad.Actions.PhysicalScreens import XMonad.Layout.BorderResize import XMonad.Layout.TwoPane import XMonad.Layout.Combo +import XMonad.Layout.IM +import Data.Ratio ((%)) import qualified XMonad.Actions.FlexibleManipulate as Flex import qualified XMonad.StackSet as W @@ -33,7 +35,7 @@ main = xmonad $ gnomeConfig -- add a fullscreen tabbed layout that does not avoid covering -- up desktop panels before the desktop layouts -- desktopLayoutModifiers still allow toggling panel visibility - , layoutHook = windowNavigation $ desktopLayoutModifiers $ simpleTabbed ||| combineTwo (TwoPane 0.03 0.5) (simpleTabbed) (simpleTabbed) ||| ResizableTall 1 (3/100) (1/2) [] + , layoutHook = windowNavigation $ desktopLayoutModifiers $ simpleTabbed ||| combineTwo (TwoPane 0.03 0.5) (simpleTabbed) (simpleTabbed) ||| ResizableTall 1 (3/100) (1/2) [] ||| withIM (1%7) (And (ClassName "Pidgin") (Role "buddy_list")) (Mirror( ResizableTall 1 (3/100) (1/2) [] )) } -- Simple notation ala emacs `removeKeysP`