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