                                 "box-sizing: border-box;"
                                 ) })]
         (set! (.-onclick el) heads-up-onclick-handler)
+        (set! (.-innerHTML el) (str clojure-symbol-svg))
+        (.appendChild el (node :div {:id content-id}))
         (-> (.-body js/document)
             (.appendChild el)))
-      (.getElementById js/document cont-id))))
+      { :container-el    (.getElementById js/document cont-id)
+        :content-area-el (.getElementById js/document content-id) }
+      )))
 
-(defn set-style [c st-map]
+(defn l [x] (.log js/console x) x)
+
+(defn ld [x] (l (pr-str x)))
+
+(defn set-style! [{:keys [container-el]} st-map]
   (mapv
    (fn [[k v]]
-     (aset (.-style c) (name k) v))
+     (aset (.-style container-el) (name k) v))
    st-map))
+
+(defn set-content! [{:keys [content-area-el] :as c} dom-str]
+  (ld dom-str)
+  (ld content-area-el)
+  (set! (.-innerHTML content-area-el) dom-str))
+
+(defn get-content [{:keys [content-area-el]}]
+  (.-innerHTML content-area-el))
 
 (defn close-link []
   (str "<a style=\""

      (heads-up-event-dispatch dataset))))

(defn ensure-container []
  (let [cont-id "figwheel-heads-up-container"]
    (if-not (.querySelector js/document (str "#" cont-id))
      (let [el (node :div { :id cont-id
                           :style
                           (str "-webkit-transition: all 0.2s ease-in-out;"
                                "-moz-transition: all 0.2s ease-in-out;"
                                "-o-transition: all 0.2s ease-in-out;"
                                "transition: all 0.2s ease-in-out;"
                                "font-size: 13px;"
                                "background: url(https://s3.amazonaws.com/bhauman-blog-images/jira-logo-scaled.png) no-repeat 10px 10px;"
                                "border-top: 1px solid #f5f5f5;"
                                "box-shadow: 0px 0px 1px #aaaaaa;"
                                "line-height: 18px;"

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