From 352226ebeeaa846238f8ce8799479b46848a5019 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sat, 2 Jun 2007 06:06:47 +0200
Subject: make mouse bindings configurable

darcs-hash:20070602040647-b9aa7-d7bad13c4919882368872a88f04a678308162be6
---
 Config.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index f70f0e5..98f30eb 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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))
+    ]
-- 
cgit v1.2.3