branch: externals/org-gnosis
commit c2ba8bbf377fb28767cc3fec16499a1b5a1bb9fa
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
[fix] Use org-gnosis-completing-read-func
* Adjustment for users that do not have enabled a completion system.
---
org-gnosis.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/org-gnosis.el b/org-gnosis.el
index 8b50a275b3..bb8679c908 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -325,10 +325,11 @@ If called with ARG do not initialize the database."
"Select gnosis node with tags from ENTRIES.
PROMPT: Prompt message."
- (replace-regexp-in-string " #[^[:space:]]+" ""
- (completing-read (or prompt "Select gnosis node: ")
- (org-gnosis-find--tag-with-tag-prop
- (or entries (org-gnosis-select '[title tags] 'nodes))))))
+ (replace-regexp-in-string
+ " #[^[:space:]]+" ""
+ (funcall org-gnosis-completing-read-func (or prompt "Select gnosis node: ")
+ (org-gnosis-find--tag-with-tag-prop
+ (or entries (org-gnosis-select '[title tags] 'nodes))))))
(defun org-gnosis--find (prompt entries-with-tags entries)
"PROMPT user to select from ENTRIES.
@@ -337,7 +338,7 @@ If `org-gnosis-show-tags' is non-nil, ENTRIES-WITH-TAGS
will be used
instead."
(let* ((entry (if org-gnosis-show-tags
(org-gnosis-find--with-tags prompt entries-with-tags)
- (completing-read prompt entries))))
+ (funcall org-gnosis-completing-read-func prompt entries))))
entry))
;;;###autoload
