 ;; 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
+;;..................................................................................................
 
 
 ;;**************************************************************************************************

                                     (select-keys [:id :keyname :description])
                                     vals)))}}]
  (letfn [(on-click [app e]
            (.preventDefault e) 
            (.stopPropagation e)

            (when clear-selections-fn

                                cols "40"}}]
  (reify
    om/IRender
    (render [this]
      (dom/textarea #js {:value (or (:value @app) "")
                         :onChange (fn [e]
                                     (let [v (.. e -target -value)]
