Get all thread information in clojure

thread-info.clj

(defn print-threads [& {:keys [headers pre-fn]
                     :or {pre-fn identity}}]
  (let [thread-set (keys (Thread/getAllStackTraces))
        thread-data (mapv bean thread-set)
        headers (or headers (-> thread-data first keys))]
    (clojure.pprint/print-table headers (pre-fn thread-data))))

(defn print-threads-str [& args]
  (with-out-str (apply print-threads args)))


(comment  
          ;;print all properties for all threads
          (print-threads) 
          
          ;;print name,state,alive,daemon properties for all threads
          (print-threads :headers [:name :state :alive :daemon]) 
          
          ;;print name,state,alive,daemon properties for non-daemon threads
          (print-threads :headers [:name :state :alive :daemon] :pre-fn (partial filter #(false? (:daemon %))))
          
          ;;log name,state,alive,daemon properties for non-daemon threads
          (log/debug  (print-threads-str :headers [:name :state :alive :daemon] :pre-fn (partial filter #(false? (:daemon %)))))
          )