🐛 Fix email printing to the logging subsystem

Fixes #3239

backend/src/app/email.clj

@@ -341,7 +341,7 @@
                                (map :content)
                                first)))
                (println "******** end email" (:id email) "**********"))]
-    (l/info ::l/raw out)))
+    (l/raw! :info out)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; EMAIL FACTORIES

common/src/app/common/logging.cljc

@@ -239,7 +239,7 @@
 #?(:clj
    (defn slf4j-log-handler
      {:no-doc true}
-     [_ _ _ {:keys [::logger ::level ::props ::cause ::trace ::message]}]
+     [_ _ _ {:keys [::logger ::level ::trace ::message] }]
      (when-let [logger (enabled? logger level)]
        (let [message (cond-> @message
                        (some? trace)
@@ -307,6 +307,18 @@
                (l/set-level! logger level)))
            config)))
 
+(defmacro raw!
+  [level message]
+  (let [cljs? (:ns &env)]
+    `(do
+       (~(if cljs?
+         `(partial console-log-handler nil nil nil)
+         `(partial slf4j-log-handler nil nil nil))
+        {::logger ~(str *ns*)
+         ::level ~level
+         ::message (delay ~message)})
+       nil)))
+
 (defmacro info
   [& params]
   `(do