New jump command: +jump/online-select

This commit is contained in:
Henrik Lissner 2017-10-07 01:19:24 +02:00
parent 4a1865c450
commit c3398e6afc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 9 additions and 1 deletions

View file

@ -132,3 +132,10 @@ for the provider."
(setq +jump--online-last provider)
(funcall +jump-search-browser-fn (format url (url-encode-url search))))
('error (setq +jump--online-last nil))))
;;;###autoload
(defun +jump/online-select ()
"Runs `+jump/online', but always prompts for the provider to use."
(interactive)
(let ((current-prefix-arg t))
(call-interactively #'+jump/online)))

View file

@ -120,7 +120,8 @@
(:desc "search" :prefix "/"
:desc "Swiper" :nv "/" #'swiper
:desc "Imenu" :nv "i" #'imenu
:desc "Imenu across buffers" :nv "I" #'imenu-anywhere)
:desc "Imenu across buffers" :nv "I" #'imenu-anywhere
:desc "Online providers" :nv "o" #'+jump/online-select)
(:desc "workspace" :prefix "TAB"
:desc "Display tab bar" :n "TAB" #'+workspace/display