emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(lookup): check ivy|helm-mode before using their backends

Browse source
This commit is contained in:
Itai Y. Efrat 2022-05-04 09:40:24 +03:00 • committed by Henrik Lissner
parent 8a27eb99be
commit 68191e7419
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/tools/lookup/autoload/online.el
View file

@ -74,12 +74,12 @@ QUERY must be a string, and PROVIDER must be a key of
;;;###autoload
(defun +lookup--online-backend-google (query)
"Search Google, starting with QUERY, with live autocompletion."
(cond ((fboundp 'counsel-search)
(cond ((and (bound-and-true-p ivy-mode) (fboundp 'counsel-search))
(let ((ivy-initial-inputs-alist `((t . ,query)))
(counsel-search-engine 'google))
(call-interactively #'counsel-search)
t))
((require 'helm-net nil t)
((and (bound-and-true-p helm-mode) (require 'helm-net nil t))
(helm :sources 'helm-source-google-suggest
:buffer "*helm google*"
:input query)
@ -88,7 +88,7 @@ QUERY must be a string, and PROVIDER must be a key of
;;;###autoload
(defun +lookup--online-backend-duckduckgo (query)
"Search DuckDuckGo, starting with QUERY, with live autocompletion."
(cond ((fboundp 'counsel-search)
(cond ((and (bound-and-true-p ivy-mode) (fboundp 'counsel-search))
(let ((ivy-initial-inputs-alist `((t . ,query)))
(counsel-search-engine 'ddg))
(call-interactively #'counsel-search)