thread dump clojure programmatic jstack

clojure-jstack.clj

(ns thread-dump
  (:require [clojure.stacktrace :as st])
  (:import [java.lang.management ManagementFactory]))

(defn jstack [n]
  (let [threadMXBean (ManagementFactory/getThreadMXBean)
        info (.getThreadInfo threadMXBean (.getAllThreadIds threadMXBean) 100)]
    (print
      (for [threadInfo info]
        (str
          (newline)
          (.getThreadName threadInfo)
          "\n" (.getThreadState threadInfo)
          "\n"
          (with-out-str
            (let [st (.getStackTrace threadInfo)]
              (newline)
              (print " at ")
              (if-let [e (first st)]
                (st/print-trace-element e)
                (print "[empty stack trace]"))
              (newline)
              (doseq [e (if (nil? n)
                          (rest st)
                          (take (dec n) (rest st)))]
                (print "    ")
                (st/print-trace-element e)
                (newline)))))))))