[#255] `:ns-log-level` feature to set a log level on a specific namespace/pattern (@mikekap)

This commit is contained in:
Mike Kaplinskiy 2018-04-13 15:08:52 -07:00 committed by Peter Taoussanis
parent 645dff3f03
commit 7e87b10441
1 changed files with 13 additions and 1 deletions

View File

@ -111,6 +111,7 @@
;; logging in noisy libraries, etc.: ;; logging in noisy libraries, etc.:
:ns-whitelist [] #_["my-app.foo-ns"] :ns-whitelist [] #_["my-app.foo-ns"]
:ns-blacklist [] #_["taoensso.*"] :ns-blacklist [] #_["taoensso.*"]
:ns-log-level [] #_[["taoensso.*" :info]]
:middleware [] ; (fns [data]) -> ?data, applied left->right :middleware [] ; (fns [data]) -> ?data, applied left->right
@ -237,6 +238,14 @@
(not (string? ns-str-form)) ; Not a compile-time ns-str const (not (string? ns-str-form)) ; Not a compile-time ns-str const
(compile-time-ns-filter ns-str-form))))) (compile-time-ns-filter ns-str-form)))))
(def ns-log-level
(enc/memoize_
(fn [min-level ns-log-level ?ns-str]
(or (some (fn [[pattern level]]
(when (ns-filter [pattern] [] ?ns-str)
level)) ns-log-level)
min-level))))
(defn #+clj may-log? #+cljs ^boolean may-log? (defn #+clj may-log? #+cljs ^boolean may-log?
"Runtime check: would Timbre currently log at the given logging level? "Runtime check: would Timbre currently log at the given logging level?
* `?ns-str` arg required to support ns filtering * `?ns-str` arg required to support ns filtering
@ -245,7 +254,10 @@
([level ?ns-str ] (may-log? level ?ns-str nil)) ([level ?ns-str ] (may-log? level ?ns-str nil))
([level ?ns-str ?config] ([level ?ns-str ?config]
(let [config (or ?config *config*) (let [config (or ?config *config*)
min-level (get config :level :report)] min-level (ns-log-level
(get config :level :report)
(get config :ns-log-level)
?ns-str)]
(and (and
(level>= level min-level) (level>= level min-level)
(boolean ; Resolves #206 (issue with slf4j-timbre) (boolean ; Resolves #206 (issue with slf4j-timbre)