Replace :lookup with set-lookup-handlers! autodef

And update all internal references.
This commit is contained in:
Henrik Lissner 2018-06-15 17:27:48 +02:00
parent bfdc00cf42
commit c0251aacee
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
17 changed files with 43 additions and 37 deletions

View file

@ -212,7 +212,7 @@ compilation database is present in the project.")
;; ...and don't auto-jump to first match before making a selection.
rtags-jump-to-first-match nil)
(set! :lookup '(c-mode c++-mode)
(set-lookup-handlers! '(c-mode c++-mode)
:definition #'rtags-find-symbol-at-point
:references #'rtags-find-references-at-point)

View file

@ -33,7 +33,7 @@
(set-popup-rule! "^\\*cider-repl" nil '((quit) (select)))
(set-repl-handler! 'clojure-mode #'+clojure/repl)
(set-eval-handler! 'clojure-mode #'cider-eval-region)
(set! :lookup 'clojure-mode
(set-lookup-handlers! 'clojure-mode
:definition #'cider-browse-ns-find-at-point
:documentation #'cider-browse-ns-doc-at-point)

View file

@ -3,7 +3,7 @@
(def-package! crystal-mode
:defer t
:config
(set! :lookup 'crystal-mode
(set-lookup-handlers! 'crystal-mode
:definition #'crystal-def-jump
:references #'crystal-tool-imp)
(set-eval-handler! 'crystal-mode

View file

@ -20,7 +20,7 @@
(set-company-backend! 'csharp-mode '(company-omnisharp))
(set! :lookup 'csharp-mode
(set-lookup-handlers! 'csharp-mode
:definition #'omnisharp-go-to-definition
:references #'omnisharp-find-usages
:documentation #'omnisharp-current-type-documentation)

View file

@ -30,7 +30,7 @@
(def-package! alchemist
:hook (elixir-mode . alchemist-mode)
:config
(set! :lookup 'elixir-mode
(set-lookup-handlers! 'elixir-mode
:definition #'alchemist-goto-definition-at-point
:documentation #'alchemist-help-search-at-point)
(set-eval-handler! 'elixir-mode #'alchemist-eval-region)

View file

@ -5,7 +5,7 @@
:config
(set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/repl)
(set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval)
(set! :lookup 'emacs-lisp-mode :documentation 'info-lookup-symbol)
(set-lookup-handlers! 'emacs-lisp-mode :documentation 'info-lookup-symbol)
(set-docset! '(lisp-mode emacs-lisp-mode) "Emacs Lisp")
(set! :rotate 'emacs-lisp-mode

View file

@ -40,7 +40,7 @@
ess-default-style 'DEFAULT)
(ess-toggle-underscore t)
(set-repl-handler! 'ess-mode #'+ess/r-repl)
(set! :lookup 'ess-mode :documentation #'ess-display-help-on-object)
(set-lookup-handlers! 'ess-mode :documentation #'ess-display-help-on-object)
(define-key! ess-doc-map
"h" #'ess-display-help-on-object
"p" #'ess-R-dv-pprint

View file

@ -7,7 +7,7 @@
(after! go-mode
(set-env! "GOPATH" "GOROOT")
(set-repl-handler! 'go-mode #'gorepl-run)
(set! :lookup 'go-mode
(set-lookup-handlers! 'go-mode
:definition #'go-guru-definition
:references #'go-guru-referrers
:documentation #'godoc-at-point)

View file

@ -14,7 +14,7 @@ This is necessary because `intero-mode' doesn't do its own error checks."
(add-hook 'haskell-mode-hook #'+haskell|init-intero)
:config
(add-hook 'intero-mode-hook #'flycheck-mode)
(set! :lookup 'haskell-mode :definition #'intero-goto-definition))
(set-lookup-handlers! 'haskell-mode :definition #'intero-goto-definition))
(def-package! hindent

View file

@ -6,7 +6,7 @@
(def-package! eclim
:hook (java-mode . eclim-mode)
:config
(set! :lookup 'java-mode
(set-lookup-handlers! 'java-mode
:definition #'eclim-java-find-declaration
:references #'eclim-java-find-references
:documentation #'eclim-java-show-documentation-for-current-element)

View file

@ -10,7 +10,7 @@
meghanada-use-eldoc t
meghanada-use-auto-start t)
(set! :lookup 'java-mode
(set-lookup-handlers! 'java-mode
:definition #'meghanada-jump-declaration
:references #'meghanada-reference)

View file

@ -105,7 +105,7 @@
(set-company-backend! 'tide-mode 'company-tide)
;; navigation
(set! :lookup 'tide-mode
(set-lookup-handlers! 'tide-mode
:definition #'tide-jump-to-definition
:references #'tide-references
:documentation #'tide-documentation-at-point)
@ -158,7 +158,7 @@
(def-package! xref-js2
:when (featurep! :feature lookup)
:commands xref-js2-xref-backend
:init (set! :lookup 'js2-mode :xref-backend #'xref-js2-xref-backend))
:init (set-lookup-handlers! 'js2-mode :xref-backend #'xref-js2-xref-backend))
(def-package! js2-refactor

View file

@ -3,7 +3,7 @@
(after! lua-mode
(add-hook 'lua-mode-hook #'flycheck-mode)
(set! :lookup 'lua-mode :documentation 'lua-search-documentation)
(set-lookup-handlers! 'lua-mode :documentation 'lua-search-documentation)
(set-electric! 'lua-mode :words '("else" "end"))
(set-repl-handler! 'lua-mode #'+lua/repl)
(set-company-backend! 'lua-mode '(company-lua company-yasnippet))

View file

@ -18,7 +18,7 @@
(setq php-template-compatibility nil)
(set-repl-handler! 'php-mode #'php-boris)
(set! :lookup 'php-mode :documentation #'php-search-documentation)
(set-lookup-handlers! 'php-mode :documentation #'php-search-documentation)
;; ac-php provides custom autocompletion, php-extras provides autocompletion
;; for built-in libraries

View file

@ -81,7 +81,7 @@ environment variables."
(add-hook 'anaconda-mode-hook #'anaconda-eldoc-mode)
(set-company-backend! 'python-mode '(company-anaconda))
(set-popup-rule! "^\\*anaconda-mode" nil '((select)))
(set! :lookup 'python-mode
(set-lookup-handlers! 'python-mode
:definition #'anaconda-mode-find-definitions
:references #'anaconda-mode-find-references
:documentation #'anaconda-mode-show-doc)

View file

@ -21,7 +21,7 @@
:after rust-mode
:config
(add-hook 'rust-mode-hook #'racer-mode)
(set! :lookup 'rust-mode
(set-lookup-handlers! 'rust-mode
:definition #'racer-find-definition
:documentation #'racer-describe))