Feature Request: Enhanced color-str about timbre HOT 6 CLOSED

{:doc "Like the :standard-out appender, but colors output by logging level"
 :min-level nil :enabled? true :async? false :rate-limit nil
 :fn (fn [{:keys [error? output level]}] ; Can use any appender args
        (binding [*out* (if error? *err* *out*)]
          ;; TODO: Do a case against `level` to adjust output color
          (str-println output)))}

(timbre/set-config!
  [:appenders :standard-out]
  {:doc "Writes to pretty colorized output for log levels > debug"
   :min-level :debug
   :enabled? true
   :async? false 
   :max-message-per-msecs nil
   :fn (fn [{:keys [error? output level]}] ; Can use any appender args
         (binding [*out* (if error? *err* *out*)]
           (cond 
             (= level :info) (timbre/str-println (timbre/color-str :green output))
             (= level :warn) (timbre/str-println (timbre/color-str :yellow output))
             (= level :error) (timbre/str-println (timbre/color-str :red output))
             (= level :fatal) (timbre/str-println (timbre/color-str :purple output))
             (= level :report) (timbre/str-println (timbre/color-str :blue output))
             :else (timbre/str-println output))))})

(if-let [color ({:info :green :warn :yellow :error :red :fatal :purple :report :blue} level)]
  (timbre/str-println (timbre/color-str color output))
  (timbre/str-println output))

(defn config-timbre! []
  (let [colors {:info :green, :warn :yellow, :error :red, :fatal :purple, :report :blue}]
    (timbre/set-config!
      {:level :debug
       :output-fn default-output-fn
       :appenders
       {:color-appender
         {:enabled?   true
          :async?     false
          :min-level  nil
          :rate-limit nil
          :output-fn  :inherit
          :fn (fn [{:keys [error? level output-fn] :as data}]
                (binding [*out* (if error? *err* *out*)]
                  (if-let [color (colors level)]
                    (println (color-str color (output-fn data)))
                    (println (output-fn data)))))}}})))