diff --git a/modules/lang/clojure/autoload.el b/modules/lang/clojure/autoload.el index d555e26ff..79cb6ea70 100644 --- a/modules/lang/clojure/autoload.el +++ b/modules/lang/clojure/autoload.el @@ -12,3 +12,9 @@ "TODO" (interactive) (cider-switch-to-repl-buffer t)) + +;;;###autoload +(defun +clojure-lookup-symbol (identifier) + "A lookup handler for `cider-find-dwim'. +This is necessary to fix its inability to capture the full symbol at point." + (cider-find-dwim identifier)) diff --git a/modules/lang/clojure/config.el b/modules/lang/clojure/config.el index 76c6a1bf2..866af23e2 100644 --- a/modules/lang/clojure/config.el +++ b/modules/lang/clojure/config.el @@ -13,7 +13,7 @@ (set-repl-handler! 'clojure-mode #'+clojure/repl) (set-eval-handler! 'clojure-mode #'cider-eval-region) (set-lookup-handlers! 'cider-mode - :definition #'cider-find-dwim + :definition #'+clojure-lookup-symbol :documentation #'cider-doc) (add-hook 'cider-mode-hook #'eldoc-mode) :config