(defn
warning-data->display-data
[{:keys [file line column message error-inline], :as warning-data}]
(let
[last-message
(cond
(and file line)
(str "Please see line " line " of file " file)
file
(str "Please see " file)
:else
nil)]
{:head "Compile Warning",
:sub-head file,
:messages
(concat
(map
(fn* [p1__18503#] (str "<div>" p1__18503# "</div>"))
[(when
message
(str
"<span style=\"font-weight:bold;\">"
(escape message)
"</span>"))
(when
(pos? (count error-inline))
(format-inline-error error-inline))])
(when
last-message
[(str
"<div style=\"color: #AD4F4F; padding-top: 3px; margin-bottom: 10px;\">"
(escape last-message)
"</div>")])),
:file file,
:line line,
:column column}))