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


           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)

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