        (doseq [k (keys attrs)] (.setAttribute e (name k) (get attrs k)))
        (doseq [ch children] (.appendChild e ch)) ;; children
        e))
-
-(defn ll [v] (.log js/console v) v)
 
 (defmulti heads-up-event-dispatch (fn [dataset] (.-figwheelEvent dataset)))
 (defmethod heads-up-event-dispatch :default [_]  {})

   (<! (clear))))






(defn display-loaded-start []
  (display-heads-up {:backgroundColor "rgba(211,234,172,1.0)"
                     :width "68px"
                     :height "68px"                     
                     :paddingLeft "0px"
                     :paddingRight "0px"
                     :borderRadius "35px" } ""))
