bog-citekey-from-heading-title: Cover edge case

Don't throw error if point is before first heading.

1 files changed, 3 insertions, 3 deletions

diff --git a/bog.el b/bog.el
index 587921f..18abe4d 100644
--- a/bog.el
+++ b/bog.el
@@ -265,9 +265,9 @@ year, and the first meaningful word in the title)."
       (bog-citekey-from-property)))
 
 (defun bog-citekey-from-heading-title ()
-  (let ((title (org-no-properties (org-get-heading t t))))
-    (when (bog-citekey-p title)
-      title)))
+  (--if-let (ignore-errors (org-no-properties (org-get-heading t t)))
+      (when (bog-citekey-p it)
+        it)))
 
 (defun bog-citekey-from-property ()
   (-when-let (prop (org-entry-get (point) bog-citekey-property))