From c67f419e240c5833de582278133067778da34635 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@cis.upenn.edu>
Date: Fri, 5 Jun 2009 05:01:13 +0200
Subject: X.H.ManageHelpers: add two new helper functions, doFloatDep and
 doFloatAt

darcs-hash:20090605030113-1e371-6f55d154e061c7fcfe3ad68a11162f7cb655d48d.gz
---
 XMonad/Hooks/ManageHelpers.hs | 32 +++++++++++++++++++++++---------
 1 file changed, 23 insertions(+), 9 deletions(-)

(limited to 'XMonad/Hooks/ManageHelpers.hs')

diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs
index fc3bbc7..f2444a0 100644
--- a/XMonad/Hooks/ManageHelpers.hs
+++ b/XMonad/Hooks/ManageHelpers.hs
@@ -42,6 +42,8 @@ module XMonad.Hooks.ManageHelpers (
     doFullFloat,
     doCenterFloat,
     doSideFloat,
+    doFloatAt,
+    doFloatDep,
     doHideIgnore
 ) where
 
@@ -185,19 +187,31 @@ doRectFloat r = ask >>= \w -> doF (W.float w r)
 doFullFloat :: ManageHook
 doFullFloat = doRectFloat $ W.RationalRect 0 0 1 1
 
+-- | Floats a new window using a rectangle computed as a function of
+--   the rectangle that it would have used by default.
+doFloatDep :: (W.RationalRect -> W.RationalRect) -> ManageHook
+doFloatDep move = ask >>= \w -> doF . W.float w . move . snd =<< liftX (floatLocation w)
+
+-- | Floats a new window with its original size, and its top left
+--   corner at a specific point on the screen (both coordinates should
+--   be in the range 0 to 1).
+doFloatAt :: Rational -> Rational -> ManageHook
+doFloatAt x y = doFloatDep move
+  where
+    move (W.RationalRect _ _ w h) = W.RationalRect x y w h
+
 -- | Floats a new window with its original size on the specified side of a
 -- screen
 doSideFloat :: Side -> ManageHook
-doSideFloat side = ask >>= \w -> doF . W.float w . move . snd =<< liftX (floatLocation w)
-    where
+doSideFloat side = doFloatDep move
+  where
     move (W.RationalRect _ _ w h) = W.RationalRect cx cy w h
-        where
-        cx =      if side `elem` [SC,C ,NC] then (1-w)/2
-             else if side `elem` [SW,CW,NW] then 0
-             else {- side `elem` [SE,CE,NE] -}   1-w
-        cy =      if side `elem` [CE,C ,CW] then (1-h)/2
-             else if side `elem` [NE,NC,NW] then 0
-             else {- side `elem` [SE,SC,SW] -}   1-h
+      where cx =      if side `elem` [SC,C ,NC] then (1-w)/2
+                 else if side `elem` [SW,CW,NW] then 0
+                 else {- side `elem` [SE,CE,NE] -}   1-w
+            cy =      if side `elem` [CE,C ,CW] then (1-h)/2
+                 else if side `elem` [NE,NC,NW] then 0
+                 else {- side `elem` [SE,SC,SW] -}   1-h
 
 -- | Floats a new window with its original size, but centered.
 doCenterFloat :: ManageHook
-- 
cgit v1.2.3