Modify logging to not override the filter, allowing the default to co…

…me from *default-frame-filter*
clj-commons · Feb 4, 2015 · 3d44fda · 3d44fda
1 parent 3068144
commit 3d44fda
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/src/io/aviso/logging.clj b/src/io/aviso/logging.clj
@@ -4,15 +4,25 @@
   You must [add clojure.tools.logging as an explicit dependency](https://github.com/clojure/tools.logging) of your project."
   {:added "0.1.15"}
   (:require [clojure.tools.logging :as l]
-            [io.aviso.repl :as repl]
             [io.aviso.exception :as e]
             [io.aviso.writer :as writer])
   (:import [java.lang.Thread$UncaughtExceptionHandler]))
 
 (defn install-pretty-logging
   "Modifies clojure.tools.logging to use pretty exception logging."
   ([]
-    (install-pretty-logging repl/standard-frame-filter))
+    (alter-var-root
+      #'l/log*
+      (fn [default-impl]
+        (fn [logger level throwable message]
+          (default-impl logger
+                        level
+                        nil
+                        (if throwable
+                          (str message
+                               writer/eol
+                               (e/format-exception throwable))
+                          message))))))
   ([frame-filter-fn]
     (alter-var-root
       #'l/log*