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

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

(defn radio                                                 ;; TODO: Extract common method for `radio` and `checkbox`.
  [& 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]
