Programmatic JVM Thread Dump in Clojure

jvm-thread-dump.clj

(import '(java.lang.management ManagementFactory))

(defn thread-dump [] 
  (with-out-str
    (let [tmx-bean (ManagementFactory/getThreadMXBean)
          tids (.getAllThreadIds tmx-bean)
          max-stack-depth 100
          tinfo (.getThreadInfo tmx-bean tids max-stack-depth)]
      (doseq [tinf tinfo]
        (println (str \" (.getThreadName tinf) \"))
        (println (str "    java.lang.Thread.State: " (.getThreadState tinf)))
        (doseq [ste (.getStackTrace tinf)]
          (println "        at" (str ste)))
        (println "\n")))))

(comment 
  "Usage"
  (spit "thread-dump.txt" (thread-dump)))