Global Exception catching

global_catch_exception.clj

;; That will actually catch exception within inner thread, too. And within inner thread of inner thread. Etc.
(Thread/setDefaultUncaughtExceptionHandler  (proxy [Thread$UncaughtExceptionHandler] []
                                              (uncaughtException [t e]
                                                ;; 
                                                ;; Your fancy Exception logging here
                                                ;; 
                                                (println "Throwable: " + (.getMessage e))
                                                (println (.toString t)))))
(.start (Thread. (cast Runnable
                       (fn []
                         (throw (Exception. "INNER THREAD EXCEPTION!!"))))))
;;Throwable:  #<core$_PLUS_ clojure.core$_PLUS_@292ade54> INNER THREAD EXCEPTION!!
;;Thread[Thread-1,5,main]