twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 04:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

make mouse bindings configurable

Browse Source
This commit is contained in:
Jason Creighton
2007-06-02 04:06:47 +00:00
parent 0be589ae8c
commit 72a50ead89
4 changed files with 69 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Config.hs
View File

@@ -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))
]