status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Use encore `get-env` impln

This commit is contained in:
Peter Taoussanis 2015-12-22 13:49:15 +07:00
parent 663f1a754e
commit e48dea517e
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/taoensso/timbre.cljx
View File

@ -18,8 +18,8 @@
(:require-macros [taoensso.timbre :as timbre-macros :refer ()])) (:require-macros [taoensso.timbre :as timbre-macros :refer ()]))
(if (vector? taoensso.encore/encore-version) (if (vector? taoensso.encore/encore-version)
(enc/assert-min-encore-version [2 29 1]) (enc/assert-min-encore-version [2 31 3])
(enc/assert-min-encore-version 2.29)) (enc/assert-min-encore-version 2.31))
;;;; Config ;;;; Config
@ -513,13 +513,7 @@
result# ; NOT subject to elision result# ; NOT subject to elision
)))) ))))
(defn- clear-meta [x] (if (meta x) (with-meta x nil) x)) (defmacro get-env [] `(enc/get-env))
(defmacro get-env [] (let [ks (mapv clear-meta (keys &env))] `(zipmap '~ks [~@ks])))
(comment
(let [x :x] (get-env))
((fn [^long x] (get-env)) 0))
(defmacro log-env (defmacro log-env
"Logs named &env value. "Logs named &env value.
Defaults to :debug logging level and \"&env\" as name." Defaults to :debug logging level and \"&env\" as name."