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

View file

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