unbloated

This commit is contained in:
Michiel Borkent 2021-07-14 17:45:31 +02:00
parent ff83b69990
commit c9ed8ce24f

View file

@ -67,15 +67,18 @@
(defn set-level! [level] (swap-config! (fn [m] (assoc m :min-level level)))) (defn set-level! [level] (swap-config! (fn [m] (assoc m :min-level level))))
(def timbre-namespace (def timbre-namespace
(assoc (make-ns 'taoensso.timbre tns ['trace 'tracef 'debug 'debugf (assoc (make-ns 'taoensso.timbre tns [] #_['trace 'tracef 'debug 'debugf
'info 'infof 'warn 'warnf 'info 'infof 'warn 'warnf
'error 'errorf 'error 'errorf
'-log! 'with-level '-log! 'with-level
'println-appender 'spit-appender]) 'println-appender 'spit-appender])
'log! (sci/copy-var log! tns) nil nil
'*config* config #_#_'log! (sci/copy-var log! tns)
'swap-config! (sci/copy-var swap-config! tns) #_#_'*config* config
'set-level! (sci/copy-var set-level! tns))) #_#_'swap-config! (sci/copy-var swap-config! tns)
#_#_'set-level! (sci/copy-var set-level! tns)))
(prn timbre-namespace)
;;;; clojure.tools.logging ;;;; clojure.tools.logging