luciano/telemere
1
0
Fork 0
mirror of https://github.com/taoensso/telemere.git synced 2025-12-31 06:58:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

[mod] format-signal-fn: key opts API tweaks

Browse source
This commit is contained in:
Peter Taoussanis 2024-05-10 10:15:14 +02:00
parent cf72017a5b
commit 050cd1fa0f
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/taoensso/telemere/utils.cljc
View file

@ -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]