luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#1087] Add spy macro from taoensso.timbre

Browse source
This commit is contained in:
Michiel Borkent 2021-12-21 21:29:33 +01:00
parent 5b444995a0
commit 79cbe5b58a
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
feature-logging/babashka/impl/logging.clj
View file

@ -107,18 +107,27 @@
(defn merge-config! [m] (swap-config! (fn [old] (enc/nested-merge old m)))) (defn merge-config! [m] (swap-config! (fn [old] (enc/nested-merge old m))))
(defmacro -log-and-rethrow-errors [?line & body]
`(try (do ~@body)
(catch Throwable e#
(do
#_(error e#) ; CLJ-865
(timbre/log! :error :p [e#] ~{:?line ?line})
(throw e#)))))
(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
'spit-appender]) 'spit-appender '-spy 'spy])
'log! (sci/copy-var log! tns) 'log! (sci/copy-var log! tns)
'*config* config '*config* config
'swap-config! (sci/copy-var swap-config! tns) 'swap-config! (sci/copy-var swap-config! tns)
'merge-config! (sci/copy-var merge-config! tns) 'merge-config! (sci/copy-var merge-config! tns)
'set-level! (sci/copy-var set-level! tns) 'set-level! (sci/copy-var set-level! tns)
'println-appender (sci/copy-var println-appender tns))) 'println-appender (sci/copy-var println-appender tns)
'-log-and-rethrow-errors (sci/copy-var -log-and-rethrow-errors tns)))
;;;; clojure.tools.logging ;;;; clojure.tools.logging