From 937252ba0b3375ee20598e364ca170e7c80f1a3a Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 20 Nov 2022 17:49:23 -0700
Subject: Remove border-width change for shifting windows.

---
 src/Rahm/Desktop/Keys.hs | 39 +++++++++++++++++++--------------------
 1 file changed, 19 insertions(+), 20 deletions(-)

(limited to 'src/Rahm')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index b875b9d..eae1c34 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -477,26 +477,25 @@ keymap = runKeys $ do
         locations <- fromMaybe [] <$> runMaybeT readNextLocationSet
         let locationWindows = mapMaybe locationWindow locations
 
-        withBorderWidth 4 locationWindows $
-          withBorderColor "#00ffff" locationWindows $ do
-            runMaybeT_ $ do
-              if doSwap
-                then do
-                  otherWindows <-
-                    lift $ mapMaybe locationWindow . fromMaybe [] <$>
-                      runMaybeT readNextLocationSet
-                  lift $ windows $
-                    W.swapWindows (zip locationWindows otherWindows)
-                else do
-                  workspace <- readNextWorkspace
-                  mapM_ (lift . moveLocationToWorkspaceFn workspace) locations
-
-              lift $ setAlternateWindows locationWindows
-              forM_ locations $ \loc ->
-                case locationWindow loc of
-                  Nothing -> return ()
-                  Just win -> do
-                    lift $ setAlternateWorkspace win (locationWorkspace loc)
+        withBorderColor "#00ffff" locationWindows $ do
+          runMaybeT_ $ do
+            if doSwap
+              then do
+                otherWindows <-
+                  lift $ mapMaybe locationWindow . fromMaybe [] <$>
+                    runMaybeT readNextLocationSet
+                lift $ windows $
+                  W.swapWindows (zip locationWindows otherWindows)
+              else do
+                workspace <- readNextWorkspace
+                mapM_ (lift . moveLocationToWorkspaceFn workspace) locations
+
+            lift $ setAlternateWindows locationWindows
+            forM_ locations $ \loc ->
+              case locationWindow loc of
+                Nothing -> return ()
+                Just win -> do
+                  lift $ setAlternateWorkspace win (locationWorkspace loc)
 
     altMod $ spawnX "sudo -A systemctl suspend && xsecurelock"
 
-- 
cgit