From 4a4b1bc974a3fdb4d88af3ee575786ca363696e2 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 6 Jun 2026 18:33:10 -0500
Subject: feat(render): name the active account in the buffer title
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

With two workspaces, the preamble summary read "Pearl - <view> ..." for both, so you couldn't tell from the title which account a buffer belonged to. It now reads "Pearl - <account> - <view> · <count> · <time>", pulling the account from the buffer's #+LINEAR-ACCOUNT. A legacy buffer with no account stamp drops the segment and reads as before.
---
 tests/test-pearl-output.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'tests/test-pearl-output.el')

diff --git a/tests/test-pearl-output.el b/tests/test-pearl-output.el
index 1035ff2..66dc096 100644
--- a/tests/test-pearl-output.el
+++ b/tests/test-pearl-output.el
@@ -214,6 +214,19 @@ appear -- a minimal preamble of just the machine keywords."
       (should (string-match-p " · 1" s))          ; one rendered issue
       (should (string-match-p "·" s)))))
 
+(ert-deftest test-pearl-preamble-summary-names-the-account ()
+  "In accounts mode the summary names the active account after Pearl, so two
+buffers from different workspaces read differently."
+  (with-temp-buffer
+    (insert (pearl--build-org-content
+             '((:id "i1" :identifier "ENG-1" :title "one" :priority 1
+                :state (:name "In Progress") :team (:id "t1")))
+             '(:type filter :name "My open work" :filter (:assignee :me :open t))
+             nil nil "deepsat"))
+    (org-mode)
+    (goto-char (point-min))
+    (should (string-prefix-p "Pearl - deepsat - My open work" (pearl--preamble-summary)))))
+
 (ert-deftest test-pearl-hide-preamble-lays-one-tagged-overlay ()
   "With the option on, one tagged display overlay covers the preamble; applying
 twice keeps exactly one (idempotent); off removes it.  Buffer text is untouched."
-- 
cgit v1.2.3