luciano/telemere
1
0
Fork 0
mirror of https://github.com/taoensso/telemere.git synced 2026-02-08 04:53:14 +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/newline
enc/comp-middleware enc/comp-middleware
sigs/default-handler-dispatch-opts sigs/default-handler-dispatch-opts
truss/keep-callsite #?(:clj truss/keep-callsite)
;; Impl ;; Impl
impl/msg-splice impl/msg-splice
@ -236,7 +236,7 @@
#?(:clj #?(:clj
(defmacro signal! (defmacro signal!
"opts => allowed? / unconditional run result (value or throw)." "opts => allowed? / run result (value or throw)."
{:doc (impl/signal-docstring :signal!) {:doc (impl/signal-docstring :signal!)
:arglists (impl/signal-arglists :signal!)} :arglists (impl/signal-arglists :signal!)}
[& args] [& args]
@ -295,7 +295,7 @@
#?(:clj #?(:clj
(let [base-opts {:kind :trace, :level :info, :msg `impl/default-trace-msg}] (let [base-opts {:kind :trace, :level :info, :msg `impl/default-trace-msg}]
(defmacro trace! (defmacro trace!
"?id + run => unconditional run result (value or throw)." "?id + run => run result (value or throw)."
{:doc (impl/signal-docstring :trace!) {:doc (impl/signal-docstring :trace!)
:arglists (impl/signal-arglists :trace!)} :arglists (impl/signal-arglists :trace!)}
([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run))) ([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run)))
@ -306,7 +306,7 @@
#?(:clj #?(:clj
(let [base-opts {:kind :spy, :level :info, :msg `impl/default-trace-msg}] (let [base-opts {:kind :spy, :level :info, :msg `impl/default-trace-msg}]
(defmacro spy! (defmacro spy!
"?level + run => unconditional run result (value or throw)." "?level + run => run result (value or throw)."
{:doc (impl/signal-docstring :spy!) {:doc (impl/signal-docstring :spy!)
:arglists (impl/signal-arglists :spy!)} :arglists (impl/signal-arglists :spy!)}
([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run))) ([opts-or-run] `(impl/signal! ~(merge-or-assoc-opts base-opts &form :run opts-or-run)))
@ -317,7 +317,7 @@
#?(:clj #?(:clj
(let [base-opts {:kind :error, :level :error}] (let [base-opts {:kind :error, :level :error}]
(defmacro error! (defmacro error!
"?id + error => unconditional given error." "?id + error => given error."
{:doc (impl/signal-docstring :error!) {:doc (impl/signal-docstring :error!)
:arglists (impl/signal-arglists :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))) ([opts-or-id error] `(error! ~(assoc (merge-or-assoc-opts base-opts &form :id opts-or-id) :error error)))
@ -334,7 +334,7 @@
#?(:clj #?(:clj
(let [base-opts {:kind :error, :level :error}] (let [base-opts {:kind :error, :level :error}]
(defmacro catch->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!) {:doc (impl/signal-docstring :catch->error!)
:arglists (impl/signal-arglists :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))) ([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, sample-rate kind ns id level when rate-limit rate-limit-by,
#_ctx #_ctx+ #_parent #_root #_trace?, #_do #_let #_data #_msg #_error #_run #_& #_kvs]}]) #_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] '( [& opts-kvs]
[{:as opts-map :keys [{:as opts-map :keys
[#_elide? #_allow? #_callsite-id, ; Undocumented [#_elide? #_allow? #_callsite-id, ; Undocumented
@ -405,7 +405,7 @@
sample-rate kind ns id level when rate-limit rate-limit-by, sample-rate kind ns id level when rate-limit rate-limit-by,
ctx ctx+ parent root trace?, do let data msg error run & kvs]}]) ctx ctx+ parent root trace?, do let data msg error run & kvs]}])
:log! ; ?level + msg => allowed? :log! ; ?level + msg => nil / allowed?
'([opts-or-msg] '([opts-or-msg]
[level msg] [level msg]
[{:as opts-map :keys [{:as opts-map :keys
@ -415,7 +415,7 @@
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]} ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}
msg]) msg])
:event! ; id + ?level => allowed? :event! ; id + ?level => nil / allowed?
'([opts-or-id] '([opts-or-id]
[id level] [id level]
[id [id
@ -425,7 +425,7 @@
sample-rate kind ns id level when rate-limit rate-limit-by, sample-rate kind ns id level when rate-limit rate-limit-by,
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}]) 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] '([opts-or-run]
[id run] [id run]
[{:as opts-map :keys [{:as opts-map :keys
@ -435,7 +435,7 @@
ctx ctx+ parent root trace?, do let data msg error run & kvs]} ctx ctx+ parent root trace?, do let data msg error run & kvs]}
run]) run])
:spy! ; ?level + run => unconditional run result (value or throw) :spy! ; ?level + run => run result (value or throw)
'([opts-or-run] '([opts-or-run]
[level run] [level run]
[{:as opts-map :keys [{:as opts-map :keys
@ -445,7 +445,7 @@
ctx ctx+ parent root trace?, do let data msg error run & kvs]} ctx ctx+ parent root trace?, do let data msg error run & kvs]}
run]) run])
:error! ; ?id + error => unconditional given error :error! ; ?id + error => given error
'([opts-or-error] '([opts-or-error]
[id error] [id error]
[{:as opts-map :keys [{:as opts-map :keys
@ -455,7 +455,7 @@
ctx ctx+ parent root trace?, do let data msg error #_run & kvs]} ctx ctx+ parent root trace?, do let data msg error #_run & kvs]}
error]) error])
:catch->error! ; ?id + run => unconditional run value or ?catch-val :catch->error! ; ?id + run => run value or ?catch-val
'([opts-or-run] '([opts-or-run]
[id run] [id run]
[{:as opts-map :keys [{:as opts-map :keys