[Fix #1725] Display class names in eldoc for interop forms (#1729)

The class information returned by `eldoc` middleware op is used.
clojure-emacs/cider-nrepl#349

1 files changed, 11 insertions, 0 deletions

diff --git a/cider-util.el b/cider-util.el
index 462e8f00..9ae52789 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -35,6 +35,7 @@
 (require 'cl-lib)
 (require 'clojure-mode)
 (require 'cider-compat)
+(require 'nrepl-dict)
 
 (defalias 'cider-pop-back 'pop-tag-mark)
 
@@ -123,6 +124,16 @@ find a symbol if there isn't one at point."
               (forward-sexp -1)))
           (cider-symbol-at-point)))))
 
+(defun cider-ns-thing-at-point ()
+  "Return destructured `cider-symbol-at-point'.
+If the symbol at point is of the form ns-name/thing-name, returns a dict
+\(\"ns\" \"ns-name\" \"thing\" \"thing-name\")."
+  (let* ((sym (cider-symbol-at-point))
+         (ns-thing (split-string sym "/")))
+    (if (< (length ns-thing) 2)
+        (nrepl-dict "thing" (car ns-thing))
+      (nrepl-dict "ns" (car ns-thing) "thing" (cadr ns-thing)))))
+
 
 ;;; sexp navigation
 (defun cider-sexp-at-point (&optional bounds)