diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/Keys.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index ae2b9bd..88b90dc 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -221,21 +221,6 @@ applyKeys :: XConfig l -> IO (XConfig l) applyKeys config@(XConfig {modMask = modm}) = return $ config { keys = keymap, mouseBindings = mouseMap } -newMouse :: IO (XConfig l -> Map (KeyMask, Button) (Window -> X ())) -newMouse = - return $ \config@(XConfig {modMask = modm}) -> - Map.fromList [ - ((modm, button1), \w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster) - , ((modm, button2), windows . (W.shiftMaster .) . W.focusWindow) - , ((modm, button3), \w -> focus w >> mouseResizeWindow w >> windows W.shiftMaster) - - , ((modm, 6), const (relativeWorkspaceShift prev)) - , ((modm, 7), const (relativeWorkspaceShift next)) - - , ((modm, 8), const (relativeWorkspaceShift prev)) - , ((modm, 9), const (relativeWorkspaceShift next)) - ] - click :: X () click = do (dpy, root) <- asks $ (,) <$> display <*> theRoot |