No more right side window

home.org

@@ -1062,30 +1062,58 @@ content to be.
             (setq child (window-next-sibling child)))
           (reverse result)))
 
-    (defun jf/enforce-right-side-heights (win)
+      (defun jf/window-main-root (&optional frame)
-      (let ((slot-heights '((-1 . 20)))
+        "Return FRAME's main (non-side) window or window subtree."
-            (parent (window-parent win)))
+        (let* ((root (frame-root-window (or frame (selected-frame))))
-        (when parent
+               (children (jf/window-children root)))
-          (let ((children (jf/window-children parent)))
+          (if (seq-some (lambda (w) (window-parameter w 'window-side)) children)
-            (when (> (length children) 1)
+              (seq-find (lambda (w) (not (window-parameter w 'window-side))) children)
-              (cl-loop for child in children
+            root)))
-                       for slot = (window-parameter child 'window-slot)
-                       for height = (alist-get slot slot-heights)
-                       when height do (progn (window-resize child (- height (window-height child)))
-                                             (window-preserve-size child nil t))))))))
 
-    (defun jf/enforce-right-side-width (win)
+      (defun jf/window-leaves (window)
-      "Resize side window WIN so its frame keeps 120 columns for the rest of the frame."
+        "Return the live leaf windows in WINDOW's subtree."
-      (let ((width (max 1 (- (frame-width (window-frame win)) 120))))
+        (if (window-live-p window)
-        (window-resize win (- width (window-width win)) t)))
+            (list window)
+          (mapcan #'jf/window-leaves (jf/window-children window))))
 
-    (defun jf/enforce-right-side-widths (frame)
+      (defun jf/topright-window (windows)
-      "Re-apply `jf/enforce-right-side-width' to all of FRAME's right-side windows."
+        "Return whichever of WINDOWS sits furthest up, then furthest right."
-      (dolist (win (window-list frame 'nomini))
+        (car (sort (copy-sequence windows)
-        (when (eq (window-parameter win 'window-side) 'right)
+                   (lambda (a b)
-          (jf/enforce-right-side-width win))))
+                     (let ((top-a (nth 1 (window-edges a)))
+                           (top-b (nth 1 (window-edges b))))
+                       (if (= top-a top-b)
+                           (> (nth 0 (window-edges a)) (nth 0 (window-edges b)))
+                         (< top-a top-b)))))))
 
-    (add-hook 'window-size-change-functions #'jf/enforce-right-side-widths)
+      (defun jf/display-buffer-right (buffer alist)
+        "Display BUFFER on the right of the main editing area.
+
+  Applies three rules, based on the shape of the frame's non-side windows:
+  1. One window -> split it and show BUFFER in the new right window.
+  2. Two windows side-by-side -> show BUFFER in the right one. If the
+     right window is selected, swap the two windows first (keeping
+     focus on the buffer that was active) so BUFFER doesn't evict it.
+  3. Any other layout -> show BUFFER in the upper-rightmost window."
+        (let ((main (jf/window-main-root)))
+          (cond
+           ((window-live-p main)
+            (let* ((new (split-window main nil 'right))
+                   (width (max 1 (- (frame-width) 120)))
+                   (delta (window-resizable new (- width (window-width new)) t)))
+              (window-resize new delta t)
+              (window--display-buffer buffer new 'window alist)))
+           ((and (window-left-child main)
+                 (= (length (jf/window-children main)) 2)
+                 (seq-every-p #'window-live-p (jf/window-children main)))
+            (let* ((left (window-left-child main))
+                   (right (window-next-sibling left)))
+              (when (eq (selected-window) right)
+                (window-swap-states left right)
+                (select-window left))
+              (window--display-buffer buffer right 'reuse alist)))
+           (t
+            (window--display-buffer buffer (jf/topright-window (jf/window-leaves main)) 'reuse alist)))))
 
       ;; (require 'perspective)
       ;; (setopt persp-mode-prefix-key (kbd "C-x t"))
@@ -1253,25 +1281,10 @@ falls back to the outer one first."
                    "new-pullreq"
                    "\\*claude:.*"
                    "\\*Man .*"
-                 "\\*List .*")
+                   "\\*List .*"
-             (display-buffer-in-side-window)
+                   "\\*Embark Actions\\*"
-             (side . right)
-             (slot . 0)
-             (window-width . jf/enforce-right-side-width)
-             (window-height . jf/enforce-right-side-heights)
-             (preserve-size . (nil . nil))
-             (window-parameters (no-delete-other-windows . t)
-                                (no-other-window . t)))
-            ((or "\\*Embark Actions\\*"
                    "\\*eldoc\\*")
-             (display-buffer-in-side-window)
+               (jf/display-buffer-right))))
-             (side . right)
-             (slot . -1)
-             (window-width . jf/enforce-right-side-width)
-             (window-height . jf/enforce-right-side-heights)
-             (preserve-size . (nil . t))
-             (window-parameters (no-delete-other-windows . t)
-                                (no-other-window . t)))))
 
       (setopt window-persistent-parameters
               (cl-list* '(no-delete-other-windows . writable)