dativebaseclj/src/dvb/server/log.clj at a6135784009e58822745d64cdfcf2361e637cb39 · dativebase/dativebaseclj · GitHub

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
(ns dvb.server.log
  (:require [dvb.server.scrub :as scrub]
            [taoensso.telemere :as tel]))

(defmacro info [& args]
  `(tel/log! {:level :info
              :msg   ~(vec
                       (for [a args]
                         (if (coll? a)
                           (scrub/scrub a)
                           a)))}))

(defmacro warn [& args]
  `(tel/log! {:level :warn
              :msg   ~(vec
                       (for [a args]
                         (if (coll? a)
                           (scrub/scrub a)
                           a)))}))

(defmacro error [& args]
  `(tel/log! {:level :error
              :msg   ~(vec
                       (for [a args]
                         (if (coll? a)
                           (scrub/scrub a)
                           a)))}))