(defn
display-exception
[exception-data]
(let
[{:keys [head sub-head messages last-message file line column]}
(-> exception-data exception->display-data)
msg
(apply str messages)]
(display-heads-up
{:backgroundColor "rgba(255, 161, 161, 0.95)"}
(str
(close-link)
(heading head sub-head)
(file-selector-div file line column msg)))))