[new] Give signal! a default kind and level

This commit is contained in:
Peter Taoussanis 2024-11-01 15:51:06 +01:00
parent 9dc883dce9
commit 7532c2eca5
2 changed files with 4 additions and 4 deletions

View file

@ -1,8 +1,8 @@
Low-level generic signal creator. Low-level generic signal creator.
API: [opts] => depends on options [2] API: [opts] => depends on options [2]
Default kind: none (optional) Default kind: `:generic`
Default level: none (must be provided) Default level: `:info`
When filtering conditions are met [4], creates a Telemere signal [3] and When filtering conditions are met [4], creates a Telemere signal [3] and
dispatches it to registered handlers for processing (e.g. writing to dispatches it to registered handlers for processing (e.g. writing to

View file

@ -568,8 +568,8 @@
:arglists (signal-arglists :signal!)} :arglists (signal-arglists :signal!)}
[opts] [opts]
(have? map? opts) ; We require const map keys, but vals may require eval (have? map? opts) ; We require const map keys, but vals may require eval
(let [defaults (get opts :defaults) (let [defaults (enc/merge {:kind :generic, :level :info} (get opts :defaults))
opts (merge defaults (dissoc opts :defaults)) opts (enc/merge defaults (dissoc opts :defaults))
cljs? (boolean (:ns &env)) cljs? (boolean (:ns &env))
clj? (not cljs?) clj? (not cljs?)
{run-form :run} opts {run-form :run} opts