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

tools/lookup: fix +lookup/online

Browse source
This commit is contained in:
Henrik Lissner 2019-12-16 17:03:56 -05:00
parent 6f7bdc801a
commit 3cefe161fa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -39,7 +39,8 @@ for the provider."
(query (or query (+lookup-symbol-or-region)))
(backend (cl-find-if (lambda (x) (or (stringp x) (fboundp x)))
(cdr (assoc provider +lookup-provider-url-alist)))))
(if (commandp backend)
(if (and (functionp backend)
(commandp backend))
(call-interactively backend)
(unless backend
(user-error "%S is an invalid query engine backend for %S provider"
@ -47,11 +48,15 @@ for the provider."
(cl-check-type backend (or string function))
(condition-case-unless-debug e
(progn
(unless query
(setq query
(read-string (format "Search for (on %s): " provider)
(thing-at-point 'symbol t))))
(when (or (functionp backend) (symbolp backend))
(setq backend (funcall backend)))
(when (string-empty-p query)
(user-error "The query query is empty"))
(funcall +lookup-open-url-fn (format url (url-encode-url query))))
(funcall +lookup-open-url-fn (format backend (url-encode-url query))))
(error
(setq +lookup--last-provider
(delq (assq major-mode +lookup--last-provider)