From 4a225d2819cb5c891a36694bb8552337b36beae0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 22 Nov 2021 22:08:15 -0700
Subject: Added a couple of bindings.

---
 src/Internal/Keys.hs | 15 +++++++++++----
 1 file 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)
-- 
cgit