(defn
heads-up-plugin
[opts]
(let
[ch (chan)]
(def heads-up-config-options** opts)
(go-loop
[]
(when-let
[msg-hist' (<! ch)]
(<! (heads-up-plugin-msg-handler opts msg-hist'))
(recur)))
(heads-up/ensure-container)
(fn [msg-hist] (put! ch msg-hist) msg-hist)))