3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-13 17:36:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Allow raw logging messages.

Browse source
This commit is contained in:
Andrey Antukh 2021-05-04 15:14:53 +02:00 • committed by Andrés Moya
parent 460c824117
commit 6250b457ad
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
backend/src/app/util/logging.clj
View file

@ -60,8 +60,8 @@
^Object msg))) ^Object msg)))
(defmacro log (defmacro log
[& {:keys [level cause ::logger ::async] :as props}] [& {:keys [level cause ::logger ::async ::raw] :as props}]
(let [props (dissoc props :level :cause ::logger ::async) (let [props (dissoc props :level :cause ::logger ::async ::raw)
logger (or logger (str *ns*)) logger (or logger (str *ns*))
logger-sym (gensym "log") logger-sym (gensym "log")
level-sym (gensym "log")] level-sym (gensym "log")]
@ -69,8 +69,12 @@
~level-sym (get-level ~level)] ~level-sym (get-level ~level)]
(if (enabled? ~logger-sym ~level-sym) (if (enabled? ~logger-sym ~level-sym)
~(if async ~(if async
`(send-off logging-agent (fn [_#] (write-log! ~logger-sym ~level-sym ~cause (build-map-message ~props)))) `(send-off logging-agent
`(write-log! ~logger-sym ~level-sym ~cause (build-map-message ~props))))))) (fn [_#]
(let [message# (or ~raw (build-map-message ~props))]
(write-log! ~logger-sym ~level-sym ~cause message#))))
`(let [message# (or ~raw (build-map-message ~props))]
(write-log! ~logger-sym ~level-sym ~cause message#)))))))
(defmacro info (defmacro info
[& params] [& params]