aboutsummaryrefslogtreecommitdiff
path: root/src/Internal/Keys.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Internal/Keys.hs')
-rw-r--r--src/Internal/Keys.hs8
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