From 881fc77dae6108579761e4fa8281b418cde089cc Mon Sep 17 00:00:00 2001 From: moserq Date: Wed, 20 Jan 2010 11:32:40 +0100 Subject: X.L.G.Examples: improve the tabs of tiledTabs Ignore-this: 58a449c35e1d4a30ecfdf80f015d2dee darcs-hash:20100120103240-88fd0-05ee05c0128e2622f5c295b97946caefaf6884b9.gz --- XMonad/Layout/Groups/Examples.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout/Groups') diff --git a/XMonad/Layout/Groups/Examples.hs b/XMonad/Layout/Groups/Examples.hs index 9e9f6d1..2f61a21 100644 --- a/XMonad/Layout/Groups/Examples.hs +++ b/XMonad/Layout/Groups/Examples.hs @@ -322,13 +322,15 @@ data TiledTabsConfig s = TTC { vNMaster :: Int defaultTiledTabsConfig :: TiledTabsConfig DefaultShrinker defaultTiledTabsConfig = TTC 1 0.5 (3/100) 1 0.5 (3/100) shrinkText defaultTheme -fullTabs c = G.group (_tabs c) $ Full ||| _vert c ||| _horiz c +fullTabs c = _tab c $ G.group _tabs $ Full ||| _vert c ||| _horiz c -tallTabs c = G.group (_tabs c) $ _vert c ||| _horiz c ||| Full +tallTabs c = _tab c $ G.group _tabs $ _vert c ||| _horiz c ||| Full -mirrorTallTabs c = G.group (_tabs c) $ _horiz c ||| Full ||| _vert c +mirrorTallTabs c = _tab c $ G.group _tabs $ _horiz c ||| Full ||| _vert c -_tabs c = named "Tabs" $ tabbed (tabsShrinker c) (tabsTheme c) +_tabs = named "Tabs" Simplest + +_tab c l = renamed [CutWordsLeft 1] $ addTabs (tabsShrinker c) (tabsTheme c) l _vert c = named "Vertical" $ Tall (vNMaster c) (vIncrement c) (vRatio c) -- cgit v1.2.3