From 3084429d14dd3cd74aa4579f24a9a23143635092 Mon Sep 17 00:00:00 2001 From: nojhan Date: Tue, 8 May 2012 09:51:43 +0200 Subject: [PATCH] + IM layout with a simple tabbed on top of a grid --- xmonad.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/xmonad.hs b/xmonad.hs index b40081f..22abdd3 100644 --- a/xmonad.hs +++ b/xmonad.hs @@ -14,6 +14,7 @@ import XMonad.Actions.PhysicalScreens import XMonad.Layout.BorderResize import XMonad.Layout.TwoPane import XMonad.Layout.Combo +import XMonad.Layout.Grid import XMonad.Layout.IM import Data.Ratio ((%)) @@ -37,19 +38,21 @@ main = xmonad $ gnomeConfig -- desktopLayoutModifiers still allow toggling panel visibility , layoutHook = windowNavigation $ desktopLayoutModifiers $ -- fullscreen with tabs - simpleTabbed + simpleTabbedAlways -- Two panes, each one with its own tabs ||| combineTwo (TwoPane 0.03 0.5) simpleTabbed simpleTabbed -- 2/3 of the screen for a master window, other ones on the right ||| ResizableTall 1 (3/100) (2/3) [] -- buddy lists on a small vertical pane at right, -- master windows on top of the remaining space, other ones below - ||| withIM (15/100) (Role "buddy_list") (Mirror( ResizableTall 1 (3/100) (2/3) [] )) + -- ||| withIM (10/100) (Or (Role "buddy_list") (Role "contact_list")) (Mirror( ResizableTall 1 (3/100) (2/3) [] )) + ||| withIM (10/100) (Or (Or (Role "buddy_list") (Role "contact_list")) (ClassName "gimp-toolbox")) (combineTwo (Mirror(TwoPane 0.03 0.8)) simpleTabbedAlways Grid) } -- Simple notation ala emacs `removeKeysP` [ ("M-") + , ("M-S-") ] `additionalKeysP` [