From 8a87b96dceb52cd3090bd9c2b1c5648f310389b0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 28 Mar 2022 14:05:30 -0600
Subject: add swallow behavior. Add more Chrome bindings.

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

(limited to 'src/Internal')

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 13112cb..b322eb4 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -49,6 +49,7 @@ import Internal.DMenu
 import Internal.PassMenu
 import Internal.Logger
 import Internal.RebindKeys
+import Internal.Swallow
 import Internal.ScreenRotate (screenRotateForward, screenRotateBackward)
 
 type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ())
@@ -322,6 +323,9 @@ keymap = runKeys $ do
       bind xK_o $
         (justMod -|- noMod) $ spawn "library-view.sh"
 
+      bind xK_s $
+        (justMod -|- noMod) toggleSwallowEnabled
+
       bind xK_v $ do
         (justMod -|- noMod) $ spawn "set-volume.sh"
         (shiftMod -|- rawMask shiftMask) $ spawn "set-volume.sh -a"
@@ -420,6 +424,9 @@ mouseMap = runButtons $ do
   bind button14 $ do
     noMod $ subMouse $ do
 
+      bind button3 $
+        noMod $ const (gotoWorkspace 's')
+
       bind button13 $ do
         noMod $ \_ -> click >> CopyWindow.kill1
 
-- 
cgit