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

[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

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

@ -733,11 +733,8 @@
Options: Options:
`:pr-fn` - ∈ #{<unary-fn> :edn (default) :json (Cljs only)} `:pr-fn` - ∈ #{<unary-fn> :edn (default) :json (Cljs only)}
`:incl-kvs?` - Include signal's app-level kvs? (default false) `:clean-fn` - (fn [signal]) => clean signal map, see [1]
`:incl-nils?` - Include signal's keys with nil values? (default false)
`:incl-newline?` - Include terminating system newline? (default true) `: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}
Examples: Examples:
@ -752,16 +749,18 @@
#?(:cljs :json ; Use js/JSON.stringify #?(:cljs :json ; Use js/JSON.stringify
:clj jsonista/write-value-as-string)}) :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` See also `format-signal-fn` for an alternative to `pr-signal-fn`
that produces human-readable output." that produces human-readable output."
([] (pr-signal-fn nil)) ([] (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 :or
{pr-fn :edn {pr-fn :edn
clean-fn (clean-signal-fn)
incl-newline? true}}] incl-newline? true}}]
(let [nl newline (let [nl newline
clean-fn (clean-signal-fn opts)
pr-fn pr-fn
(or (or
(case pr-fn (case pr-fn
@ -789,14 +788,8 @@
(do (pr-fn (clean-fn signal))))))))) (do (pr-fn (clean-fn signal)))))))))
(comment (comment
(def s1 (tel/with-signal (tel/event! ::ev-id {:kvs {:k1 "v1"}}))) ((pr-signal-fn {:pr-fn :edn})
((pr-signal-fn {:pr-fn :edn}) s1) (tel/with-signal (tel/event! ::ev-id {:kvs {:k1 "v1"}}))))
((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))))
(defn format-signal-fn (defn format-signal-fn
"Experimental, subject to change. "Experimental, subject to change.