                                       :info "info"
                                       :warning "warning"
                                       :danger "danger"
-                                      } type "default"))
+                                      } type "default")
+                                (or (str " " class+) ""))
                 :style style}
            (when heading
              (dom/div #js {:className "panel-heading"}


           after-body))

(defn ui-panel-with-table [{:keys [cols rows]
                            :or {cols [] rows []}
                            :as options}]
  (ui-panel
   (assoc options
          :after-body
          (ui-table
           {:hover? true
            :bordered? true
            :striped? true
            :responsive? true
            :thead (->> cols
                        (map #(dom/th nil %))
                        ui-thead-tr)

;;**************************************************************************************************

(defn ui-panel [{:keys [heading heading-glyphicon badge
                        body after-body type style class+]}]
  (dom/div #js {:className (str "panel panel-"
                                (get {:default "default"
                                      :primary "primary"
