Extract cider-stacktrace--analyze-render

Author: r0man

cider-stacktrace.el

@@ -888,6 +888,15 @@ through the `cider-stacktrace-suppressed-errors' variable."
                (cider--nrepl-print-request-map fill-column))
     (seq-mapcat #'identity)))
 
+(defun cider-stacktrace--analyze-render (causes)
+  "Render the CAUSES of the stacktrace analysis result."
+  (let ((buffer (get-buffer-create cider-error-buffer)))
+    (with-current-buffer buffer
+      (cider-stacktrace-mode)
+      (cider-stacktrace-render buffer (reverse causes))
+      (display-buffer buffer '((display-buffer-same-window)
+                               (inhibit-same-window . nil))))))
+
 (defun cider-stacktrace-analyze-string (stacktrace)
   "Analyze the STACKTRACE string and show the result."
   (let (causes)
@@ -897,12 +906,7 @@ through the `cider-stacktrace-suppressed-errors' variable."
        (setq causes (nrepl-dbind-response response (class status)
                       (cond (class (cons response causes))
                             ((and (member "done" status) causes)
-                             (let ((buffer (get-buffer-create cider-error-buffer)))
-                               (with-current-buffer buffer
-                                 (cider-stacktrace-mode)
-                                 (cider-stacktrace-render buffer (reverse causes))
-                                 (display-buffer buffer '((display-buffer-same-window)
-                                                          (inhibit-same-window . nil)))))))))))))
+                             (cider-stacktrace--analyze-render causes)))))))))
 
 (defun cider-stacktrace-analyze-at-point ()
   "Analyze the stacktrace at point."