(defn
display-heads-up
[style msg]
(go
(let
[c (ensure-container)]
(set-style!
c
(merge
{:paddingTop "10px",
:paddingBottom "10px",
:width "100%",
:minHeight "68px",
:opacity "1.0"}
style))
(set-content! c msg)
(<! (timeout 300))
(set-style! c {:height "auto"}))))