refactor: rename pearl--issue-body-at-point to pearl--entry-body-at-point

The helper returns the body of the Org entry at point, before any child heading. It started out reading issue descriptions, but comment editing and deletion reuse it for comment bodies too, so "issue" in the name was misleading. I renamed it across its callers and the sync/refresh/save/comment tests, and reworded the docstring to say "entry".

5 files changed, 12 insertions, 12 deletions

diff --git a/tests/test-pearl-comment-editing.el b/tests/test-pearl-comment-editing.el
index be65aa3..ff1dff5 100644
--- a/tests/test-pearl-comment-editing.el
+++ b/tests/test-pearl-comment-editing.el
@@ -232,7 +232,7 @@
         (goto-char (point-min))
         (re-search-forward "^\\*\\*\\*\\*\\* Craig")
         (should (string= stored (org-entry-get nil "LINEAR-COMMENT-SHA256")))
-        (should (string= "new body" (pearl--issue-body-at-point)))))))
+        (should (string= "new body" (pearl--entry-body-at-point)))))))
 
 ;;; editability highlighting
 
@@ -282,7 +282,7 @@
               "*** Comments\n**** Me — ts\n:PROPERTIES:\n:LINEAR-COMMENT-ID: c1\n:END:\n"
               "see :note: below\nand more text\n")
     (re-search-forward "see :note:")
-    (should (string= "see :note: below\nand more text" (pearl--issue-body-at-point)))))
+    (should (string= "see :note: below\nand more text" (pearl--entry-body-at-point)))))
 
 (provide 'test-pearl-comment-editing)
 ;;; test-pearl-comment-editing.el ends here
diff --git a/tests/test-pearl-merge.el b/tests/test-pearl-merge.el
index 180539e..e55127b 100644
--- a/tests/test-pearl-merge.el
+++ b/tests/test-pearl-merge.el
@@ -193,7 +193,7 @@ subtree, so every description-less issue read as a local edit."
     (goto-char (point-min))
     (re-search-forward "^\\*\\* ")
     (beginning-of-line)
-    (should (string= "" (pearl--issue-body-at-point)))
+    (should (string= "" (pearl--entry-body-at-point)))
     (should-not (pearl--subtree-dirty-p))))
 
 (ert-deftest test-pearl-subtree-dirty-p-edited-body-is-dirty ()
diff --git a/tests/test-pearl-refresh.el b/tests/test-pearl-refresh.el
index 6b8ba7b..ba17836 100644
--- a/tests/test-pearl-refresh.el
+++ b/tests/test-pearl-refresh.el
@@ -100,7 +100,7 @@
       (should (string-match-p "Refreshed Title" (thing-at-point 'line t)))
       (should (string= "In Progress" (org-entry-get nil "LINEAR-STATE-NAME")))
       ;; body is the remote description, and provenance matches it
-      (should (string= "New remote desc." (pearl--issue-body-at-point)))
+      (should (string= "New remote desc." (pearl--entry-body-at-point)))
       (should (string= (secure-hash 'sha256 "New remote desc.")
                        (org-entry-get nil "LINEAR-DESC-SHA256"))))))
 
diff --git a/tests/test-pearl-save.el b/tests/test-pearl-save.el
index 802535b..a8ae6af 100644
--- a/tests/test-pearl-save.el
+++ b/tests/test-pearl-save.el
@@ -247,9 +247,9 @@ so the next local dirty scan (which uses the Org hash) sees the ticket as clean.
         (pearl--save-description-field marker (lambda (o) (setq outcome o))))
       (should (eq 'pushed (plist-get outcome :status)))
       (org-with-point-at marker
-        (should (string= (secure-hash 'sha256 (pearl--issue-body-at-point))
+        (should (string= (secure-hash 'sha256 (pearl--entry-body-at-point))
                          (org-entry-get nil "LINEAR-DESC-ORG-SHA256")))
-        (should (string= (secure-hash 'sha256 (pearl--org-to-md (pearl--issue-body-at-point)))
+        (should (string= (secure-hash 'sha256 (pearl--org-to-md (pearl--entry-body-at-point)))
                          (org-entry-get nil "LINEAR-DESC-SHA256")))
         ;; the push timestamp still lands via the after-push bookkeeping
         (should (string= "t1" (org-entry-get nil "LINEAR-DESC-UPDATED-AT")))))))
diff --git a/tests/test-pearl-sync.el b/tests/test-pearl-sync.el
index 738e3ff..150944a 100644
--- a/tests/test-pearl-sync.el
+++ b/tests/test-pearl-sync.el
@@ -21,7 +21,7 @@
 
 ;; Tests for the explicit description sync-back: the pure conflict gate
 ;; (`pearl--sync-decision'), the org body extractor
-;; (`pearl--issue-body-at-point'), the two network helpers (fetch the
+;; (`pearl--entry-body-at-point'), the two network helpers (fetch the
 ;; remote description, push an updated description -- both stubbed at the HTTP
 ;; boundary), and the orchestrating command `pearl-sync-current-issue'
 ;; across its no-op / clean-push / conflict branches.
@@ -73,26 +73,26 @@
       "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nThe body line.\nSecond line.\n"
     (re-search-forward "Title")
     (should (string= "The body line.\nSecond line."
-                     (pearl--issue-body-at-point)))))
+                     (pearl--entry-body-at-point)))))
 
 (ert-deftest test-pearl-issue-body-empty ()
   "An entry with no body yields the empty string."
   (test-pearl--in-org
       "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\n"
-    (should (string= "" (pearl--issue-body-at-point)))))
+    (should (string= "" (pearl--entry-body-at-point)))))
 
 (ert-deftest test-pearl-issue-body-stops-before-comments ()
   "The description body stops before a child Comments subtree."
   (test-pearl--in-org
       "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nDesc body.\n**** Comments\n***** bob -- ts\nhi\n"
-    (should (string= "Desc body." (pearl--issue-body-at-point)))))
+    (should (string= "Desc body." (pearl--entry-body-at-point)))))
 
 (ert-deftest test-pearl-issue-body-from-inside-body ()
   "Extraction works with point already inside the body."
   (test-pearl--in-org
       "*** TODO ENG-1 Title\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nDesc body.\nmore.\n"
     (goto-char (point-max))
-    (should (string= "Desc body.\nmore." (pearl--issue-body-at-point)))))
+    (should (string= "Desc body.\nmore." (pearl--entry-body-at-point)))))
 
 ;;; network helpers (stubbed at the HTTP boundary)
 
@@ -219,7 +219,7 @@ helper (nil when never called); the update helper reports success."
         ;; ... but provenance is not advanced and the edit stays for retry.
         (should (string= stored (org-entry-get nil "LINEAR-DESC-SHA256")))
         (should (string= "old" (org-entry-get nil "LINEAR-DESC-UPDATED-AT")))
-        (should (string= "Edited body now." (pearl--issue-body-at-point)))))))
+        (should (string= "Edited body now." (pearl--entry-body-at-point)))))))
 
 (provide 'test-pearl-sync)
 ;;; test-pearl-sync.el ends here