feat: render issue headings with the identifier prefix and title case

I added two display-only heading tweaks, each a defcustom defaulting on. pearl-show-identifier-in-heading prefixes the title with the Linear identifier (** TODO [#B] SE-401: Fix the Bug). pearl-title-case-headings renders the title in smart title case, keeping minor words lowercase unless first or last and leaving words that already carry an uppercase letter (acronyms, identifiers) untouched.

Both stay display-only. The LINEAR-TITLE-SHA256 hash covers the rendered (cased, un-prefixed) title, and the title-sync reader strips the identifier prefix before hashing, so an unedited heading is a no-op and neither the casing nor the prefix ever pushes to Linear. A render-then-read round-trip test locks that invariant.

1 files changed, 9 insertions, 8 deletions

diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el
index 7310413..1e9fa53 100644
--- a/tests/test-pearl-format.el
+++ b/tests/test-pearl-format.el
@@ -56,7 +56,7 @@
   "A full issue renders the heading and the namespaced LINEAR-* drawer."
   (test-pearl--with-default-mapping
     (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-full))))
-      (should (string-match-p "^\\*\\* IN-PROGRESS \\[#B\\] Fix the thing$" out))
+      (should (string-match-p "^\\*\\* IN-PROGRESS \\[#B\\] ENG-42: Fix the Thing$" out))
       (should (string-match-p "^:LINEAR-ID: +uuid-1$" out))
       (should (string-match-p "^:LINEAR-IDENTIFIER: +ENG-42$" out))
       (should (string-match-p "^:LINEAR-STATE-NAME: +In Progress$" out))
@@ -80,7 +80,7 @@
   "Null/missing optional fields render as empty values, and the body is empty."
   (test-pearl--with-default-mapping
     (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-bare))))
-      (should (string-match-p "^\\*\\* TODO \\[#C\\] Bare issue$" out))
+      (should (string-match-p "^\\*\\* TODO \\[#C\\] ENG-7: Bare Issue$" out))
       (should (string-match-p "^:LINEAR-PROJECT-NAME: +$" out))
       (should (string-match-p "^:LINEAR-ASSIGNEE-NAME: +$" out))
       (should (string-match-p "^:LINEAR-LABELS: +\\[\\]$" out))
@@ -93,11 +93,12 @@
     (let ((out (pearl--format-issue-as-org-entry
                 '(:id "u" :identifier "ENG-1" :title "Fix [URGENT] bug"
                   :priority 1 :state (:name "Todo")))))
-      (should (string-match-p "^\\*\\* TODO \\[#A\\] Fix URGENT bug$" out))
-      ;; the title provenance hash is of the stripped (rendered) title, so a
-      ;; later no-op title sync matches the heading and never clobbers brackets
+      (should (string-match-p "^\\*\\* TODO \\[#A\\] ENG-1: Fix URGENT Bug$" out))
+      ;; the title provenance hash is of the displayed (stripped + cased) title
+      ;; without the identifier prefix, so a later no-op title sync matches the
+      ;; heading and never clobbers brackets or pushes the prefix
       (should (string-match-p
-               (format "^:LINEAR-TITLE-SHA256: +%s$" (secure-hash 'sha256 "Fix URGENT bug"))
+               (format "^:LINEAR-TITLE-SHA256: +%s$" (secure-hash 'sha256 "Fix URGENT Bug"))
                out)))))
 
 ;;; build-org-content
@@ -147,8 +148,8 @@ sort together (org-sort on the parent) instead of being orphan headings."
   (test-pearl--with-default-mapping
     (let ((out (pearl--build-org-content
                 (list (test-pearl--norm-full) (test-pearl--norm-bare)))))
-      (should (string-match-p "^\\*\\* IN-PROGRESS \\[#B\\] Fix the thing$" out))
-      (should (string-match-p "^\\*\\* TODO \\[#C\\] Bare issue$" out)))))
+      (should (string-match-p "^\\*\\* IN-PROGRESS \\[#B\\] ENG-42: Fix the Thing$" out))
+      (should (string-match-p "^\\*\\* TODO \\[#C\\] ENG-7: Bare Issue$" out)))))
 
 ;;; --restore-page-visibility