From 6250b457ad8cd5798f692092d9148879d1ca235b Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 4 May 2021 15:14:53 +0200
Subject: [PATCH] :sparkles: Allow raw logging messages.

---
 backend/src/app/util/logging.clj | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/backend/src/app/util/logging.clj b/backend/src/app/util/logging.clj
index 5aaa409a8b..9a08e66b33 100644
--- a/backend/src/app/util/logging.clj
+++ b/backend/src/app/util/logging.clj
@@ -60,8 +60,8 @@
           ^Object msg)))
 
 (defmacro log
-  [& {:keys [level cause ::logger ::async] :as props}]
-  (let [props      (dissoc props :level :cause ::logger ::async)
+  [& {:keys [level cause ::logger ::async ::raw] :as props}]
+  (let [props      (dissoc props :level :cause ::logger ::async ::raw)
         logger     (or logger (str *ns*))
         logger-sym (gensym "log")
         level-sym  (gensym "log")]
@@ -69,8 +69,12 @@
            ~level-sym  (get-level ~level)]
        (if (enabled? ~logger-sym ~level-sym)
          ~(if async
-            `(send-off logging-agent (fn [_#] (write-log! ~logger-sym ~level-sym ~cause (build-map-message ~props))))
-            `(write-log! ~logger-sym ~level-sym ~cause (build-map-message ~props)))))))
+            `(send-off logging-agent
+                       (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
   [& params]