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, 117 insertions, 0 deletions

diff --git a/tests/test-pearl-heading.el b/tests/test-pearl-heading.el
new file mode 100644
index 0000000..2675518
--- /dev/null
+++ b/tests/test-pearl-heading.el
@@ -0,0 +1,117 @@
+;;; test-pearl-heading.el --- Tests for heading title rendering -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2026 Craig Jennings
+
+;; Author: Craig Jennings <c@cjennings.net>
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Tests for the heading title transforms: smart title case
+;; (`pearl--title-case'), the identifier prefix (`pearl--heading-with-identifier'
+;; / `pearl--strip-identifier-prefix'), and the way `--format-issue-as-org-entry'
+;; renders them while keeping `LINEAR-TITLE-SHA256' over the bare displayed
+;; title so an unedited heading is a no-op on title sync.
+
+;;; Code:
+
+(require 'test-bootstrap (expand-file-name "test-bootstrap.el"))
+
+;;; --title-case
+
+(ert-deftest test-pearl-title-case-capitalizes-significant-words ()
+  "Significant words are capitalized; minor words mid-title stay lowercase."
+  (should (string= "Fix the Refresh Bug" (pearl--title-case "fix the refresh bug")))
+  (should (string= "A Tale of Two Cities" (pearl--title-case "a tale of two cities"))))
+
+(ert-deftest test-pearl-title-case-edges-capitalize-minor-words ()
+  "A minor word that is first or last is still capitalized."
+  (should (string= "Of Mice and Men" (pearl--title-case "of mice and men")))
+  (should (string= "What Is It For" (pearl--title-case "what is it for"))))
+
+(ert-deftest test-pearl-title-case-preserves-existing-uppercase ()
+  "A word that already has an uppercase letter (acronym, identifier) is left as-is."
+  (should (string= "API Rate Limits" (pearl--title-case "API rate limits")))
+  (should (string= "GraphQL and You" (pearl--title-case "GraphQL and you"))))
+
+(ert-deftest test-pearl-title-case-boundaries ()
+  "Empty, single-word, and extra-whitespace inputs behave."
+  (should (string= "" (pearl--title-case "")))
+  (should (string= "Bug" (pearl--title-case "bug")))
+  (should (string= "Fix the Bug" (pearl--title-case "fix   the  bug"))))
+
+(ert-deftest test-pearl-title-case-leaves-inner-punctuation-alone ()
+  "Only the first letter is upcased, so an apostrophe or hyphen mid-word is intact."
+  (should (string= "Don't Panic" (pearl--title-case "don't panic")))
+  (should (string= "Re-run the Task" (pearl--title-case "re-run the task"))))
+
+;;; --heading-with-identifier / --strip-identifier-prefix
+
+(ert-deftest test-pearl-heading-identifier-prefix-roundtrips ()
+  "Adding then stripping the identifier prefix is the identity."
+  (let ((pearl-show-identifier-in-heading t))
+    (let ((h (pearl--heading-with-identifier "Fix the Bug" "SE-401")))
+      (should (string= "SE-401: Fix the Bug" h))
+      (should (string= "Fix the Bug" (pearl--strip-identifier-prefix h "SE-401"))))))
+
+(ert-deftest test-pearl-heading-identifier-prefix-disabled ()
+  "With prefixing off, the title is returned unchanged."
+  (let ((pearl-show-identifier-in-heading nil))
+    (should (string= "Fix the Bug"
+                     (pearl--heading-with-identifier "Fix the Bug" "SE-401")))))
+
+(ert-deftest test-pearl-strip-identifier-prefix-empty-or-absent ()
+  "Stripping is a no-op when the identifier is empty or not at the front."
+  (should (string= "Fix the Bug" (pearl--strip-identifier-prefix "Fix the Bug" "")))
+  (should (string= "Fix the Bug" (pearl--strip-identifier-prefix "Fix the Bug" nil)))
+  ;; an identifier that only appears mid-title is not stripped
+  (should (string= "see SE-9: later"
+                   (pearl--strip-identifier-prefix "see SE-9: later" "SE-9"))))
+
+;;; rendering on / off
+
+(ert-deftest test-pearl-format-heading-defaults-prefix-and-title-case ()
+  "By default the heading carries the identifier prefix and a title-cased title."
+  (let ((pearl-show-identifier-in-heading t)
+        (pearl-title-case-headings t))
+    (let ((out (pearl--format-issue-as-org-entry
+                '(:id "u" :identifier "SE-401" :title "fix the refresh bug"
+                  :priority 2 :state (:name "Todo")))))
+      (should (string-match-p "^\\*\\* TODO \\[#B\\] SE-401: Fix the Refresh Bug$" out)))))
+
+(ert-deftest test-pearl-format-heading-both-toggles-off-renders-verbatim ()
+  "With both toggles off, the heading is the bracket-stripped raw title, no prefix."
+  (let ((pearl-show-identifier-in-heading nil)
+        (pearl-title-case-headings nil))
+    (let ((out (pearl--format-issue-as-org-entry
+                '(:id "u" :identifier "SE-401" :title "fix the refresh bug"
+                  :priority 2 :state (:name "Todo")))))
+      (should (string-match-p "^\\*\\* TODO \\[#B\\] fix the refresh bug$" out)))))
+
+(ert-deftest test-pearl-format-title-hash-is-over-displayed-title-no-prefix ()
+  "The title hash is over the displayed (cased) title without the identifier prefix.
+That is what makes a fetch + unedited heading a no-op on title sync."
+  (let ((pearl-show-identifier-in-heading t)
+        (pearl-title-case-headings t))
+    (let ((out (pearl--format-issue-as-org-entry
+                '(:id "u" :identifier "SE-401" :title "fix the refresh bug"
+                  :priority 2 :state (:name "Todo")))))
+      (should (string-match-p
+               (format "^:LINEAR-TITLE-SHA256: +%s$"
+                       (secure-hash 'sha256 "Fix the Refresh Bug"))
+               out)))))
+
+(provide 'test-pearl-heading)
+;;; test-pearl-heading.el ends here