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