[elpa] externals/kiwix 5fbf5bc 141/192: use symbol under point or region text as initial input for Ivy

[Stefan Monnier]

branch: externals/kiwix
commit 5fbf5bc838334e6bd8484c3f5253e6307922934f
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    use symbol under point or region text as initial input for Ivy
---
 kiwix.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index 37ed9cc..1701194 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -7,7 +7,7 @@
 ;; URL: https://github.com/stardiviner/kiwix.el
 ;; Created: 23th July 2016
 ;; Version: 1.0.0
-;; Package-Requires: ((emacs "24.4") (cl-lib "0.5") (request "0.3.0"))
+;; Package-Requires: ((emacs "24.4") (cl-lib "0.5") (request "0.3.0") (ivy 
"0.12.0"))
 
 ;;; Commentary:
 
@@ -38,6 +38,7 @@
 
 (require 'cl-lib)
 (require 'request)
+(require 'ivy)
 
 (autoload 'org-link-set-parameters "org")
 (autoload 'org-store-link-props "org")
@@ -222,10 +223,12 @@ for query string and library interactively."
                         (kiwix--get-library-name kiwix-default-library)))
              (query (ivy-read "Kiwix related entries: "
                               'kiwix-ajax-search-hints
-                              ;; (lambda (ivy-last) (kiwix-ajax-search-hints 
ivy-last))
                               :predicate nil
                               :require-match nil
-                              :initial-input nil
+                              :initial-input (if mark-active
+                                                 (buffer-substring
+                                                  (region-beginning) 
(region-end))
+                                               (thing-at-point 'symbol))
                               :preselect nil
                               :def nil
                               :history nil