16 lines
774 B
EmacsLisp
16 lines
774 B
EmacsLisp
;;; feature/jump/autoload/evil.el
|
|
|
|
;;;###autoload (autoload '+jump:online "feature/jump/autoload/evil" nil t)
|
|
(evil-define-command +jump:online (query &optional bang)
|
|
"Look up QUERY online. Will prompt for search engine the first time, then
|
|
reuse it on consecutive uses of this command. If BANG, always prompt for search
|
|
engine."
|
|
(interactive "<a><!>")
|
|
(setq query (or query (thing-at-point 'symbol t)))
|
|
(unless query
|
|
(user-error "The search query is empty"))
|
|
(let ((engine (or (and (not bang) (bound-and-true-p +jump--online-last))
|
|
(completing-read (format "Search on (%s): " query)
|
|
(mapcar #'car +jump-search-url-alist)
|
|
nil t))))
|
|
(+jump/online engine query)))
|