diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2021-11-22 22:08:15 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 4a225d2819cb5c891a36694bb8552337b36beae0 (patch) | |
| tree | 3e4c48e0b90c51e17eca63f70c5b078d35713e24 /src/Internal/Keys.hs | |
| parent | 36af79c4549cd8b491bc127a8034cbaee5fe50f8 (diff) | |
| download | rde-4a225d2819cb5c891a36694bb8552337b36beae0.tar.gz rde-4a225d2819cb5c891a36694bb8552337b36beae0.tar.bz2 rde-4a225d2819cb5c891a36694bb8552337b36beae0.zip | |
Added a couple of bindings.
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index dec7f44..439986c 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -148,7 +148,7 @@ keymap = runKeys $ do bind xK_h $ do justMod $ windows W.focusDown shiftMod $ windows W.swapDown - controlMod $ rotAllDown + controlMod rotAllDown bind xK_j $ do justMod $ sendMessage ShrinkZoom @@ -159,7 +159,7 @@ keymap = runKeys $ do bind xK_l $ do justMod $ windows W.focusUp shiftMod $ windows W.swapUp - controlMod $ rotAllUp + controlMod rotAllUp altMod $ spawn "xsecurelock" bind xK_minus $ do @@ -173,6 +173,9 @@ keymap = runKeys $ do bind xK_n $ do justMod $ relativeWorkspaceShift next + bind xK_p $ do + justMod $ relativeWorkspaceShift prev + bind xK_plus $ do justMod $ sendMessage (IncMasterN 1) shiftMod $ withFocused $ sendMessage . expandWindowAlt @@ -204,6 +207,10 @@ keymap = runKeys $ do bind xK_z $ do justMod $ subkeys $ do + bind xK_z $ do + noMod -|- justMod $ sendMessage ToggleZoom + + -- Z is reserved to create sub keybindings to do various things. -- I don't really use these at the moment. bind xK_h $ do @@ -240,7 +247,7 @@ mouseMap = runButtons $ do justMod $ const $ spawn "spotify-control next" applyKeys :: XConfig l -> IO (XConfig l) -applyKeys config@(XConfig {modMask = modm}) = +applyKeys config = return $ config { keys = keymap, mouseBindings = mouseMap } click :: X () @@ -251,4 +258,4 @@ click = do modifyWindowBorder :: Integer -> SpacingModifier modifyWindowBorder i = ModifyWindowBorder $ \(Border a b c d) -> - (Border (a + i) (b + i) (c + i) (d + i)) + Border (a + i) (b + i) (c + i) (d + i) |