aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout/LayoutHints.hs
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-05-19 03:33:50 +0200
committerAdam Vogt <vogt.adam@gmail.com>2009-05-19 03:33:50 +0200
commitfa679f62313a7de0d97d24793fd6a9821a1718da (patch)
tree2c3ee2f6c0c8bf2e5857fc067d022e0ba00813ca /XMonad/Layout/LayoutHints.hs
parent6420f7edf75f64cb050cb867809d62c4de7f41ff (diff)
downloadXMonadContrib-fa679f62313a7de0d97d24793fd6a9821a1718da.tar.gz
XMonadContrib-fa679f62313a7de0d97d24793fd6a9821a1718da.tar.xz
XMonadContrib-fa679f62313a7de0d97d24793fd6a9821a1718da.zip
Remove excess whitespace from L.LayoutHints
Ignore-this: b4bb5b6aeba95be047a102d07d916c48 darcs-hash:20090519013350-1499c-96b69a8199ff74d9524895e580d0adb7ae8da5a3.gz
Diffstat (limited to 'XMonad/Layout/LayoutHints.hs')
-rw-r--r--XMonad/Layout/LayoutHints.hs6
1 files changed, 3 insertions, 3 deletions
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)