branch: externals/kiwix
commit 648916d4cb0d368db6ff3ffd13d57688606e0f6b
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
add option to set Kiwix default completing-read framework, default is Ivy.
---
kiwix.el | 52 ++++++++++++++++++++++++++++++++++------------------
1 file changed, 34 insertions(+), 18 deletions(-)
diff --git a/kiwix.el b/kiwix.el
index b31a6d1..ab87164 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -98,6 +98,12 @@
:type 'string
:group 'kiwix-mode)
+(defcustom kiwix-default-completing-read 'ivy
+ "Kiwix default completion frontend. Currently Ivy ('ivy) and Helm ('helm)
both supported."
+ :type 'symbol
+ :safe #'symbolp
+ :group 'kiwix-mode)
+
(defcustom kiwix-default-browser-function browse-url-browser-function
"Set default browser for open kiwix query result URL."
:type 'function
@@ -241,24 +247,34 @@ for query string and library interactively."
(kiwix-select-library)
(kiwix--get-library-name
kiwix-default-library)))
(let* ((library kiwix--selected-library)
- (query (ivy-read "Kiwix related entries: "
- `(lambda (input)
- (apply 'kiwix-ajax-search-hints
- input `(,kiwix--selected-library)))
- :predicate nil
- :require-match nil
- :initial-input (if mark-active
- (buffer-substring
- (region-beginning)
(region-end))
- (thing-at-point 'symbol))
- :preselect nil
- :def nil
- :history nil
- :keymap nil
- :update-fn 'auto
- :sort t
- :dynamic-collection t
- :caller 'ivy-done)))
+ (query (case kiwix-default-completing-read
+ ('helm
+ (helm :source (helm-build-async-source
"kiwix-helm-search-hints"
+ :candidates-process
+ `(lambda (input)
+ (apply 'kiwix-ajax-search-hints
+ input
`(,kiwix--selected-library))))
+ :input (word-at-point)
+ :buffer "*helm kiwix completion candidates*"))
+ ('ivy
+ (ivy-read "Kiwix related entries: "
+ `(lambda (input)
+ (apply 'kiwix-ajax-search-hints
+ input
`(,kiwix--selected-library)))
+ :predicate nil
+ :require-match nil
+ :initial-input (if mark-active
+ (buffer-substring
+ (region-beginning)
(region-end))
+ (thing-at-point 'symbol))
+ :preselect nil
+ :def nil
+ :history nil
+ :keymap nil
+ :update-fn 'auto
+ :sort t
+ :dynamic-collection t
+ :caller 'ivy-done)))))
(message (format "library: %s, query: %s" library query))
(if (or (null library)
(string-empty-p library)
