[Fix #2023] Make popup-buffer sexp indentation optional (#2038)

- Add optional inhibit-indent argument to cider-emit-into-popup-buffer.

- Inhibit indentation where output is already indented (pprint) or not sexps.

1 files changed, 5 insertions, 3 deletions

diff --git a/cider-popup.el b/cider-popup.el
index c0069bd1..f4ebba78 100644
--- a/cider-popup.el
+++ b/cider-popup.el
@@ -103,8 +103,9 @@ and automatically removed when killed."
                 nil 'local))
     (current-buffer)))
 
-(defun cider-emit-into-popup-buffer (buffer value &optional face)
-  "Emit into BUFFER the provided VALUE optionally using FACE."
+(defun cider-emit-into-popup-buffer (buffer value &optional face inhibit-indent)
+  "Emit into BUFFER the provided VALUE optionally using FACE.
+Indents emitted sexp value unless INHIBIT-INDENT is specified and non-nil."
   ;; Long string output renders Emacs unresponsive and users might intentionally
   ;; kill the frozen popup buffer. Therefore, we don't re-create the buffer and
   ;; silently ignore the output.
@@ -121,7 +122,8 @@ and automatically removed when killed."
                   (add-face-text-property 0 (length value-str) face nil value-str)
                 (add-text-properties 0 (length value-str) (list 'face face) value-str)))
             (insert value-str))
-          (indent-sexp)
+          (unless inhibit-indent
+            (indent-sexp))
           (set-marker cider-popup-output-marker (point)))
         (when moving (goto-char cider-popup-output-marker))))))