From 050cd1fa0f9950f810f5432424ab6dd0ba44ba41 Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Fri, 10 May 2024 10:15:14 +0200 Subject: [PATCH] [mod] `format-signal-fn`: key opts API tweaks --- src/taoensso/telemere/utils.cljc | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src/taoensso/telemere/utils.cljc b/src/taoensso/telemere/utils.cljc index 74dfdce..11b2e1c 100644 --- a/src/taoensso/telemere/utils.cljc +++ b/src/taoensso/telemere/utils.cljc @@ -488,25 +488,24 @@ - Returns a signal content ?string (incl. data, ctx, etc.). Options: - `:incl-thread?` - Include signal `:thread` info? (default false) - `:incl-kvs?` - Include signal `:kvs` info? (default false) - `:raw-error?` - Retain unformatted error? (default false) + `:raw-error?` - Retain unformatted error? (default false) + `:incl-keys` - Subset of signal keys to retain from those + otherwise excluded by default: #{:kvs :thread} `:format-nsecs-fn` - (fn [nanosecs]) => string. `:format-error-fn` - (fn [error]) => string." ([] (signal-content-fn nil)) - ([{:keys - [incl-thread? incl-kvs? raw-error?, - format-nsecs-fn format-error-fn] - + ([{:keys [raw-error? incl-keys, format-nsecs-fn format-error-fn] :or {format-nsecs-fn (format-nsecs-fn) ; (fn [nanosecs]) format-error-fn (format-error-fn) ; (fn [error]) }}] - (let [nl newline - err-start (str nl "<<< error <<<" nl) - err-stop (str nl ">>> error >>>")] + (let [nl newline + err-start (str nl "<<< error <<<" nl) + err-stop (str nl ">>> error >>>") + incl-kvs? (contains? incl-keys :kvs) + incl-thread? (contains? incl-keys :thread)] (fn signal-content ([signal]