log via clojure.tools.logging if that is available

Author: ikitommi

project.clj

@@ -30,6 +30,7 @@
                              [lein-ring "0.9.7"]
                              [funcool/codeina "0.3.0"]]
                    :dependencies [[org.clojure/clojure "1.7.0"]
+                                  [org.clojure/tools.logging "0.3.1"]
                                   [peridot "0.4.1"]
                                   [javax.servlet/servlet-api "2.5"]
                                   [midje "1.8.2"]

src/compojure/api/logging.clj

@@ -0,0 +1,21 @@
+(ns compojure.api.logging)
+
+(defn resolve-logger []
+  (if (find-ns 'clojure.tools.logging)
+    (do
+      (require 'clojure.tools.logging)
+      (fn [level x]
+        (clojure.tools.logging/spy level x)))
+    (fn [level x & more]
+      (let [log (fn [level more]
+                  (println (.toUpperCase (name level)) (apply str more)))]
+        (if (instance? Throwable x)
+          (do
+            (log level (cons (.getMessage x) more))
+            (.printStackTrace x))
+          (log level (cons x more)))))))
+
+(def log (resolve-logger))
+
+(comment
+  (log :info (RuntimeException. "kosh")))