github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-25 13:26:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

✨ Add the ability to pass body to a log entry

Browse Source
This commit is contained in:
Andrey Antukh 2024-07-29 16:16:39 +02:00
parent 4b6d3546e0
commit e0f2c4e0aa
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
common/src/app/common/logging.cljc
View File

@ -153,14 +153,29 @@
(defn build-message (defn build-message
[props] [props]
(loop [props (seq props) (loop [props (seq props)
result []] result []
body nil]
(if-let [[k v] (first props)] (if-let [[k v] (first props)]
(if (simple-ident? k) (cond
(simple-ident? k)
(recur (next props) (recur (next props)
(conj result (str (name k) "=" (pr-str v)))) (conj result (str (name k) "=" (pr-str v)))
body)
(= ::body k)
(recur (next props) (recur (next props)
result)) result
(str/join ", " result)))) v)
:else
(recur (next props)
result
body))
(let [message (str/join ", " result)]
(if (string? body)
(str message "\n" body)
message)))))
(defn build-stack-trace (defn build-stack-trace
[cause] [cause]