branch: externals/org-gnosis
commit c45444ac5aafda773d85cc7d61a51834f3da7e83
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
get-id: Make sure org-gnosis-mode is enabled.
---
org-gnosis.el | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/org-gnosis.el b/org-gnosis.el
index 2153d96666..74c843f361 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -178,16 +178,18 @@ to have an ID."
(defun org-gnosis-get-id ()
"Return id for heading at point."
- (save-excursion
- (let ((heading-level (org-current-level))
- (id (org-id-get)))
- (cond (id id)
- ((and (null id) (= heading-level 1))
- (goto-char (point-min))
- (org-id-get))
- (t
- (outline-up-heading 1 t)
- (org-gnosis-get-id))))))
+ (if (bound-and-true-p org-gnosis-mode)
+ (save-excursion
+ (let ((heading-level (org-current-level))
+ (id (org-id-get)))
+ (cond (id id)
+ ((and (null id) (= heading-level 1))
+ (goto-char (point-min))
+ (org-id-get))
+ (t
+ (outline-up-heading 1 t)
+ (org-gnosis-get-id)))))
+ (error "Org Gnosis Mode not enabled")))
(defun org-gnosis-collect-id-links ()
"Collect ID links and current headline ID as (link-id . headline-id) pairs."
