aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authormoserq <moserq@gmail.com>2010-01-20 11:17:46 +0100
committermoserq <moserq@gmail.com>2010-01-20 11:17:46 +0100
commit64994e7a0844cf56d1b693a2d937ae04379c6b6d (patch)
treeef6afb8a3733d4895011b17b7d81a30dbaba8c8e /XMonad
parent970914f872ed1ce0cbd7a067f35e8f77cde0a50e (diff)
downloadXMonadContrib-64994e7a0844cf56d1b693a2d937ae04379c6b6d.tar.gz
XMonadContrib-64994e7a0844cf56d1b693a2d937ae04379c6b6d.tar.xz
XMonadContrib-64994e7a0844cf56d1b693a2d937ae04379c6b6d.zip
X.L.G.Examples: improve the tabs of wmiiLike
Ignore-this: 1519338158025fb580cac523e4a41b88 darcs-hash:20100120101746-88fd0-7aff3f13f8b0ff2ac5a260053c3764b041224cdb.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/Groups/Examples.hs7
1 files 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