From e9a243302189734715644798b8fb1cfe23a19673 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Thu, 29 Aug 2024 12:23:19 +0200 Subject: [PATCH] [nop] Update to latest Encore API --- project.clj | 2 +- src/taoensso/timbre.cljc | 38 ++++++++++++------------- src/taoensso/timbre/appenders/core.cljc | 2 +- 3 files changed, 21 insertions(+), 21 deletions(-) diff --git a/project.clj b/project.clj index 4484bee..b525a2a 100644 --- a/project.clj +++ b/project.clj @@ -57,7 +57,7 @@ :dev [:dev+ :community #_:deploy] :dev+ - {:jvm-opts ["-server" "-Dtaoensso.elide-deprecated=true"] + {:jvm-opts ["-server" #_"-Dtaoensso.elide-deprecated=true"] :global-vars {*warn-on-reflection* true *assert* true diff --git a/src/taoensso/timbre.cljc b/src/taoensso/timbre.cljc index 640ff8e..dbef48d 100644 --- a/src/taoensso/timbre.cljc +++ b/src/taoensso/timbre.cljc @@ -12,7 +12,7 @@ #?(:cljs (:require-macros [taoensso.timbre]))) -(enc/assert-min-encore-version [3 85 0]) +(enc/assert-min-encore-version [3 117 0]) (comment (remove-ns 'taoensso.timbre) @@ -323,8 +323,8 @@ (comment (get-timestamp default-timestamp-opts (enc/now-udt))) -#?(:clj (defn ^:no-doc get-?hostname "Returns uncached local hostname string, or nil." [] (enc/get-hostname nil))) -#?(:clj (defn get-hostname "Returns cached local hostname string." ^String [] (enc/get-hostname (enc/msecs :mins 1) 5000 "UnknownHost"))) +#?(:clj (defn ^:no-doc get-?hostname "Returns uncached local hostname string, or nil." [] (enc/hostname nil))) +#?(:clj (defn get-hostname "Returns cached local hostname string." ^String [] (enc/hostname (enc/msecs :mins 1) 5000 "UnknownHost"))) #?(:clj (defn ansi-color [color] @@ -425,15 +425,16 @@ (defn- protected-fn [error-msg f] (fn [data] - (enc/catching (f data) t - (let [{:keys [level ?ns-str ?file ?line]} data] - (throw - (ex-info error-msg - {:output-fn f - :level level - :loc {:ns ?ns-str, :file ?file, :line ?line} - :log-data data} - t)))))) + (enc/try* (f data) + (catch :all t + (let [{:keys [level ?ns-str ?file ?line]} data] + (throw + (ex-info error-msg + {:output-fn f + :level level + :loc {:ns ?ns-str, :file ?file, :line ?line} + :log-data data} + t))))))) (comment ((protected-fn "Whoops" (fn [data] (/ 1 0))) {})) @@ -725,11 +726,11 @@ #?(:clj (do - (defmacro log-errors [& body] `(enc/catching (do ~@body) t# (log! :error nil nil {:loc ~(enc/get-source &form &env), :?err t#}))) - (defmacro logged-future [& body] `(future (enc/catching (do ~@body) t# (log! :error nil nil {:loc ~(enc/get-source &form &env), :?err t#})))) + (defmacro log-errors [& body] `(enc/try* (do ~@body) (catch :all t# (log! :error nil nil {:loc ~(enc/get-source &form &env), :?err t#})))) + (defmacro logged-future [& body] `(future (enc/try* (do ~@body) (catch :all t# (log! :error nil nil {:loc ~(enc/get-source &form &env), :?err t#}))))) (defmacro log-and-rethrow-errors [& body] - `(enc/catching (do ~@body) t# - (do + `(enc/try* (do ~@body) + (catch :all t# (log! :error nil nil {:loc ~(enc/get-source &form &env), :?err t#}) (throw t#)))))) @@ -740,12 +741,11 @@ #?(:clj (defmacro ^:no-doc -spy [loc config level name form] - `(enc/catching + `(enc/try* (let [result# ~form] (log! ~level :p [~name "=>" result#] ~{:loc loc, :config config, :spying? true}) result#) - t# - (do + (catch :all t# (log! :error nil nil {:loc ~loc, :?err t#, :spying? true}) (throw t#))))) diff --git a/src/taoensso/timbre/appenders/core.cljc b/src/taoensso/timbre/appenders/core.cljc index 249b163..c71ab9a 100644 --- a/src/taoensso/timbre/appenders/core.cljc +++ b/src/taoensso/timbre/appenders/core.cljc @@ -47,7 +47,7 @@ stream)] (binding [*out* stream] - (enc/println-atomic (force output_)))))))})) + (enc/println (force output_)))))))})) (comment (println-appender))