[fix] [#398] Appenders should use post-middleware log level (@DerGuteMoritz)

Before this commit:

  If middleware changed a log call's level (e.g. from `:info` to `:debug`),
  appenders would still filter based on the initial level (`:info`).

After this commit:

  If middleware changes a log call's level (e.g. from `:info` to `:debug`),
  appenders now filter based on the updated level (`:debug`).

  This behavior is consistent with e.g. `:msg_` which was already exposed to
  the updated level.

Author: DerGuteMoritz

src/taoensso/timbre.cljc

@@ -491,7 +491,7 @@
              (get config :middleware))]
 
        (when-let [data ?data] ; Not filtered by middleware
-         (let [{:keys [vargs]} data
+         (let [{:keys [level vargs]} data
                data
                (enc/assoc-nx data
                  :msg_ (delay ((protected-fn "Timbre error when calling (msg-fn <data>)"

test/taoensso/timbre_tests.cljc

@@ -92,7 +92,9 @@
    (testing "Levels.appender/basic"
      [(is (map? (log-data "ns" :info {:min-level :info}   {:min-level :info}   [])) "call >= both global and appender")
       (is (nil? (log-data "ns" :info {:min-level :report} {:min-level :info}   [])) "call <  global")
-      (is (nil? (log-data "ns" :info {:min-level :info}   {:min-level :report} [])) "call <  appender")])
+      (is (nil? (log-data "ns" :info {:min-level :info}   {:min-level :report} [])) "call <  appender")
+      (is (nil? (log-data "ns" :warn {:min-level :info :middleware [(fn [_] {:level :info})]} {:min-level :warn} []))
+        "call >= both global and appender but demoted to < appender by middleware")])
 
    (testing "Levels.appender/by-ns"
      [(is (map? (log-data "ns" :info {:min-level [["ns" :info]]}  {:min-level :info}          [])) "call >= both global and appender")