From 2a36d76e74cc5f04eca48fe461bc0728f133143c Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 14 Jul 2021 17:22:23 +0200
Subject: [PATCH] revert to unbloated commit...

---
 src/babashka/impl/logging.clj | 47 +++--------------------------------
 src/babashka/main.clj         |  7 +++---
 2 files changed, 8 insertions(+), 46 deletions(-)

diff --git a/src/babashka/impl/logging.clj b/src/babashka/impl/logging.clj
index a497531a..ab3598b2 100644
--- a/src/babashka/impl/logging.clj
+++ b/src/babashka/impl/logging.clj
@@ -3,8 +3,7 @@
             [clojure.tools.logging.impl :as impl]
             [sci.core :as sci]
             [taoensso.encore :as enc :refer [have]]
-            [taoensso.timbre :as timbre]
-            [taoensso.timbre.appenders.core :as appenders]))
+            [taoensso.timbre :as timbre]))
 
 ;;;; timbre
 
@@ -60,44 +59,7 @@
           {}
           (select-keys (ns-publics ns) ks)))
 
-(def atomic-println @#'appenders/atomic-println)
-
-(defn println-appender
-  "Returns a simple `println` appender for Clojure/Script.
-  Use with ClojureScript requires that `cljs.core/*print-fn*` be set.
-  :stream (clj only) - e/o #{:auto :*out* :*err* :std-err :std-out <io-stream>}."
-
-  ;; Unfortunately no easy way to check if *print-fn* is set. Metadata on the
-  ;; default throwing fn would be nice...
-
-  [& [{:keys [stream] :or {stream :auto}}]]
-  (let [stream
-        (case stream
-          :std-err timbre/default-err
-          :std-out timbre/default-out
-          stream)]
-    {:enabled?   true
-     :async?     false
-     :min-level  nil
-     :rate-limit nil
-     :output-fn  :inherit
-     :fn
-     (fn [data]
-       (let [{:keys [output_]} data
-             stream
-             (case stream
-               :auto  (if (:error-level? data) @sci/err @sci/out)
-               :*out* @sci/out
-               :*err* @sci/err
-               stream)]
-         (binding [*out* stream]
-           (atomic-println (force output_)))))}))
-
-(def default-config (assoc-in timbre/*config* [:appenders :println]
-                              (println-appender {:stream :auto})))
-
-(def config (sci/new-dynamic-var '*config* default-config
-                                 {:ns tns}))
+(def config (sci/new-dynamic-var '*config* timbre/*config* {:ns tns}))
 
 (defn swap-config! [f & args]
   (apply sci/alter-var-root config f args))
@@ -109,12 +71,11 @@
                                         'info 'infof 'warn 'warnf
                                         'error 'errorf
                                         '-log! 'with-level
-                                        'spit-appender])
+                                        'println-appender 'spit-appender])
          'log! (sci/copy-var log! tns)
          '*config* config
          'swap-config! (sci/copy-var swap-config! tns)
-         'set-level! (sci/copy-var set-level! tns)
-         'println-appender (sci/copy-var println-appender tns)))
+         'set-level! (sci/copy-var set-level! tns)))
 
 ;;;; clojure.tools.logging
 
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 6d297b48..92e55b14 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -24,7 +24,7 @@
    [babashka.impl.features :as features]
    [babashka.impl.fs :refer [fs-namespace]]
    [babashka.impl.logging :refer [timbre-namespace tools-logging-namespace
-                                 tools-logging-impl-namespace]]
+                                  tools-logging-impl-namespace]]
    [babashka.impl.pods :as pods]
    [babashka.impl.pprint :refer [pprint-namespace]]
    [babashka.impl.process :refer [process-namespace]]
@@ -355,8 +355,9 @@ Use bb run --help to show this help output.
        'babashka.deps deps-namespace
        'babashka.tasks tasks-namespace
        'taoensso.timbre timbre-namespace
-       'clojure.tools.logging tools-logging-namespace
-       'clojure.tools.logging.impl tools-logging-impl-namespace}
+       ;; 'clojure.tools.logging tools-logging-namespace
+       ;; 'clojure.tools.logging.impl tools-logging-impl-namespace
+       }
     features/xml?  (assoc 'clojure.data.xml @(resolve 'babashka.impl.xml/xml-namespace))
     features/yaml? (assoc 'clj-yaml.core @(resolve 'babashka.impl.yaml/yaml-namespace)
                           'flatland.ordered.map @(resolve 'babashka.impl.ordered/ordered-map-ns))