Use cider-emit-into-popup-buffer

Author: r0man

cider-inspector.el

@@ -411,20 +411,15 @@ current-namespace."
   (interactive)
   (cider-ensure-connected)
   (cider-ensure-op-supported "inspect-print-current-value")
-  (cider-popup-buffer cider-result-buffer nil 'clojure-mode 'ancillary)
-  (cider-nrepl-send-request
-   `("op" "inspect-print-current-value"
-     ,@(cider--nrepl-print-request-plist fill-column))
-   (lambda (response)
-     (with-current-buffer (get-buffer-create cider-result-buffer)
-       (let ((inhibit-read-only t))
-         (nrepl-dbind-response response (status value)
-           (cond ((member "done" status)
-                  (goto-char (point-min)))
-                 ((member "value" response)
-                  (insert value)
-                  (newline)))))))
-   (cider-current-repl)))
+  (let ((buffer (cider-popup-buffer cider-result-buffer nil 'clojure-mode 'ancillary)))
+    (cider-nrepl-send-request
+     `("op" "inspect-print-current-value"
+       ,@(cider--nrepl-print-request-plist fill-column))
+     (lambda (response)
+       (nrepl-dbind-response response (value)
+         (when (stringp value)
+           (cider-emit-into-popup-buffer buffer (concat value "\n")))))
+     (cider-current-repl))))
 
 (defun cider-inspector-tap-current-val ()
   "Sends the current Inspector current value to `tap>'."