 ;; END collapser
 ;;..................................................................................................
 
-
+;;**************************************************************************************************
+;;* BEGIN label
+;;* tag: <label>
+;;*
+;;* description: Пометки
+;;*
+;;**************************************************************************************************
+
+(defn ui-label [type text]
+  (dom/span #js {:className (str  "label label-"
+                                  (get {:default "default"
+                                        :primary "primary"
+                                        :success "success"
+                                        :info "info"
+                                        :warning "warning"
+                                        :danger "danger"
+                                        } type "default"))
+                 } text))
+
+;; END label
+;;..................................................................................................
 
 
 ;;**************************************************************************************************

                                 (om/build select app {:opts spec-select})
                                 (om/build helper-p app {})
                                 ))))))


;; END input select

(defn select-app-selected-set! [app selected]
  (assoc app :selected (str selected)))

(defn select-app-selected-set-nil! [app]
  (assoc app :selected no-select-v))


(defn select-app-selected [app]
  (let [sv (app :selected)]
    (if (or (nil? sv)
