      (<! (timeout 300))
      (set-style! c { :width "auto"
                     :height "0px"
+                    :minHeight "0px"
                     :padding "0px 10px 0px 70px"
                     :borderRadius "0px"
                     :backgroundColor "transparent" })

    (if-not (.querySelector js/document (str "#" cont-id))
      (let [el (node :div { :id cont-id
                           :style
                           (str "-webkit-transition: all 0.s 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;"

                          :paddingTop "10px"
                          :paddingBottom "10px"
                          :width "100%"
                          :minHeight "68px"
                          :opacity "1.0" }
                          style))
     (set-content! c msg)
     (<! (timeout 300))
     (set-style! c {:height "auto"}))))


(defn heading [s]
  (str"<div style=\""
