From 85970665cd0728e4da535d72399bc1b95ea622fc Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sun, 10 Feb 2008 14:14:27 +0100 Subject: DecorationMadness: comment only darcs-hash:20080210131427-32816-65c7d85cb78ddbcfa5f4f89cb944288afcc6fa9d.gz --- XMonad/Layout/DecorationMadness.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout/DecorationMadness.hs') 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)) - -- cgit v1.2.3