 
 
 ;; END lists
+;;..................................................................................................
+
+
+;;**************************************************************************************************
+;;* BEGIN panel
+;;* tag: <panel >
+;;*
+;;* description: панели
+;;*
+;;**************************************************************************************************
+
+(defn ui-panel [{:keys [heading heading-glyphicon
+                        body after-body type]}]
+  (dom/div #js {:className (str "panel panel-"
+                                (get {:default "default"
+                                      :primary "primary"
+                                      :success "success"
+                                      :info "info"
+                                      :warning "warning"
+                                      :danger "danger"
+                                      } type "default"))}
+           (when heading
+             (dom/div #js {:className "panel-heading"}
+                      (when heading-glyphicon
+                        (ui-glyphicon heading-glyphicon))
+                      (when heading-glyphicon " ")
+                      heading))
+
+           (when body
+             (apply
+              dom/div #js {:className "panel-body"}
+              (if (coll? body) body [body])))
+
+           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)
+            :tbody (->> rows
+                        (map (fn [row]
+                               (apply
+                                dom/tr nil
+                                (vec (map #(dom/td nil %) row)))))
+                        (apply dom/tbody nil))
+            }))))
+
+
+
+;; END panel
 ;;..................................................................................................
 
 

    om/IRender
    (render [_]
      (om/build modal app
                {:opts {:label (if new-or-edit-fn?
                                 (condp = (new-or-edit-fn?)
                                   :new "Создание новой записи"
                                   :edit "Редактирование записи"



         (om/build modal (:modal app)
                   {:opts {:modal-size :lg
                           :body (om/build search-view (get-in app [:modal :search-view])
                                           {:opts (merge {:selection-type selection-type} search-view-opts)})
                           :footer (dom/div #js {:className "btn-toolbar  pull-right"}
                                            (ui-button
