lang/clojure: fix lookup-def handler #1360

This commit is contained in:
Henrik Lissner 2019-04-24 21:31:48 -04:00
parent 4506fb9223
commit 237e14ae7b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 7 additions and 1 deletions

View file

@ -12,3 +12,9 @@
"TODO" "TODO"
(interactive) (interactive)
(cider-switch-to-repl-buffer t)) (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))

View file

@ -13,7 +13,7 @@
(set-repl-handler! 'clojure-mode #'+clojure/repl) (set-repl-handler! 'clojure-mode #'+clojure/repl)
(set-eval-handler! 'clojure-mode #'cider-eval-region) (set-eval-handler! 'clojure-mode #'cider-eval-region)
(set-lookup-handlers! 'cider-mode (set-lookup-handlers! 'cider-mode
:definition #'cider-find-dwim :definition #'+clojure-lookup-symbol
:documentation #'cider-doc) :documentation #'cider-doc)
(add-hook 'cider-mode-hook #'eldoc-mode) (add-hook 'cider-mode-hook #'eldoc-mode)
:config :config