luciano/telemere
1
0
Fork 0
mirror of https://github.com/taoensso/telemere.git synced 2026-02-14 23:35:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

[nop] Housekeeping

Browse source
This commit is contained in:
Peter Taoussanis 2025-03-03 12:21:06 +01:00
parent 6b0e0b9fff
commit b03b06de6a
2 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
main/src/taoensso/telemere.cljc
View file

@ -58,7 +58,7 @@
enc/newline
enc/comp-middleware
sigs/default-handler-dispatch-opts
truss/keep-callsite
#?(:clj truss/keep-callsite)
;; Impl
impl/msg-splice
@ -236,7 +236,7 @@
#?(:clj
(defmacro signal!
"opts => allowed? / unconditional run result (value or throw)."
"opts => allowed? / run result (value or throw)."
{:doc (impl/signal-docstring :signal!)
:arglists (impl/signal-arglists :signal!)}
[& args]
@ -295,7 +295,7 @@
#?(:clj
(let [base-opts {:kind :trace, :level :info, :msg `impl/default-trace-msg}]
(defmacro trace!
"?id + run => unconditional run result (value or throw)."
"?id + run => run result (value or throw)."
{:doc (impl/signal-docstring :trace!)
:arglists (impl/signal-arglists :trace!)}
([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run)))
@ -306,7 +306,7 @@
#?(:clj
(let [base-opts {:kind :spy, :level :info, :msg `impl/default-trace-msg}]
(defmacro spy!
"?level + run => unconditional run result (value or throw)."
"?level + run => run result (value or throw)."
{:doc (impl/signal-docstring :spy!)
:arglists (impl/signal-arglists :spy!)}
([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run)))
@ -317,7 +317,7 @@
#?(:clj
(let [base-opts {:kind :error, :level :error}]
(defmacro error!
"?id + error => unconditional given error."
"?id + error => given error."
{:doc (impl/signal-docstring :error!)
:arglists (impl/signal-arglists :error!)}
([opts-or-id error] `(error! ~(assoc (merge-or-assoc-opts base-opts &form :id opts-or-id) :error error)))
@ -334,7 +334,7 @@
#?(:clj
(let [base-opts {:kind :error, :level :error}]
(defmacro catch->error!
"?id + run => unconditional run value or ?catch-val."
"?id + run => run value or ?catch-val."
{:doc (impl/signal-docstring :catch->error!)
:arglists (impl/signal-arglists :catch->error!)}
([opts-or-id run] `(catch->error! ~(assoc (merge-or-assoc-opts base-opts &form :id opts-or-id) :run run)))

14
main/src/taoensso/telemere/impl.cljc
View file

@ -397,7 +397,7 @@
sample-rate kind ns id level when rate-limit rate-limit-by,
#_ctx #_ctx+ #_parent #_root #_trace?, #_do #_let #_data #_msg #_error #_run #_& #_kvs]}])
:signal! ; opts => allowed? / unconditional run result (value or throw)
:signal! ; opts => allowed? / run result (value or throw)
'( [& opts-kvs]
[{:as opts-map :keys
[#_elide? #_allow? #_callsite-id, ; Undocumented
@ -405,7 +405,7 @@
sample-rate kind ns id level when rate-limit rate-limit-by,
ctx ctx+ parent root trace?, do let data msg error run & kvs]}])
:log! ; ?level + msg => allowed?
:log! ; ?level + msg => nil / allowed?
'([opts-or-msg]
[level msg]
[{:as opts-map :keys
@ -415,7 +415,7 @@
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}
msg])
:event! ; id + ?level => allowed?
:event! ; id + ?level => nil / allowed?
'([opts-or-id]
[id level]
[id
@ -425,7 +425,7 @@
sample-rate kind ns id level when rate-limit rate-limit-by,
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}])
:trace! ; ?id + run => unconditional run result (value or throw)
:trace! ; ?id + run => run result (value or throw)
'([opts-or-run]
[id run]
[{:as opts-map :keys
@ -435,7 +435,7 @@
ctx ctx+ parent root trace?, do let data msg error run & kvs]}
run])
:spy! ; ?level + run => unconditional run result (value or throw)
:spy! ; ?level + run => run result (value or throw)
'([opts-or-run]
[level run]
[{:as opts-map :keys
@ -445,7 +445,7 @@
ctx ctx+ parent root trace?, do let data msg error run & kvs]}
run])
:error! ; ?id + error => unconditional given error
:error! ; ?id + error => given error
'([opts-or-error]
[id error]
[{:as opts-map :keys
@ -455,7 +455,7 @@
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}
error])
:catch->error! ; ?id + run => unconditional run value or ?catch-val
:catch->error! ; ?id + run => run value or ?catch-val
'([opts-or-run]
[id run]
[{:as opts-map :keys