diff options
| author | moserq <moserq@gmail.com> | 2010-01-20 11:17:46 +0100 |
|---|---|---|
| committer | moserq <moserq@gmail.com> | 2010-01-20 11:17:46 +0100 |
| commit | 64994e7a0844cf56d1b693a2d937ae04379c6b6d (patch) | |
| tree | ef6afb8a3733d4895011b17b7d81a30dbaba8c8e /XMonad/Layout/Groups | |
| parent | 970914f872ed1ce0cbd7a067f35e8f77cde0a50e (diff) | |
| download | XMonadContrib-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/Layout/Groups')
| -rw-r--r-- | XMonad/Layout/Groups/Examples.hs | 7 |
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 |