[elpa] externals/ivy-hydra a7ae5f0 058/395: counsel.el (counsel-geiser-doc-look-up-manual): Add.

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit a7ae5f0486b1fb5c9c9c3fa8c570ddbdce61a7b2
Author: Brian Leung <leungbk@mailfence.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    counsel.el (counsel-geiser-doc-look-up-manual): Add.
    
    Fixes #2235
---
 counsel.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/counsel.el b/counsel.el
index c48978e..05ed73a 100644
--- a/counsel.el
+++ b/counsel.el
@@ -5235,6 +5235,24 @@ If called with a prefix, will suggest those values."
    ("f" counsel-kmacro-action-copy-format "copy format")
    ("e" counsel-kmacro-action-execute-after-prompt "execute after prompt")))
 
+;;** `counsel-geiser-doc-look-up-manual'
+(declare-function geiser-doc-manual-for-symbol "ext:geiser-doc")
+(defvar geiser-completion-symbol-list-func)
+
+(defvar counsel-geiser-doc-look-up-manual-history ()
+  "History for `counsel-geiser-doc-look-up-manual'.")
+
+;;;###autoload
+(defun counsel-geiser-doc-look-up-manual ()
+  "Search Scheme documentation."
+  (interactive)
+  (ivy-read "Symbol: " geiser-completion-symbol-list-func
+            :require-match t
+            :history 'counsel-geiser-doc-look-up-manual-history
+            :action (lambda (cand)
+                      (geiser-doc-manual-for-symbol (intern cand)))
+            :caller 'counsel-geiser-doc-look-up-manual))
+
 ;;* Misc. OS
 ;;** `counsel-rhythmbox'
 (declare-function dbus-call-method "dbus")
@@ -6235,6 +6253,7 @@ We update it in the callback with 
`ivy-update-candidates'."
                 (yank-pop . counsel-yank-pop)
                 (info-lookup-symbol . counsel-info-lookup-symbol)
                 (pop-to-mark-command . counsel-mark-ring)
+                (geiser-doc-look-up-manual . counsel-geiser-doc-look-up-manual)
                 (bookmark-jump . counsel-bookmark)))
       (define-key map (vector 'remap (car binding)) (cdr binding)))
     map)