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

Add :lookup & rewrite +jump/online

Browse source
This commit is contained in:
Henrik Lissner 2017-05-21 15:08:20 +02:00
parent d5d0f26c09
commit 61ad485ae3
3 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

34
modules/feature/jump/autoload/jump.el
View file

@ -72,7 +72,7 @@ Tries `xref-find-references' and falls back to rg/ag."
(t (error "Couldn't find '%s'" sym)))))
(defvar +jump--online-last-url nil)
(defvar +jump--online-last nil)
;;;###autoload
(defun +jump/online (where search)
@ -81,18 +81,22 @@ Tries `xref-find-references' and falls back to rg/ag."
Interactively, you are prompted to choose a source from
`+jump-search-url-alist'."
(interactive
(list (completing-read "Search on: "
(mapcar #'cdr +jump-search-url-alist)
nil t)
(or (and (not current-prefix-arg)
+jump--online-last-url)
(thing-at-point 'symbol t))))
(let ((url (cdr (assoc where +jump-search-url-alist))))
(when (or (functionp url) (symbolp url))
(setq url (funcall url)))
(cl-assert (stringp url))
(cl-assert (not (string-empty-p url)))
(cl-assert (not (string-empty-p search)))
(setq +jump--online-last-url url)
(browse-url (format url (url-encode-url search)))))
(list (or (and (not current-prefix-arg)
+jump--online-last)
(completing-read (format "Search on (%s): " (thing-at-point 'symbol t))
(mapcar #'car +jump-search-url-alist)
nil t))
(thing-at-point 'symbol t)))
(condition-case ex
(let ((url (cdr (assoc where +jump-search-url-alist))))
(unless url
(error "'%s' is an invalid search engine" where))
(when (or (functionp url) (symbolp url))
(setq url (funcall url)))
(cl-assert (and (stringp url) (not (string-empty-p url))))
(when (string-empty-p search)
(user-error "The search query is empty"))
(setq +jump--online-last where)
(browse-url (format url (url-encode-url search))))
('error (setq +jump--online-last nil))))