fix(windows): shrink the pull-away reveal to the minimum window height

minimize-window floors at window-min-height (4 lines), leaving roughly a 10% reveal. Bind window-min-height to 1 around it so the reveal opens at the ~2-line floor and the current window keeps almost the whole frame before the windsize arrows take over.

1 files changed, 6 insertions, 1 deletions

diff --git a/modules/ui-navigation.el b/modules/ui-navigation.el
index f53924ebb..c099e0834 100644
--- a/modules/ui-navigation.el
+++ b/modules/ui-navigation.el
@@ -99,7 +99,12 @@ existing split does.  No-op when SIDE is nil."
   (when side
     (let ((new (split-window (selected-window) nil side)))
       (set-window-buffer new (other-buffer (current-buffer) t))
-      (minimize-window new)
+      ;; Shrink the reveal to the smallest window Emacs allows (~2 lines, the
+      ;; mode line) so the current window keeps almost the whole frame; the
+      ;; sticky `windsize' arrows grow the reveal from there.  `minimize-window'
+      ;; floors at `window-min-height' (4 by default), so bind it down to 1.
+      (let ((window-min-height 1))
+        (minimize-window new))
       new)))
 
 (defun cj/window-resize-sticky ()