From 64994e7a0844cf56d1b693a2d937ae04379c6b6d Mon Sep 17 00:00:00 2001
From: moserq <moserq@gmail.com>
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(-)

(limited to 'XMonad')

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