Add more keycode bindings for 'u' and 'o' to help navigate tabs.

1 files changed, 17 insertions, 1 deletions

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)