From 86e5ab0c39795ab13c8e60bd8a3853a1ac9c2147 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 18 Oct 2024 13:57:41 -0600
Subject: Add more keycode bindings for 'u' and 'o' to help navigate tabs.

---
 src/Rahm/Desktop/Keys.hs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'src/Rahm/Desktop')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index b8df00f..ae5efe9 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -205,6 +205,12 @@ kcK = 45
 kcL :: KeyCode
 kcL = 46
 
+kcU :: KeyCode
+kcU = 30
+
+kcO :: KeyCode
+kcO = 32
+
 kcSpace :: KeyCode
 kcSpace = 65
 
@@ -1324,6 +1330,15 @@ windowSpecificBindings config = do
         rawMask (mod3Mask .|. mods) $
           emitKey (mods, xK_Right)
 
+      bind kcU $
+        rawMask mod3Mask $
+          emitKey (controlMask .|. shiftMask, xK_Tab)
+          
+      bind kcO $
+        rawMask mod3Mask $
+          emitKey (controlMask, xK_Tab)
+
+
     forM_ [0, shiftMask] $ \m -> do
       bind xK_braceleft $
         rawMask (m .|. mod3Mask) $
@@ -1381,7 +1396,8 @@ windowSpecificBindings config = do
     --   Ctrl+^ -> Home
     --
     --   Ctrl+d -> Delete current tab.
-
+    -- The following are bindings that send keystrokes to the focused window. This
+    -- makes navigating with arrow keys and whatnot much easier.
     bind xK_u $
       rawMask controlMask $
         emitKey (controlMask .|. shiftMask, xK_BackSpace)
-- 
cgit