twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.L.G.Examples: improve the tabs of tiledTabs

Browse Source
This commit is contained in:
moserq 2010-01-20 10:32:40 +00:00
parent 0b4c57d769
commit ea10cbbbd8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Layout/Groups/Examples.hs
View File

@ -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)