2018-01-04 17:05:37 -05:00
|
|
|
;;; feature/lookup/autoload/evil.el -*- lexical-binding: t; -*-
|
|
|
|
|
;;;###if (featurep! :feature evil)
|
|
|
|
|
|
|
|
|
|
;;;###autoload (autoload '+lookup:online "feature/lookup/autoload/evil" nil t)
|
|
|
|
|
(evil-define-command +lookup: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><!>")
|
|
|
|
|
(+lookup/online query (+lookup--online-provider bang 'evil-ex)))
|
|
|
|
|
|
|
|
|
|
;;;###autoload (autoload '+lookup:dash "feature/lookup/autoload/evil" nil t)
|
|
|
|
|
(evil-define-command +lookup:dash (query &optional bang)
|
2018-08-31 03:04:29 +02:00
|
|
|
"Look up QUERY in your dash docsets. If BANG, prompt to select a docset (and
|
|
|
|
|
install it if necessary)."
|
2018-01-04 17:05:37 -05:00
|
|
|
(interactive "<a><!>")
|
2018-08-31 03:04:29 +02:00
|
|
|
(let (selected)
|
|
|
|
|
(when bang
|
|
|
|
|
(setq selected (helm-dash-read-docset "Select docset" (helm-dash-official-docsets)))
|
|
|
|
|
(unless (+lookup-docset-installed-p selected)
|
|
|
|
|
(+lookup/install-docset selected)))
|
|
|
|
|
(+lookup/in-docsets query (or selected (+lookup-docsets-for-buffer)))))
|
