From 53cc84ffd9212c2253e33cab1267cfcd272f5e11 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Fri, 5 Jan 2024 13:29:32 -0700
Subject: Add ability to move floating windows around using mod+shift+{l,h}

---
 src/Rahm/Desktop/Keys.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/Rahm/Desktop/Keys.hs')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 5aad26d..7bceeef 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -492,7 +492,9 @@ bindings = do
 
     shiftMod $
       doc "Swap the current window with the next one down in the stack" $
-        windows W.swapDown
+        withFocused $ \w ->
+          withWindowsUnpinned [w] $
+            windows W.swapDownOrMirror
 
     controlMod $
       doc
@@ -522,7 +524,9 @@ bindings = do
 
     shiftMod $
       doc "Swap the currently focused window with the next window in the stack." $
-        windows W.swapUp
+        withFocused $ \w ->
+          withWindowsUnpinned [w] $
+            windows W.swapUpOrMirror
 
     controlMod $
       doc
-- 
cgit