diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-18 19:09:22 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-18 19:09:22 +0100 |
| commit | 45508f6a368c123d538a9a17343b12b61f13e3a6 (patch) | |
| tree | cd833dd4a9504e75faf06e49d03d80cdbe252941 /XMonad/Layout/DecorationMadness.hs | |
| parent | 78c38194f66da823b31cd89a66977b87b9edd432 (diff) | |
| download | XMonadContrib-45508f6a368c123d538a9a17343b12b61f13e3a6.tar.gz XMonadContrib-45508f6a368c123d538a9a17343b12b61f13e3a6.tar.xz XMonadContrib-45508f6a368c123d538a9a17343b12b61f13e3a6.zip | |
TabBarDecoration: simpleTabBar automatically applies resizeVertical
Added some comments too.
darcs-hash:20080218180922-32816-48097596437bbc30cd3414a7555fa5cf55ecec75.gz
Diffstat (limited to 'XMonad/Layout/DecorationMadness.hs')
| -rw-r--r-- | XMonad/Layout/DecorationMadness.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Layout/DecorationMadness.hs b/XMonad/Layout/DecorationMadness.hs index 611e918..6a616a3 100644 --- a/XMonad/Layout/DecorationMadness.hs +++ b/XMonad/Layout/DecorationMadness.hs @@ -222,7 +222,7 @@ circleDwmStyle s t = decoration s t Dwm Circle -- -- <http://code.haskell.org/~arossato/xmonadShots/circleSimpleTabbed.png> circleSimpleTabbed :: ModifiedLayout (Decoration TabBarDecoration DefaultShrinker) (ModifiedLayout ResizeScreen Circle) Window -circleSimpleTabbed = simpleTabBar (resizeVertical 20 Circle) +circleSimpleTabbed = simpleTabBar Circle -- | Similar to 'circleSimpleTabbed' but with the -- possibility of setting a custom shrinker and a custom theme. @@ -315,7 +315,7 @@ accordionDwmStyle s t = decoration s t Dwm Accordion -- -- <http://code.haskell.org/~arossato/xmonadShots/accordionSimpleTabbed.png> accordionSimpleTabbed :: ModifiedLayout (Decoration TabBarDecoration DefaultShrinker) (ModifiedLayout ResizeScreen Accordion) Window -accordionSimpleTabbed = simpleTabBar (resizeVertical 20 Accordion) +accordionSimpleTabbed = simpleTabBar Accordion -- | Similar to 'accordionSimpleTabbed' but with the -- possibility of setting a custom shrinker and a custom theme. @@ -419,7 +419,7 @@ tallDwmStyle s t = decoration s t Dwm tall -- -- <http://code.haskell.org/~arossato/xmonadShots/tallSimpleTabbed.png> tallSimpleTabbed :: ModifiedLayout (Decoration TabBarDecoration DefaultShrinker) (ModifiedLayout ResizeScreen Tall) Window -tallSimpleTabbed = simpleTabBar (resizeVertical 20 tall) +tallSimpleTabbed = simpleTabBar tall -- | Similar to 'tallSimpleTabbed' but with the -- possibility of setting a custom shrinker and a custom theme. @@ -522,7 +522,7 @@ mirrorTallDwmStyle s t = decoration s t Dwm mirrorTall -- -- <http://code.haskell.org/~arossato/xmonadShots/mirrorTallSimpleTabbed.png> mirrorTallSimpleTabbed :: ModifiedLayout (Decoration TabBarDecoration DefaultShrinker) (ModifiedLayout ResizeScreen (Mirror Tall)) Window -mirrorTallSimpleTabbed = simpleTabBar (resizeVertical 20 mirrorTall) +mirrorTallSimpleTabbed = simpleTabBar mirrorTall -- | Similar to 'mirrorTallSimpleTabbed' but with the -- possibility of setting a custom shrinker and a custom theme. @@ -590,7 +590,7 @@ floatDwmStyle s t = decoration s t Dwm (mouseResize $ windowArrangeAll $ SF (dec -- <http://code.haskell.org/~arossato/xmonadShots/floatSimpleTabbed.png> floatSimpleTabbed :: (Show a, Eq a) => ModifiedLayout (Decoration TabBarDecoration DefaultShrinker) (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a -floatSimpleTabbed = simpleTabBar (mouseResize $ windowArrangeAll $ SF 20) +floatSimpleTabbed = tabBar shrinkText defaultTheme Top (mouseResize $ windowArrangeAll $ SF 20) -- | Same as 'floatSimpleTabbed', but with the possibility of setting a -- custom shrinker and a custom theme. |