                       (when heading-glyphicon
                         (ui-glyphicon heading-glyphicon))
                       (when heading-glyphicon " ")
-                      heading))
+                      heading
+                      (when badge (dom/span #js {:className "badge"
+                                                 :style #js {:float "right"}} badge))))
 
            (when body
              (apply

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

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


               ))))


(def files-table-1-app-init
  [])

(defn files-table-1 [app own]
  (reify
    om/IRender
    (render [_]
      (ui-panel
       {:heading " Список файлов"
        :badge (str (count @app))
        :heading-glyphicon "folder-open"
        :type :primary
        :after-body
        (ui-table
         {:hover? true
          :bordered? true
          :striped? true
          :responsive? true
          :tbody
          (->> @app
               (map (fn [{:keys [filename path top_description description size]}]
                      (dom/tr nil
                              (dom/td nil
                                      (ui-media {:href path
                                                 :media-object (ui-glyphicon "file" nil "5em")
                                                 :heading filename
                                                 :heading-2 top_description
                                                 :body (dom/p nil description)})))))
               (apply dom/tbody nil))})}))))

;; END files
;;..................................................................................................

