From 64994e7a0844cf56d1b693a2d937ae04379c6b6d Mon Sep 17 00:00:00 2001 From: moserq Date: Wed, 20 Jan 2010 11:17:46 +0100 Subject: X.L.G.Examples: improve the tabs of wmiiLike Ignore-this: 1519338158025fb580cac523e4a41b88 darcs-hash:20100120101746-88fd0-7aff3f13f8b0ff2ac5a260053c3764b041224cdb.gz --- XMonad/Layout/Groups/Examples.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/Groups/Examples.hs b/XMonad/Layout/Groups/Examples.hs index 7ba5e49..9e9f6d1 100644 --- a/XMonad/Layout/Groups/Examples.hs +++ b/XMonad/Layout/Groups/Examples.hs @@ -98,6 +98,7 @@ import XMonad.Layout.Renamed import XMonad.Layout.LayoutCombinators import XMonad.Layout.MessageControl import XMonad.Layout.Decoration +import XMonad.Layout.Simplest import XMonad.Actions.MessageFeedback @@ -180,8 +181,10 @@ zoomRowG = zoomRowWith GroupEQ wmiiLike s t = G.group innerLayout zoomRowG where column = named "Column" $ Tall 0 (3/100) (1/2) - tabs = named "Tabs" $ tabbed s t - innerLayout = renamed [CutWordsLeft 2] $ ignore NextLayout + tabs = named "Tabs" $ Simplest + innerLayout = renamed [CutWordsLeft 3] + $ addTabs s t + $ ignore NextLayout $ ignore (JumpToLayout "") $ unEscape $ column ||| tabs ||| Full -- cgit v1.2.3