Reverse keybindings between xK_x and Space,xK_x

1 files changed, 24 insertions, 24 deletions

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 3655e3c..5801808 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -703,23 +703,12 @@ bindings = do
     altMod $ spawnX "sudo -A systemctl suspend && xsecurelock"
 
   bind xK_x $ do
-    shiftMod $
-      doc "Reset the holes" $ do
-        logs Debug "reset hole"
-        sendMessage resetHole
-        logs Debug "/reset hole"
-
     justMod $
-      doc "Add hole next to the current window" $ do
-        logs Debug "Add hole"
-        withFocused $ \foc ->
-          withWindowSet $ \ws -> do
-            logs Debug "/Add hole at %s" (show foc)
-            whenJust (W.windowTilePosition foc ws) $ \tp -> do
-              logs Debug "Tile position: %s" (show tp)
-              (X.broadcastMessage . addHole) tp
-              refresh
-        logs Debug "/Add hole"
+      doc "Toggles respect for struts." $
+        sendMessage ToggleStruts
+    shiftMod $
+      doc "Remove the border from the focused window" $
+        withFocused $ setBorderWidth 0 . (: [])
 
   bind xK_space $ do
     justMod $
@@ -765,14 +754,6 @@ bindings = do
               doc "Jump to the middle layout." $
                 sendMessage (toIndexedLayout (nLayouts `div` 2))
 
-          bind xK_x $ do
-            justMod $
-              doc "Toggles respect for struts." $
-                sendMessage ToggleStruts
-            shiftMod $
-              doc "Remove the border from the focused window" $
-                withFocused $ setBorderWidth 0 . (: [])
-
           bind xK_g $
             (noMod -|- justMod) $
               doc
@@ -793,6 +774,25 @@ bindings = do
                           [' '] -> restoreTheater Nothing
                           _ -> return ()
 
+          bind xK_x $ do
+            shiftMod $
+              doc "Reset the holes" $ do
+                logs Debug "reset hole"
+                sendMessage resetHole
+                logs Debug "/reset hole"
+
+            justMod $
+              doc "Add hole next to the current window" $ do
+                logs Debug "Add hole"
+                withFocused $ \foc ->
+                  withWindowSet $ \ws -> do
+                    logs Debug "/Add hole at %s" (show foc)
+                    whenJust (W.windowTilePosition foc ws) $ \tp -> do
+                      logs Debug "Tile position: %s" (show tp)
+                      (X.broadcastMessage . addHole) tp
+                      refresh
+                logs Debug "/Add hole"
+
           let spaceResize = repeatable $ do
                 bind xK_bracketright $ do
                   noMod $