branch: externals/org-gnosis
commit ce582310379d7dff44211e40040728c1ed957aad
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>

    Add org-gnosis-completing-read-func
    
    * Function to use for completing-read.  Adjusts for user that do not
      have a completion system enabled.
---
 org-gnosis.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/org-gnosis.el b/org-gnosis.el
index f2e8899c51..97bca05431 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -57,6 +57,17 @@
   :type 'boolean
   :group 'org-gnosis)
 
+(defcustom org-gnosis-completing-read-func
+  (cond ((or (bound-and-true-p ivy-mode)
+            (bound-and-true-p helm-mode)
+            (bound-and-true-p vertico-mode)
+            (bound-and-true-p fido-mode))
+        #'completing-read)
+       (t #'ido-completing-read))
+  "Function to use for `completing-read'."
+  :type 'function
+  :group 'gnosis)
+
 (defface org-gnosis-face-tags
   '((t :inherit font-lock-type-face))
   "Face for displaying gnosis with `org-gnosis-find'."

Reply via email to