Get a thread by name in clojure

thread_by_name.clj

(defn get-thread-by-name
  [thread-name]
  (let [threads (keys (Thread/getAllStackTraces))]
    (->> threads
         (filter #(= thread-name (.getName %)))
         (some identity))))

;; You can then use the value to stop the thread:

(.stop (get-thread-by-name "server-loop"))

;; Or just get more information

(bean (get-thread-by-name "clojure-agent-send-off-pool-1"))