Add :gblame & :grevert ex commands
This commit is contained in:
parent
546c672f8a
commit
d5d0f26c09
5 changed files with 70 additions and 30 deletions
21
modules/feature/jump/autoload/evil.el
Normal file
21
modules/feature/jump/autoload/evil.el
Normal file
|
@ -0,0 +1,21 @@
|
|||
;;; 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. You can prefix your queries with a one-letter shortcut
|
||||
key (dictated by `+jump-search-url-alist'), otherwise you will be prompted for
|
||||
what search engine to use."
|
||||
(interactive "<a><!>")
|
||||
(let ((query query)
|
||||
(engine (assoc (car-safe (split-string query " " t t))
|
||||
+jump-search-url-alist)))
|
||||
(if engine
|
||||
(setq query (string-join (cdr-safe (split-string query " " t t)) " "))
|
||||
(let ((engine (completing-read "Search on: "
|
||||
(mapcar #'cadr +jump-search-url-alist)
|
||||
nil t)))
|
||||
(setq engine (cl-find-if (lambda (x) (equal (cadr x) engine))
|
||||
+jump-search-url-alist))))
|
||||
(unless engine
|
||||
(error "Search engine couldn't be found"))
|
||||
(+jump/online engine query)))
|
Loading…
Add table
Add a link
Reference in a new issue