From fa679f62313a7de0d97d24793fd6a9821a1718da Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Tue, 19 May 2009 03:33:50 +0200 Subject: Remove excess whitespace from L.LayoutHints Ignore-this: b4bb5b6aeba95be047a102d07d916c48 darcs-hash:20090519013350-1499c-96b69a8199ff74d9524895e580d0adb7ae8da5a3.gz --- XMonad/Layout/LayoutHints.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/LayoutHints.hs') diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs index 953f3aa..c952cf2 100644 --- a/XMonad/Layout/LayoutHints.hs +++ b/XMonad/Layout/LayoutHints.hs @@ -42,7 +42,7 @@ import Control.Arrow ( second ) -- -- Or, to center the adapted window in its available area: -- --- > myLayouts = layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2)) +-- > myLayouts = layoutHintsWithPlacement (0.5, 0.5) (Tall 1 (3/100) (1/2)) -- > ||| Full ||| etc.. -- -- For more detailed instructions on editing the layoutHook see: @@ -57,7 +57,7 @@ layoutHints = ModifiedLayout (LayoutHints (0, 0)) -- originally assigned area according to the @rx@ and @ry@ parameters. -- (0, 0) places the window at the top left, (1, 0) at the top right, (0.5, 0.5) -- at the center, etc. -layoutHintsWithPlacement :: (LayoutClass l a) => (Double, Double) +layoutHintsWithPlacement :: (LayoutClass l a) => (Double, Double) -> l a -> ModifiedLayout LayoutHints l a layoutHintsWithPlacement rs = ModifiedLayout (LayoutHints rs) @@ -77,7 +77,7 @@ instance LayoutModifier LayoutHints Window where return (w, if isInStack s w then Rectangle a b c' d' else r) -- | @placeRectangle (rx, ry) r0 r@ will return a new rectangle with the same dimensions --- as @r@, but positioned inside of @r0@ as specified by the (rx, ry) parameters (see +-- as @r@, but positioned inside of @r0@ as specified by the (rx, ry) parameters (see -- 'layoutHintsWithPlacement'). placeRectangle :: RealFrac r => (r, r) -> Rectangle -> Rectangle -> Rectangle placeRectangle (rx, ry) (Rectangle x0 y0 w h) (Rectangle _ _ dx dy) -- cgit v1.2.3