/
console.cljs
40 lines (34 loc) · 1.31 KB
/
console.cljs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
(ns lambdaisland.glogi.console
(:require [lambdaisland.glogi :as glogi]
[goog.object :as gobj]
[goog.debug.LogBuffer :as LogBuffer]
[goog.debug.Console :as Console]))
(defn log-method [{:keys [value] :as level}]
(condp #(>= %2 %1) value
(glogi/level-value :severe) "error"
(glogi/level-value :warning) "warn"
(glogi/level-value :info) "info"
(glogi/level-value :config) "log"
"log"))
(defn devtools-installed? []
(and (exists? js/devtools.core.installed_QMARK_)
(js/devtools.core.installed_QMARK_)))
(defn format [{:keys [logger-name message exception]}]
[(str "[" logger-name "]")
(if (devtools-installed?)
message
(pr-str message))])
(defonce console-log
(fn [{:keys [logger-name level exception] :as record}]
(let [method-name (log-method level)
method (or (gobj/get js/console method-name)
js/console.log)]
(apply method (format record))
(when exception
(method (str "[" logger-name "]") (str exception) "\n" (.-stack exception))))))
(defn install! []
;; Disable goog.debug.Console if it's been enabled (e.g. by Figwheel), we do
;; console logging now
(when-let [instance Console/instance]
(.setCapturing instance false))
(glogi/add-handler-once console-log))