diff options
| author | moserq <moserq@gmail.com> | 2010-01-20 11:32:40 +0100 |
|---|---|---|
| committer | moserq <moserq@gmail.com> | 2010-01-20 11:32:40 +0100 |
| commit | 881fc77dae6108579761e4fa8281b418cde089cc (patch) | |
| tree | 14c71a5c5ec0a9dfe36681a09f1c7bea2ad26846 /XMonad/Layout/Groups | |
| parent | 64994e7a0844cf56d1b693a2d937ae04379c6b6d (diff) | |
| download | XMonadContrib-881fc77dae6108579761e4fa8281b418cde089cc.tar.gz XMonadContrib-881fc77dae6108579761e4fa8281b418cde089cc.tar.xz XMonadContrib-881fc77dae6108579761e4fa8281b418cde089cc.zip | |
X.L.G.Examples: improve the tabs of tiledTabs
Ignore-this: 58a449c35e1d4a30ecfdf80f015d2dee
darcs-hash:20100120103240-88fd0-05ee05c0128e2622f5c295b97946caefaf6884b9.gz
Diffstat (limited to 'XMonad/Layout/Groups')
| -rw-r--r-- | XMonad/Layout/Groups/Examples.hs | 10 |
1 files changed, 6 insertions, 4 deletions
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) |