luciano/telemere
1
0
Fork 0
mirror of https://github.com/taoensso/telemere.git synced 2025-12-16 17:41:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

[new] [#34] Add new signal-preamble-fn opts (@Knotschi)

Browse source 
New opts:

  - `:format-id-fn`
  - `:format-msg-fn`

This way its easier to reuse signal-preamble-fn for custom handlers.
If nil is passed as any format fn: value won't be logged.
The `-` char before the msg is now part of the formatter fn.
This commit is contained in:
Damiano Ruehl 2024-11-21 23:58:06 +01:00 committed by Peter Taoussanis
parent 9dc9a4645b
commit 0822217480
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
projects/main/src/taoensso/telemere/utils.cljc
View file

@ -511,10 +511,14 @@
\"2024-03-26T11:14:51.806Z INFO EVENT Hostname taoensso.telemere(2,21) ::ev-id - msg\"
Options:
`:format-inst-fn` - (fn format [instant]) => string."
`:format-inst-fn` - (fn format [instant]) => string.
`:format-id-fn` - (fn format [ns id]) => string.
`:format-msg-fn` - (fn format [msg]) => string."
([] (signal-preamble-fn nil))
([{:keys [format-inst-fn]
:or {format-inst-fn (format-inst-fn)}}]
([{:keys [format-inst-fn format-id-fn format-msg-fn]
:or {format-inst-fn (format-inst-fn)
format-id-fn format-id
format-msg-fn (fn [msg] (str "- " msg))}}]
(fn signal-preamble [signal]
(let [{:keys [inst level kind ns id msg_]} signal
@ -536,8 +540,10 @@
(when-let [c (get signal :column)] (s+ "," c))
(s+ ")"))))
(when id (s+spc (sigs/format-id ns id)))
(when-let [msg (force msg_)] (s+spc "- " msg))
(when id (when-let [ff format-id-fn] (s+spc (ff ns id))))
(enc/when-let [ff format-msg-fn
msg (force msg_)]
(s+spc (ff msg)))
(when-not (zero? (enc/sb-length sb))
(str sb))))))