From c2ba8bbf377fb28767cc3fec16499a1b5a1bb9fa Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 6 Dec 2024 17:13:13 +0200 Subject: [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(-) (limited to 'org-gnosis.el') diff --git a/org-gnosis.el b/org-gnosis.el index 8b50a27..bb8679c 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 -- cgit v1.2.3