diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 14:14:27 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 14:14:27 +0100 |
| commit | 85970665cd0728e4da535d72399bc1b95ea622fc (patch) | |
| tree | 2624f86437262bcfe2306d2e5a076cbe27846176 /XMonad | |
| parent | 062dc06f56f11a8830c208f402822297b57bc7dc (diff) | |
| download | XMonadContrib-85970665cd0728e4da535d72399bc1b95ea622fc.tar.gz XMonadContrib-85970665cd0728e4da535d72399bc1b95ea622fc.tar.xz XMonadContrib-85970665cd0728e4da535d72399bc1b95ea622fc.zip | |
DecorationMadness: comment only
darcs-hash:20080210131427-32816-65c7d85cb78ddbcfa5f4f89cb944288afcc6fa9d.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/DecorationMadness.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/XMonad/Layout/DecorationMadness.hs b/XMonad/Layout/DecorationMadness.hs index 874c276..81b38cc 100644 --- a/XMonad/Layout/DecorationMadness.hs +++ b/XMonad/Layout/DecorationMadness.hs @@ -561,7 +561,7 @@ floatSimpleDefault :: ModifiedLayout (Decoration DefaultDecoration DefaultShrink (ModifiedLayout WindowArranger SimpleFloat) a floatSimpleDefault = decoration shrinkText defaultTheme DefaultDecoration (windowArrangeAll $ SF 20) --- | Same as 'defaultFloat', but with the possibility of setting a +-- | Same as 'floatSimpleDefault', but with the possibility of setting a -- custom shrinker and a custom theme. floatDefault :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration DefaultDecoration s) @@ -578,7 +578,7 @@ floatSimpleDwmStyle :: Eq a => ModifiedLayout (Decoration DwmStyle DefaultShrink (ModifiedLayout WindowArranger SimpleFloat) a floatSimpleDwmStyle = decoration shrinkText defaultTheme Dwm (windowArrangeAll $ SF 20) --- | Same as 'dwmStyleFloat', but with the possibility of setting a +-- | Same as 'floatSimpleDwmStyle', but with the possibility of setting a -- custom shrinker and a custom theme. floatDwmStyle :: (Eq a, Shrinker s) => s -> Theme -> ModifiedLayout (Decoration DwmStyle s) @@ -595,10 +595,9 @@ floatSimpleTabbed :: Eq a => ModifiedLayout (Decoration SimpleTabbedDecoration D (ModifiedLayout WindowArranger SimpleFloat) a floatSimpleTabbed = decoration shrinkText defaultTheme SimpleTabbed (windowArrangeAll $ SF 20) --- | Same as 'tabbedFloat', but with the possibility of setting a +-- | Same as 'floatSimpleTabbed', but with the possibility of setting a -- custom shrinker and a custom theme. floatTabbed :: (Eq a, Shrinker s) => s -> Theme -> ModifiedLayout (Decoration SimpleTabbedDecoration s) (ModifiedLayout WindowArranger SimpleFloat) a floatTabbed s c = decoration s c SimpleTabbed (windowArrangeAll $ SF (decoHeight c)) - |