Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz

1 files changed, 0 insertions, 74 deletions

diff --git a/Warp.hs b/Warp.hs
deleted file mode 100644
index e53b82c..0000000
--- a/Warp.hs
+++ /dev/null
@@ -1,74 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.Warp
--- Copyright   :  (c) daniel@wagner-home.com
--- License     :  BSD3-style (see LICENSE)
--- 
--- Maintainer  :  daniel@wagner-home.com
--- Stability   :  unstable
--- Portability :  unportable
---
--- This can be used to make a keybinding that warps the pointer to a given
--- window or screen.
---
------------------------------------------------------------------------------
-
-module XMonadContrib.Warp (
-                           -- * Usage
-                           -- $usage
-                           warpToScreen, 
-                           warpToWindow
-                          ) where
-
-import Data.Ratio
-import Data.List
-import Control.Monad.RWS
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
-import XMonad.Operations
-import XMonad
-import XMonad.StackSet as W
-
-{- $usage
-This can be used to make a keybinding that warps the pointer to a given
-window or screen.  For example, I've added the following keybindings to
-my Config.hs:
-
-> , ((modMask,   xK_z     ), warpToWindow (1%2) (1%2)) -- @@ Move pointer to currently focused window
-> 
->-- mod-ctrl-{w,e,r} @@ Move mouse pointer to screen 1, 2, or 3
->   
->   [((modMask .|. controlMask, key), warpToScreen sc (1%2) (1%2))
->       | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]]
-
-Note that warping to a particular screen may change the focus.
--}
-
--- %import XMonadContrib.Warp
--- %keybind , ((modMask,   xK_z     ), warpToWindow (1%2) (1%2)) -- @@ Move pointer to currently focused window
--- %keybindlist ++
--- %keybindlist -- mod-ctrl-{w,e,r} @@ Move mouse pointer to screen 1, 2, or 3
--- %keybindlist [((modMask .|. controlMask, key), warpToScreen sc (1%2) (1%2))
--- %keybindlist     | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]]
-
-fraction :: (Integral a, Integral b) => Rational -> a -> b
-fraction f x = floor (f * fromIntegral x)
-
-warp :: Window -> Position -> Position -> X ()
-warp w x y = withDisplay $ \d -> io $ warpPointer d none w 0 0 0 0 x y
-
-warpToWindow :: Rational -> Rational -> X ()
-warpToWindow h v =
-    withDisplay $ \d ->
-        withFocused $ \w -> do
-            wa <- io $ getWindowAttributes d w
-            warp w (fraction h (wa_width wa)) (fraction v (wa_height wa))
-
-warpToScreen :: ScreenId -> Rational -> Rational -> X ()
-warpToScreen n h v = do
-    root <- asks theRoot
-    (StackSet {current = x, visible = xs}) <- gets windowset
-    whenJust (fmap (screenRect . W.screenDetail) . find ((n==) . W.screen) $ x : xs)
-        $ \r ->
-            warp root (rect_x r + fraction h (rect_width  r))
-                      (rect_y r + fraction v (rect_height r))