From 4b33192b56ea0f84f97d47e7656c186ec6ab7a68 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 25 Mar 2022 15:32:06 -0600
Subject: Added a way to do per-window bindings in XMonad.

This is particularly great for Chrome where one cannot remap
the built-in bindings and some built-in bindings are really dumb
(looking at you Ctrl+w!!).
---
 src/Internal/Keys.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 1118788..c40c346 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -1,6 +1,7 @@
 {-# 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;
@@ -246,6 +247,12 @@ keymap = runKeys $ do
             then mediaPrev
             else mediaNext
 
+      bind xK_t $
+
+        (justMod -|- noMod) $
+          setIntercept (modMask config, xK_i) $
+            logs $ "Intercepted!"
+ 
   bind xK_r $ do
     justMod runDMenu
     shiftMod $ sendMessage DoRotate
@@ -470,4 +477,7 @@ click = do
 
 modifyWindowBorder :: Integer -> SpacingModifier
 modifyWindowBorder i = ModifyWindowBorder $ \(Border a b c d) ->
-  Border (a + i) (b + i) (c + i) (d + i)
+  Border (clip $ a + i) (clip $ b + i) (clip $ c + i) (clip $ d + i)
+
+  where clip i | i < 0 = 0
+        clip i | otherwise = i
-- 
cgit