diff options
| author | Thanos Apollo <[email protected]> | 2024-12-06 17:13:13 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-12-06 17:13:13 +0200 |
| commit | c2ba8bbf377fb28767cc3fec16499a1b5a1bb9fa (patch) | |
| tree | c7c69bdfeba9471b7a963c1f0875584fcdb71cd9 /org-gnosis.el | |
| parent | 05ecfc3fe69cb9fed1844cb5b7e2b6f3601b79cc (diff) | |
[fix] Use org-gnosis-completing-read-func
* Adjustment for users that do not have enabled a completion system.
Diffstat (limited to 'org-gnosis.el')
| -rw-r--r-- | org-gnosis.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 |