From 3a87706dc6193636c8b5c5b37d1ca2d057a22f00 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 28 Mar 2022 10:51:02 -0600
Subject: Move Intercept to RebindKeys. Remove the intercept subsystem as it
 was experimental and I do not have a real use for it anymore.

---
 src/Internal/Keys.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'src/Internal/Keys.hs')

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
-- 
cgit