find source and display

source.el

(defun cider-tooltip-source ()
  (interactive)
  (let* ((sym (thing-at-point 'symbol))
         (response (cider-nrepl-send-sync-request
                    (list "op" "eval"
                          "code"
                          (format
                           "(do (require 'clojure.repl) (with-out-str (clojure.repl/source %s)))"
                           sym)))))
    (when-let ((source (nrepl-dict-get response "value")))
      (pos-tip-show (read source)
                    nil
                    nil
                    nil
                    -1))))