From 7e8f771408b7051066fb91fa9c68e80fa52405f7 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 20 Jun 2026 02:46:52 -0400
Subject: feat(windows): dock companion panels by a shared min-column rule

The F9 agent always docked as a right-side column on a landscape frame. On this 138-column frame that left ~68-column panes, too cramped to read code and the agent side by side. The F12 terminal and F10 playlist hardcoded a bottom split with no width-aware path.

I added cj/preferred-dock-direction and the cj/window-dock-min-columns defcustom (default 80) to the window-geometry lib: dock side-by-side only when the narrower pane keeps at least the minimum width, otherwise stack below. All three toggles now route through it. F9 drops its pixel-aspect rule. F12 and F10 gain a right-column width default and become adaptive. F10 keeps width and height size memory in separate vars so a resize on one axis doesn't leak to the other.
---
 modules/term-config.el | 43 +++++++++++++++++++++++++++++++++++--------
 1 file changed, 35 insertions(+), 8 deletions(-)

(limited to 'modules/term-config.el')

diff --git a/modules/term-config.el b/modules/term-config.el
index fe2ead409..33f54d75a 100644
--- a/modules/term-config.el
+++ b/modules/term-config.el
@@ -279,10 +279,34 @@ run its own project-named tmux session instead of a bare, auto-named one.
 ;; which ai-term.el owns via F9.
 
 (defcustom cj/term-toggle-window-height 0.7
-  "Default fraction of frame height for the F12 terminal window."
+  "Default fraction of frame height for the F12 terminal window.
+Used as the size fallback when F12 docks the terminal as a bottom split."
   :type 'number
   :group 'term)
 
+(defcustom cj/term-toggle-window-width 0.5
+  "Default fraction of frame width for the F12 terminal window.
+Used as the size fallback when F12 docks the terminal as a right-side
+column (see `cj/--term-toggle-default-direction')."
+  :type 'number
+  :group 'term)
+
+(defun cj/--term-toggle-default-direction ()
+  "Return the default dock direction for the F12 terminal: `right' or `below'.
+Docks as a right-side column only when a side-by-side split would leave
+both panes at least `cj/window-dock-min-columns' wide (the terminal's
+share is `cj/term-toggle-window-width'); otherwise stacks below.  See
+`cj/preferred-dock-direction'."
+  (cj/preferred-dock-direction (frame-width) cj/term-toggle-window-width))
+
+(defun cj/--term-toggle-default-size (direction)
+  "Return the default size fraction paired with DIRECTION for the F12 terminal.
+`cj/term-toggle-window-width' for `right', `cj/term-toggle-window-height'
+otherwise."
+  (if (eq direction 'right)
+      cj/term-toggle-window-width
+    cj/term-toggle-window-height))
+
 (defvar cj/--term-toggle-last-direction nil
   "Last user-chosen direction for the F12 terminal display.
 Symbol: right, left, or below.  `above' is never stored.  nil means use the
@@ -321,9 +345,10 @@ FRAME defaults to the selected frame.  Minibuffer is excluded."
 
 (defun cj/--term-toggle-capture-state (window)
   "Capture WINDOW's direction + body size into module-level state.
-Default direction is `below' to match F12's traditional bottom split."
+The default direction (used when WINDOW fills its frame) is the
+column-rule choice from `cj/--term-toggle-default-direction'."
   (cj/window-toggle-capture-state
-   window 'below
+   window (cj/--term-toggle-default-direction)
    'cj/--term-toggle-last-direction
    'cj/--term-toggle-last-size
    '(right below left)))
@@ -331,11 +356,13 @@ Default direction is `below' to match F12's traditional bottom split."
 (defun cj/--term-toggle-display-saved (buffer alist)
   "Display-buffer action: split per saved direction and body size.
 Delegates to `cj/window-toggle-display-saved' against the F12 state vars,
-falling back to `below' and `cj/term-toggle-window-height'."
-  (cj/window-toggle-display-saved
-   buffer alist
-   'cj/--term-toggle-last-direction 'below
-   'cj/--term-toggle-last-size cj/term-toggle-window-height))
+falling back to the column-rule default direction
+\(`cj/--term-toggle-default-direction') and its paired size."
+  (let ((dir (cj/--term-toggle-default-direction)))
+    (cj/window-toggle-display-saved
+     buffer alist
+     'cj/--term-toggle-last-direction dir
+     'cj/--term-toggle-last-size (cj/--term-toggle-default-size dir))))
 
 (defun cj/--term-toggle-display-rule-list ()
   "Return the `display-buffer-alist' entry list installed by F12.
-- 
cgit v1.2.3