diff options
| author | Josh Rahm <rahm@google.com> | 2022-03-28 10:51:02 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 6ecbc80109cd0136518cddb23bf26f057a39308d (patch) | |
| tree | 47cff87ba7ae9b2e1dc1ccc00013b4ad2f99e0ca /src/Internal/Keys.hs | |
| parent | db91a7d1f64d244106144cfb9e8d26c3d8aaccbe (diff) | |
| download | rde-6ecbc80109cd0136518cddb23bf26f057a39308d.tar.gz rde-6ecbc80109cd0136518cddb23bf26f057a39308d.tar.bz2 rde-6ecbc80109cd0136518cddb23bf26f057a39308d.zip | |
Move Intercept to RebindKeys. Remove the intercept subsystem as it was experimental and I do not have a real use for it anymore.
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index aeb3602..9a45f7e 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -1,7 +1,6 @@ {-# LANGUAGE RankNTypes #-} module Internal.Keys (applyKeys) where -import Internal.Intercept (setIntercept) import Control.Monad.Loops (iterateWhile) import Control.Monad.Fix (fix) import Graphics.X11.ExtraTypes.XF86; @@ -46,6 +45,7 @@ import Internal.Lib import Internal.DMenu import Internal.PassMenu import Internal.Logger +import Internal.RebindKeys import Internal.ScreenRotate (screenRotateForward, screenRotateBackward) type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ()) @@ -246,12 +246,6 @@ keymap = runKeys $ do if (x' - x) < 0 then mediaPrev else mediaNext - - bind xK_t $ - - (justMod -|- noMod) $ - setIntercept (modMask config, xK_i) $ - logs $ "Intercepted!" bind xK_r $ do justMod runDMenu |