From 6dca0b4333eb55ca58c1562768a15e4001f1c463 Mon Sep 17 00:00:00 2001
From: Will Song <incertia@incertia.net>
Date: Thu, 26 Dec 2019 19:12:44 -0500
Subject: [PATCH 1/2] differentiate between floating and tiled in rects and
 only apply `tileWindow` to tiled windows

---
 CHANGES.md               |  3 +++
 src/XMonad/Operations.hs | 10 +++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index f922b9e9..8de42809 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -2,6 +2,9 @@
 
 ## unknown (unknown)
 
+  * Only apply `tileWindow` to tiled windows, so that floating windows are not
+    accidentally resized.
+
 ## 0.15 (September 30, 2018)
 
   * Reimplement `sendMessage` to deal properly with windowset changes made
diff --git a/src/XMonad/Operations.hs b/src/XMonad/Operations.hs
index 2845a6ed..21f1ad9c 100644
--- a/src/XMonad/Operations.hs
+++ b/src/XMonad/Operations.hs
@@ -21,7 +21,7 @@ import XMonad.Layout (Full(..))
 import qualified XMonad.StackSet as W
 
 import Data.Maybe
-import Data.Monoid          (Endo(..),Any(..))
+import Data.Monoid          (Endo(..), Any(..), mconcat)
 import Data.List            (nub, (\\), find)
 import Data.Bits            ((.|.), (.&.), complement, testBit)
 import Data.Ratio
@@ -128,7 +128,7 @@ windows f = do
     -- for each workspace, layout the currently visible workspaces
     let allscreens     = W.screens ws
         summed_visible = scanl (++) [] $ map (W.integrate' . W.stack . W.workspace) allscreens
-    rects <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do
+    rects <- fmap mconcat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do
         let wsp   = W.workspace w
             this  = W.view n ws
             n     = W.tag wsp
@@ -151,11 +151,11 @@ windows f = do
 
         io $ restackWindows d (map fst vs)
         -- return the visible windows for this workspace:
-        return vs
+        return (flt, rs)
 
-    let visible = map fst rects
+    let visible = let (floating, tiled) = rects in map fst floating ++ map fst tiled
 
-    mapM_ (uncurry tileWindow) rects
+    mapM_ (uncurry tileWindow) (snd rects)
 
     whenJust (W.peek ws) $ \w -> do
       fbs <- asks (focusedBorderColor . config)

From ec49c96d9d0bbda8bb8f72fa3961e62ffd65a476 Mon Sep 17 00:00:00 2001
From: Will Song <incertia@incertia.net>
Date: Tue, 31 Dec 2019 22:06:50 -0500
Subject: [PATCH 2/2] move floating windows to the correct place, but do not
 adjust their sizing

---
 src/XMonad/Operations.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/XMonad/Operations.hs b/src/XMonad/Operations.hs
index 21f1ad9c..78fa6e2d 100644
--- a/src/XMonad/Operations.hs
+++ b/src/XMonad/Operations.hs
@@ -155,6 +155,7 @@ windows f = do
 
     let visible = let (floating, tiled) = rects in map fst floating ++ map fst tiled
 
+    mapM_ (uncurry tileWindowFloating) (fst rects)
     mapM_ (uncurry tileWindow) (snd rects)
 
     whenJust (W.peek ws) $ \w -> do
@@ -270,6 +271,14 @@ clearEvents mask = withDisplay $ \d -> io $ do
         more <- checkMaskEvent d mask p
         when more again -- beautiful
 
+-- | tileWindowFloating. Moves and resizes w so that its client area fits inside
+-- the given rectangle. Since this window is floating, we allow the border to
+-- expand outwards, which is the default behavior of X.
+tileWindowFloating :: Window -> Rectangle -> X ()
+tileWindowFloating w r = withDisplay $ \d ->
+    io $ moveResizeWindow d w (rect_x r) (rect_y r)
+                              (rect_width r) (rect_height r)
+
 -- | tileWindow. Moves and resizes w such that it fits inside the given
 -- rectangle, including its border.
 tileWindow :: Window -> Rectangle -> X ()