doomemacs/modules/feature/jump/autoload/evil.el

17 lines
774 B
EmacsLisp
Raw Normal View History

2017-05-21 15:06:15 +02:00
;;; feature/jump/autoload/evil.el
;;;###autoload (autoload '+jump:online "feature/jump/autoload/evil" nil t)
(evil-define-command +jump:online (query &optional bang)
2017-05-21 15:08:20 +02:00
"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."
2017-05-21 15:06:15 +02:00
(interactive "<a><!>")
2017-05-21 15:08:20 +02:00
(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))))
2017-05-21 15:06:15 +02:00
(+jump/online engine query)))