From 3acdb28ed69ce27aa3cd4086cfe9714fc1074431 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Tue, 26 May 2026 14:28:18 -0500 Subject: feat(mail): keep mu4e's main view from deleting the window split mu4e's main view displays with a display-buffer-full-frame action, which tears down every other window on launch, so opening mu4e from a split collapsed the layout. mu4e's own mu4e-display-buffer docstring points to display-buffer-alist as the supported override. I added an entry routing the *mu4e-main* buffer to the current window (reuse a window already showing it first, then same-window), so launching mu4e in a split keeps the rest of the layout intact. It's registered eagerly rather than inside mu4e's deferred config so it applies on the first launch. Tests cover the entry registration and that the main buffer no longer collapses a split under mu4e's full-frame action. --- tests/test-mail-config-mu4e-window.el | 42 +++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 tests/test-mail-config-mu4e-window.el (limited to 'tests') diff --git a/tests/test-mail-config-mu4e-window.el b/tests/test-mail-config-mu4e-window.el new file mode 100644 index 00000000..e02a7f9a --- /dev/null +++ b/tests/test-mail-config-mu4e-window.el @@ -0,0 +1,42 @@ +;;; test-mail-config-mu4e-window.el --- mu4e main-view window placement -*- lexical-binding: t; -*- + +;;; Commentary: +;; mu4e's main view defaults to a display-buffer-full-frame action that deletes +;; the window split on launch. mail-config registers a display-buffer-alist +;; entry routing the "*mu4e-main*" buffer to the current window instead. These +;; verify the entry is registered and that, with it active, displaying the main +;; buffer under mu4e's own full-frame action no longer collapses a split. + +;;; Code: + +(require 'ert) +(require 'mail-config) + +(ert-deftest test-mail-config-mu4e-main-entry-registered () + "Normal: the *mu4e-main* alist entry avoids the full-frame action." + (let ((entry (assoc "\\`\\*mu4e-main\\*\\'" display-buffer-alist))) + (should entry) + (should (memq 'display-buffer-same-window (cadr entry))) + (should-not (memq 'display-buffer-full-frame (cadr entry))))) + +(ert-deftest test-mail-config-mu4e-main-keeps-split () + "Normal: displaying *mu4e-main* under the full-frame action keeps the split. +The registered alist entry takes precedence over the action passed to +`display-buffer', so the sibling window survives." + (let ((a (get-buffer-create "*mail-win-test-a*")) + (main (get-buffer-create "*mu4e-main*"))) + (unwind-protect + (save-window-excursion + (delete-other-windows) + (set-window-buffer (selected-window) a) + (split-window (selected-window) nil t) ;; side-by-side, batch-friendly + (let ((n (count-windows))) + (display-buffer main '(display-buffer-reuse-window + display-buffer-reuse-mode-window + display-buffer-full-frame)) + (should (= (count-windows) n)))) + (ignore-errors (kill-buffer a)) + (ignore-errors (kill-buffer main))))) + +(provide 'test-mail-config-mu4e-window) +;;; test-mail-config-mu4e-window.el ends here -- cgit v1.2.3