Replace :lookup with set-lookup-handlers! autodef

And update all internal references.

modules/feature/lookup/autoload/lookup.el

@@ -4,8 +4,8 @@
 (defvar +lookup--ag-installed-p (executable-find "ag"))
 (defvar +lookup--last-provider nil)
 
-;;;###autoload
+;;;###autodef
-(def-setting! :lookup (modes &rest plist)
+(cl-defun set-lookup-handlers! (modes &key definition references documentation file xref-backend)
   "Defines a jump target for major MODES. PLIST accepts the following
 properties:
 
@@ -27,24 +27,30 @@ properties:
 
 Using this multiple times overwrites previous properties and unsets omitted
 ones."
-  `(progn
+  (dolist (mode (doom-enlist modes))
-     ,@(cl-loop for mode in (doom-enlist (doom-unquote modes))
+    (let ((def-name (intern (format "+lookup--init-%s" mode))))
-                for def-name = (intern (format "doom--init-lookup-%s" mode))
+      (fset def-name
-                collect
+            (lambda ()
-                `(defun ,def-name ()
+              (when (or (eq major-mode mode)
-                   (when (or (eq major-mode ',mode)
+                        (and (boundp mode)
-                             (bound-and-true-p ,mode))
+                             (symbol-value mode)))
-                     (let ((xref ,(plist-get plist :xref-backend))
+                (when definition
-                           (def ,(plist-get plist :definition))
+                  (add-hook '+lookup-definition-functions definition nil t))
-                           (ref ,(plist-get plist :references))
+                (when references
-                           (fil ,(plist-get plist :file))
+                  (add-hook '+lookup-references-functions references nil t))
-                           (doc ,(plist-get plist :documentation)))
+                (when documentation
-                       (if xref (add-hook 'xref-backend-functions xref nil t))
+                  (add-hook '+lookup-documentation-functions documentation nil t))
-                       (if def (add-hook '+lookup-definition-functions def nil t))
+                (when file
-                       (if ref (add-hook '+lookup-references-functions ref nil t))
+                  (add-hook '+lookup-file-functions file nil t))
-                       (if fil (add-hook '+lookup-file-functions fil nil t))
+                (when xref-backend
-                       (if doc (add-hook '+lookup-documentation-functions doc nil t)))))
+                  (add-hook 'xref-backend-functions xref-backend nil t)))))
-                collect `(add-hook! ,mode #',def-name))))
+      (add-hook (intern (format "%s-hook" mode)) def-name))))
+
+;;;###autoload
+(def-setting! :lookup (modes &rest plist)
+  :obsolete set-lookup-handlers!
+  `(set-lookup-handlers! ,modes ,@plist))
+
 
 ;; Helpers
 (defun +lookup--online-provider (&optional force-p namespace)

modules/lang/cc/config.el

@@ -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)
 

modules/lang/clojure/config.el

@@ -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)
 

modules/lang/crystal/config.el

@@ -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

modules/lang/csharp/config.el

@@ -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)

modules/lang/elixir/config.el

@@ -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)

modules/lang/emacs-lisp/config.el

@@ -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

modules/lang/ess/config.el

@@ -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

modules/lang/go/config.el

@@ -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)

modules/lang/haskell/+intero.el

@@ -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

modules/lang/java/+eclim.el

@@ -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)

modules/lang/java/+meghanada.el

@@ -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)
 

modules/lang/javascript/config.el

@@ -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

modules/lang/lua/config.el

@@ -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))

modules/lang/php/config.el

@@ -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

modules/lang/python/config.el

@@ -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)

modules/lang/rust/config.el

@@ -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))