diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 08:53:22 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 08:53:22 +0100 |
| commit | 99dbde67688a6831e29015cf017f580d059a58b5 (patch) | |
| tree | f519791d7ff155a457a370ae606e52f55ea53cac /XMonad/Layout/DecorationMadness.hs | |
| parent | e1a8859eca6329e92df76148f9a4146714d50716 (diff) | |
| download | XMonadContrib-99dbde67688a6831e29015cf017f580d059a58b5.tar.gz XMonadContrib-99dbde67688a6831e29015cf017f580d059a58b5.tar.xz XMonadContrib-99dbde67688a6831e29015cf017f580d059a58b5.zip | |
DecorationMadness: make tunable tabbed layouts respect the Theme decoHeight field
darcs-hash:20080210075322-32816-faf155ed2146d92975e733d91d75968e56750be4.gz
Diffstat (limited to 'XMonad/Layout/DecorationMadness.hs')
| -rw-r--r-- | XMonad/Layout/DecorationMadness.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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) |