From 79cbe5b58a68b7f9066ac6f741044c2311a4f9cf Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Tue, 21 Dec 2021 21:29:33 +0100
Subject: [PATCH] [#1087] Add spy macro from taoensso.timbre

---
 feature-logging/babashka/impl/logging.clj | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/feature-logging/babashka/impl/logging.clj b/feature-logging/babashka/impl/logging.clj
index d2dab946..25e1221d 100644
--- a/feature-logging/babashka/impl/logging.clj
+++ b/feature-logging/babashka/impl/logging.clj
@@ -107,18 +107,27 @@
 
 (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
   (assoc (make-ns 'taoensso.timbre tns ['trace 'tracef 'debug 'debugf
                                         'info 'infof 'warn 'warnf
                                         'error 'errorf
                                         '-log! 'with-level
-                                        'spit-appender])
+                                        'spit-appender '-spy 'spy])
          'log! (sci/copy-var log! tns)
          '*config* config
          'swap-config! (sci/copy-var swap-config! tns)
          'merge-config! (sci/copy-var merge-config! 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