aboutsummaryrefslogtreecommitdiffstats
path: root/Warp.hs
diff options
context:
space:
mode:
authorAlex Tarkovsky <alextarkovsky@gmail.com>2007-09-05 22:01:28 +0200
committerAlex Tarkovsky <alextarkovsky@gmail.com>2007-09-05 22:01:28 +0200
commita2ceae3cf6f302de2420f072238a29c9fbe8d974 (patch)
treebdd6ec53b679432c8a88a1cb60e4bc437b86a3dd /Warp.hs
parentbea7c7116f233a785e4c96a1d577ca2797fe70bf (diff)
downloadXMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.gz
XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.xz
XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.zip
Docstring parser for generating xmonad build configs with default settings for extensions
darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz
Diffstat (limited to 'Warp.hs')
-rw-r--r--Warp.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Warp.hs b/Warp.hs
index df186e6..f18b96b 100644
--- a/Warp.hs
+++ b/Warp.hs
@@ -45,6 +45,13 @@ my Config.hs:
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)