diff options
author | Jason Creighton <jcreigh@gmail.com> | 2007-06-02 06:06:47 +0200 |
---|---|---|
committer | Jason Creighton <jcreigh@gmail.com> | 2007-06-02 06:06:47 +0200 |
commit | a770fa33ff5f5208f1c1a5e5d6186bca8309b6f6 (patch) | |
tree | e5cf4a42a14f3158aedc7228a2cdb01a6f0f3d1e /Config.hs | |
parent | e6cf6f48441af560bf64d7cc5644bb034b8b39ab (diff) | |
download | xmonad-a770fa33ff5f5208f1c1a5e5d6186bca8309b6f6.tar.gz xmonad-a770fa33ff5f5208f1c1a5e5d6186bca8309b6f6.tar.xz xmonad-a770fa33ff5f5208f1c1a5e5d6186bca8309b6f6.zip |
make mouse bindings configurable
darcs-hash:20070602040647-b9aa7-d7bad13c4919882368872a88f04a678308162be6.gz
Diffstat (limited to '')
-rw-r--r-- | Config.hs | 7 | ||||
-rw-r--r-- | Config.hs-boot | 3 |
2 files changed, 7 insertions, 3 deletions
@@ -141,3 +141,10 @@ keys = M.fromList $ [((m .|. modMask, key), screenWorkspace sc >>= f) | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] , (f, m) <- [(view, 0), (shift, shiftMask)]] + +mouseBindings :: M.Map (KeyMask, Button) (Window -> X ()) +mouseBindings = M.fromList $ + [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w)) + , ((modMask, button2), (\w -> focus w >> swapMaster)) + , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) + ] diff --git a/Config.hs-boot b/Config.hs-boot index ca01d46..2d66ae1 100644 --- a/Config.hs-boot +++ b/Config.hs-boot @@ -1,6 +1,3 @@ module Config where import Graphics.X11.Xlib.Types (Dimension) -import Graphics.X11.Xlib (KeyMask) borderWidth :: Dimension -modMask :: KeyMask -numlockMask :: KeyMask |