mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-06 15:13:33 -05:00
Add :gblame & :grevert ex commands
This commit is contained in:
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)))
|
Reference in New Issue
Block a user