                           :alert-warning
                           :alert-danger))))
 
+(defn alert-clean-and-set!! [app k message]
+  (om/transact! app
+                (fn [app]
+                  (-> app
+                      (dissoc :alert-muted
+                              :alert-primary
+                              :alert-success
+                              :alert-info
+                              :alert-warning
+                              :alert-danger)
+                      (assoc k message)))))
+
+
 ;; END alert
 ;;..................................................................................................
 

                    text-success
                    text-info
                    text-warning
                    text-danger]} app]
        (dom/div nil
                 (when text-muted
                   (dom/p #js {:className "text-muted"} text-muted))

  (reify
    om/IRender
    (render [_]
      (dom/div nil
               (dom/div #js {:className (str "form-group " (input-css-string-has? app))}
                        (dom/label #js {:className (str "control-label " label-class+) } label)
                        (dom/div #js {:className input-class+ :style #js {:padding 0}}
                                 (om/build select app {:opts spec-select})
                                 (om/build helper-p app {})
                                 ))))))


;; END input select
