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

[mod] Update pr-signal-fn to use clean-signal-fn

Browse source
This commit is contained in:
Peter Taoussanis 2024-09-13 18:13:27 +02:00
parent be55f44a87
commit f703630914
1 changed files with 10 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -733,11 +733,8 @@
Options:
`:pr-fn` - ∈ #{<unary-fn> :edn (default) :json (Cljs only)}
`:incl-kvs?` - Include signal's app-level kvs? (default false)
`:incl-nils?` - Include signal's keys with nil values? (default false)
`:incl-newline?` - Include terminating system newline? (default true)
`:incl-keys` - Subset of signal keys to retain from those otherwise
excluded by default: #{:location :kvs :file :host :thread}
`:clean-fn` - (fn [signal]) => clean signal map, see [1]
`:incl-newline?` - Include terminating system newline? (default true)
Examples:
@ -752,20 +749,22 @@
#?(:cljs :json ; Use js/JSON.stringify
:clj jsonista/write-value-as-string)})
[1] `taoensso.telemere.utils/clean-signal-fn`, etc.
See also `format-signal-fn` for an alternative to `pr-signal-fn`
that produces human-readable output."
([] (pr-signal-fn nil))
([{:keys [pr-fn, incl-kvs? incl-nils? incl-newline? incl-keys] :as opts
([{:keys [pr-fn clean-fn incl-newline?] :as opts
:or
{pr-fn :edn
{pr-fn :edn
clean-fn (clean-signal-fn)
incl-newline? true}}]
(let [nl newline
clean-fn (clean-signal-fn opts)
pr-fn
(or
(case pr-fn
:edn pr-edn
:edn pr-edn
:json
#?(:cljs pr-json
:clj
@ -789,14 +788,8 @@
(do (pr-fn (clean-fn signal)))))))))
(comment
(def s1 (tel/with-signal (tel/event! ::ev-id {:kvs {:k1 "v1"}})))
((pr-signal-fn {:pr-fn :edn}) s1)
((pr-signal-fn {:pr-fn (fn [_] "str")}) s1)
((pr-signal-fn {:pr-fn :none}) s1)
(let [pr-fn (pr-signal-fn {:pr-fn :none})]
(enc/qb 1e6 ; 817.78
(pr-fn s1))))
((pr-signal-fn {:pr-fn :edn})
(tel/with-signal (tel/event! ::ev-id {:kvs {:k1 "v1"}}))))
(defn format-signal-fn
"Experimental, subject to change.