diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-22 16:11:23 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2021-11-22 16:11:23 -0700 |
| commit | 245e135bf003ca9420f21dc82727a9b9b4f0bdcf (patch) | |
| tree | a2cda9bacf6535cc0158a5eeb2ad090df6bf8adf | |
| parent | 6b91a961e2951f40359af1fe2f1702970edac879 (diff) | |
| download | rde-245e135bf003ca9420f21dc82727a9b9b4f0bdcf.tar.gz rde-245e135bf003ca9420f21dc82727a9b9b4f0bdcf.tar.bz2 rde-245e135bf003ca9420f21dc82727a9b9b4f0bdcf.zip | |
Delete newMouse. It's not used.
| -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 |