diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-22 16:11:23 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 325fc6952238f58260e570f3d2a4196b503ecbae (patch) | |
| tree | fd3004e73029a272eba357ca00e184ea4c3d4d07 /src | |
| parent | d2c7a351c0d70ed6fc14590640eb277a15b01333 (diff) | |
| download | rde-325fc6952238f58260e570f3d2a4196b503ecbae.tar.gz rde-325fc6952238f58260e570f3d2a4196b503ecbae.tar.bz2 rde-325fc6952238f58260e570f3d2a4196b503ecbae.zip | |
Delete newMouse. It's not used.
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 |