From 99dbde67688a6831e29015cf017f580d059a58b5 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sun, 10 Feb 2008 08:53:22 +0100 Subject: DecorationMadness: make tunable tabbed layouts respect the Theme decoHeight field darcs-hash:20080210075322-32816-faf155ed2146d92975e733d91d75968e56750be4.gz --- XMonad/Layout/DecorationMadness.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout/DecorationMadness.hs') diff --git a/XMonad/Layout/DecorationMadness.hs b/XMonad/Layout/DecorationMadness.hs index 4f94293..4b939fd 100644 --- a/XMonad/Layout/DecorationMadness.hs +++ b/XMonad/Layout/DecorationMadness.hs @@ -236,7 +236,7 @@ circleSimpleTabbed = decoration shrinkText defaultTheme SimpleTabbed (resizeVert -- possibility of setting a custom shrinker and a custom theme. circleTabbed :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleTabbedDecoration s) (ModifiedLayout ResizeScreen Circle) Window -circleTabbed s t = decoration s t SimpleTabbed (resizeVertical 20 Circle) +circleTabbed s t = decoration s t SimpleTabbed (resizeVertical (fi $ decoHeight t) Circle) -- $accordion @@ -325,7 +325,7 @@ accordionSimpleTabbed = decoration shrinkText defaultTheme SimpleTabbed (resizeV -- possibility of setting a custom shrinker and a custom theme. accordionTabbed :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleTabbedDecoration s) (ModifiedLayout ResizeScreen Accordion) Window -accordionTabbed s t = decoration s t SimpleTabbed (resizeVertical 20 Accordion) +accordionTabbed s t = decoration s t SimpleTabbed (resizeVertical (fi $ decoHeight t) Accordion) -- $tall @@ -425,7 +425,7 @@ tallSimpleTabbed = decoration shrinkText defaultTheme SimpleTabbed (resizeVertic -- possibility of setting a custom shrinker and a custom theme. tallTabbed :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleTabbedDecoration s) (ModifiedLayout ResizeScreen Tall) Window -tallTabbed s t = decoration s t SimpleTabbed (resizeVertical 20 tall) +tallTabbed s t = decoration s t SimpleTabbed (resizeVertical (fi $ decoHeight t) tall) -- $mirror -- In this section you will find decorated layouts based on the @@ -524,4 +524,4 @@ mirrorTallSimpleTabbed = decoration shrinkText defaultTheme SimpleTabbed (resize -- possibility of setting a custom shrinker and a custom theme. mirrorTallTabbed :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleTabbedDecoration s) (ModifiedLayout ResizeScreen (Mirror Tall)) Window -mirrorTallTabbed s t = decoration s t SimpleTabbed (resizeVertical 20 mirrorTall) +mirrorTallTabbed s t = decoration s t SimpleTabbed (resizeVertical (fi $ decoHeight t) mirrorTall) -- cgit v1.2.3