 
 (defn toggle-button [app _ {:keys [bs-type
                                    class+
-                                   onClick-fn]
+                                   onClick-fn
+                                   disabled?]
                             :or {bs-type :default
                                  class+ ""}}]
   (reify

                                       class+
                                       (if (app :value) " active" "")
                                       )
                       :onClick (fn [_]
                                  (om/transact! app :value not)
                                  (when onClick-fn (onClick-fn))

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

(defn by-id
  "Short-hand for document.getElementById(id)"
  [id]
  (.getElementById js/document (name id)))

(defn uniq-id [s]
  (str (gensym (str s "-"))))

