nrepl: introduce get-printed-stack-trace to helpers

binaryage · Sep 26, 2016 · 51dd41d · 51dd41d
1 parent 7b4b257
commit 51dd41d
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/nrepl/dirac/nrepl/helpers.clj b/src/nrepl/dirac/nrepl/helpers.clj
@@ -1,6 +1,7 @@
 (ns dirac.nrepl.helpers
   (:require [dirac.nrepl.version :refer [version]])
-  (:import (java.util UUID)))
+  (:import (java.util UUID)
+           (java.io StringWriter PrintWriter)))
 
 (defmacro with-err-output [& body]
   `(binding [*out* *err*]
@@ -15,3 +16,12 @@
 
 (defn generate-uuid []
   (str (UUID/randomUUID)))
+
+(defn get-printed-stack-trace []
+  (try
+    (throw (Throwable. ""))
+    (catch Throwable e
+      (let [string-writer (StringWriter.)
+            writer (PrintWriter. string-writer)]
+        (.printStackTrace e writer)
+        (str string-writer)))))