From 45508f6a368c123d538a9a17343b12b61f13e3a6 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 18 Feb 2008 19:09:22 +0100
Subject: TabBarDecoration: simpleTabBar automatically applies resizeVertical

Added some comments too.

darcs-hash:20080218180922-32816-48097596437bbc30cd3414a7555fa5cf55ecec75.gz
---
 XMonad/Layout/DecorationMadness.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'XMonad/Layout/DecorationMadness.hs')

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.
-- 
cgit v1.2.3