diff options
| -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) |