 (defn form-buttons
   [& buttons]
   [:div.form-group.form-buttons
-   (apply align-controls false buttons)])
+   (apply unlabeled-control false buttons)])
 
 (defn button
   [& args]

  [args]
  (let [[options [rest-args]] (split-with (comp keyword? first) (partition-all 2 args))]
    [(apply hash-map (mapcat identity options)) (or rest-args [])]))


(defn input*
  [tag attrs label cursor korks {:keys [valid? validation-error-fn in-progress warn-fn help inline large]} & inner]

        dom-id (gen-dom-id cursor korks)
        valid (or (nil? valid?) (valid? korks))]
    (list
      (unlabeled-control
        inline
        [:div {:class (str "radio" (when-not valid " has-error") (when inline " radio-inline"))}
         [:label
          [:input
           (merge-attrs {:on-change #(when (.. % -target -checked)
                                      (om/update! cursor korks value))
                         :checked   (= value (get-in cursor korks))
                         :type      "radio"
                         :id        dom-id
                         :name      dom-id
                         :value     value}
                        attrs
                        {})]
          label]]
        (when-let [validation-error (and validation-error-fn (validation-error-fn korks))]
          (error-label validation-error))))))

(defn select
  [& args]
