feat(save): write synced baselines for structured fields

Save-model v2 reconciles a field by diffing its live value against a baseline last synced from Linear, but the structured fields (priority, state, assignee, labels) only stored their current value — there was nothing to diff against. The renderer now writes a synced baseline beside each: LINEAR-PRIORITY (the numeric priority), LINEAR-STATE-ID-SYNCED, LINEAR-ASSIGNEE-ID-SYNCED, and LINEAR-LABEL-IDS / LINEAR-LABEL-IDS-SYNCED (the live and baseline id sets, with LINEAR-LABELS staying display-only names).

At fetch, live equals baseline, so nothing reads dirty on a fresh issue. The merge refresh re-renders changed subtrees through the same renderer, so baselines advance there too, and a retained dirty subtree is left untouched.

2 files changed, 32 insertions, 0 deletions

diff --git a/pearl.el b/pearl.el
index 4111557..b0c48ca 100644
--- a/pearl.el
+++ b/pearl.el
@@ -1894,6 +1894,8 @@ identifier prefix -- so an unedited heading is a no-op on title sync)."
                          display-title (plist-get issue :identifier)))
          (label-names (mapconcat (lambda (l) (or (plist-get l :name) ""))
                                  (plist-get issue :labels) ", "))
+         (label-ids (mapconcat (lambda (l) (or (plist-get l :id) ""))
+                               (plist-get issue :labels) " "))
          (body-org (pearl--md-to-org description)))
     (concat
      (format "** %s %s %s\n" todo priority heading-title)
@@ -1907,11 +1909,16 @@ identifier prefix -- so an unedited heading is a no-op on title sync)."
      (format ":LINEAR-TEAM-NAME:        %s\n" (or (plist-get team :name) ""))
      (format ":LINEAR-PROJECT-ID:       %s\n" (or (plist-get project :id) ""))
      (format ":LINEAR-PROJECT-NAME:     %s\n" (or (plist-get project :name) ""))
+     (format ":LINEAR-PRIORITY:         %s\n" (or (plist-get issue :priority) ""))
      (format ":LINEAR-STATE-ID:         %s\n" (or (plist-get state :id) ""))
+     (format ":LINEAR-STATE-ID-SYNCED:  %s\n" (or (plist-get state :id) ""))
      (format ":LINEAR-STATE-NAME:       %s\n" (or (plist-get state :name) ""))
      (format ":LINEAR-ASSIGNEE-ID:      %s\n" (or (plist-get assignee :id) ""))
+     (format ":LINEAR-ASSIGNEE-ID-SYNCED: %s\n" (or (plist-get assignee :id) ""))
      (format ":LINEAR-ASSIGNEE-NAME:    %s\n" (or (plist-get assignee :name) ""))
      (format ":LINEAR-LABELS:           [%s]\n" label-names)
+     (format ":LINEAR-LABEL-IDS:        %s\n" label-ids)
+     (format ":LINEAR-LABEL-IDS-SYNCED: %s\n" label-ids)
      (format ":LINEAR-DESC-SHA256:      %s\n" (secure-hash 'sha256 description))
      (format ":LINEAR-DESC-ORG-SHA256:  %s\n" (secure-hash 'sha256 (string-trim body-org)))
      (format ":LINEAR-DESC-UPDATED-AT:  %s\n" (or (plist-get issue :updated-at) ""))
diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el
index 1e9fa53..a642b53 100644
--- a/tests/test-pearl-format.el
+++ b/tests/test-pearl-format.el
@@ -68,6 +68,31 @@
       (should (string-match-p "^:LINEAR-TITLE-SHA256: +[0-9a-f]\\{64\\}$" out))
       (should (string-match-p "^:END:$" out)))))
 
+;;; synced baselines for structured fields (save-model v2)
+
+(ert-deftest test-pearl-format-issue-writes-synced-baselines ()
+  "The renderer writes a synced baseline per structured field, equal to its live value at fetch."
+  (test-pearl--with-default-mapping
+    (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-full))))
+      ;; priority: numeric baseline beside the cookie
+      (should (string-match-p "^:LINEAR-PRIORITY: +2$" out))
+      ;; state: live id and synced baseline both present and equal
+      (should (string-match-p "^:LINEAR-STATE-ID: +state-1$" out))
+      (should (string-match-p "^:LINEAR-STATE-ID-SYNCED: +state-1$" out))
+      ;; assignee: live id and synced baseline equal
+      (should (string-match-p "^:LINEAR-ASSIGNEE-ID: +user-1$" out))
+      (should (string-match-p "^:LINEAR-ASSIGNEE-ID-SYNCED: +user-1$" out))
+      ;; labels: live id set and synced baseline equal, in fetched order
+      (should (string-match-p "^:LINEAR-LABEL-IDS: +lbl-1 lbl-2$" out))
+      (should (string-match-p "^:LINEAR-LABEL-IDS-SYNCED: +lbl-1 lbl-2$" out)))))
+
+(ert-deftest test-pearl-format-issue-bare-empty-baselines ()
+  "Null/missing structured fields render empty id baselines without error."
+  (test-pearl--with-default-mapping
+    (let ((out (pearl--format-issue-as-org-entry (test-pearl--norm-bare))))
+      (should (string-match-p "^:LINEAR-LABEL-IDS: +$" out))
+      (should (string-match-p "^:LINEAR-LABEL-IDS-SYNCED: +$" out)))))
+
 (ert-deftest test-pearl-format-issue-description-in-body-not-property ()
   "The description renders as body text, not a :DESCRIPTION: property."
   (test-pearl--with-default-mapping