status-im
/
re-frame
mirror of https://github.com/status-im/re-frame.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
re-frame/src/re_frame/loggers.cljc

44 lines
1.8 KiB
Plaintext
Raw Normal View History

First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
(ns re-frame.loggers
(:require
CLJC: tools.logging as default re-frame.loggers
2016-07-21 07:08:38 +00:00
[clojure.set :refer [difference]]
#?@(:clj [[clojure.string :as str]
[clojure.tools.logging :as log]])))
Lower logging levels of normal events We don't need to use the :warn logging level for standard events.
2016-07-22 00:32:25 +00:00
#?(:clj (defn log [level & args]
(log/log level (if (= 1 (count args))
(first args)
(str/join " " args)))))
First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
;; "loggers" holds the current set of logging functions.
;; By default, re-frame uses the functions provided by js/console.
;; Use set-loggers! to change these defaults.
(def ^:private loggers
(atom {:log #?(:cljs (js/console.log.bind js/console)
CLJC: tools.logging as default re-frame.loggers
2016-07-21 07:08:38 +00:00
:clj (partial log :info))
First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
:warn #?(:cljs (js/console.warn.bind js/console)
CLJC: tools.logging as default re-frame.loggers
2016-07-21 07:08:38 +00:00
:clj (partial log :warn))
First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
:error #?(:cljs (js/console.error.bind js/console)
CLJC: tools.logging as default re-frame.loggers
2016-07-21 07:08:38 +00:00
:clj (partial log :error))
First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
:group #?(:cljs (if (.-group js/console) ;; console.group does not exist < IE 11
(js/console.group.bind js/console)
(js/console.log.bind js/console))
CLJC: tools.logging as default re-frame.loggers
2016-07-21 07:08:38 +00:00
:clj (partial log :info))
First pass at converting to CLJC for JVM testing Note that the goal of using CLJC here is to enable writing and running `deftest`s in JVM Clojure to test your (CLJS) re-frame app. Actually running a re-frame app as a meaningful thing on the JVM (other than for tests) is explicitly *not* a goal. - All files renamed *.cljs -> *.cljc - New `re-frame.interop` ns for stuff that's different between CLJS and JVM Clojure, including Reagent interop. - Other CLJS incompatibilities (eg `catch :default` and `deftype`'s `^:mutable` vs `^:volatile-mutable`) are handled with reader conditionals in-place.
2016-07-20 08:57:46 +00:00
:groupEnd #?(:cljs (if (.-groupEnd js/console) ;; console.groupEnd does not exist < IE 11
(js/console.groupEnd.bind js/console)
#())
:clj #())}))
(defn console
[level & args]
(assert (contains? @loggers level) (str "re-frame: log called with unknown level: " level))
(apply (level @loggers) args))
(defn set-loggers!
"Change the set (or a subset) of logging functions used by re-frame.
'new-loggers' should be a map which looks like default-loggers"
[new-loggers]
(assert (empty? (difference (set (keys new-loggers)) (-> @loggers keys set))) "Unknown keys in new-loggers")
(swap! loggers merge new-loggers))