   (apply button
          label
          on-click
-         (add-class opts "btn btn-primary")))
+         (add-class opts "btn btn-default")))
 
 (defn button-group
   [& buttons]


(defn form-buttons
  [& buttons]
  [:div.form-group
   (when (form-horizontal?)
     [:div {:class (label-column-class)}])
   (input-column buttons)])

(defn button
  [label on-click & {:keys [in-progress disabled] :as opts}]

        (update-in $ [:class] #(if % (str/join " " [% class]) class))
        (mapcat identity $)))

(defn align-controls
  [& xs]
  (list (when (form-horizontal?)
          [:div {:class (label-column-class)}])
        (input-column xs)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public

