diff options
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 18 |
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) |