Remove border-width change for shifting windows.

1 files changed, 19 insertions, 20 deletions

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"