Extend goto functions to support citekey properties

bog-goto-citekey-heading-in-buffer gives preference to citekeys as
heading titles over citekeys as properties.

The order of preference for bog-goto-citekey-heading-in-notes is the
citekey as a heading title in the current buffer, the citekey as a
property in the current buffer, the citekey as heading title in notes,
and, finally, the citekey as property in notes.

1 files changed, 28 insertions, 0 deletions

diff --git a/bog-tests.el b/bog-tests.el
index 0532fc9..3fefc0b 100644
--- a/bog-tests.el
+++ b/bog-tests.el
@@ -328,6 +328,34 @@ other2000key <citekey>"
       (bog-previous-non-heading-citekey 2)
       (should (equal citekey (bog-citekey-at-point))))))
 
+;; `bog--find-citekey-heading-in-buffer'
+
+(ert-deftest bog--find-citekey-heading-in-buffer-citekey-heading ()
+  (let ((citekey "name2010word"))
+    (bog-tests--with-temp-text
+        "
+<point>
+* other heading
+
+* <citekey> "
+      (goto-char (bog--find-citekey-heading-in-buffer citekey))
+      (should (equal citekey (org-get-heading t t))))))
+
+(ert-deftest bog--find-citekey-heading-in-buffer-citekey-property ()
+  (let ((citekey "name2010word"))
+    (bog-tests--with-temp-text
+        (format "
+<point>
+* other heading
+
+* heading
+  :PROPERTIES:
+  :%s: <citekey>
+  :END"
+                bog-citekey-property)
+      (goto-char (bog--find-citekey-heading-in-buffer citekey))
+      (should (equal "heading" (org-get-heading t t))))))
+
 
 ;;; File functions