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 'Config.hs')
-rw-r--r-- | Config.hs | 7 |
1 files changed, 7 insertions, 0 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)) + ] |