 
 
 (defn radio-button
+  "I return the markup for a radio button, with an optional RHS label."
   [& {:keys [model value label on-change disabled style label-class label-style]
       :as   args}]
   {:pre [(superset? radio-button-args (keys args))]}
-  "I return the markup for a radio button, with an optional RHS label."
+
   (let [model       (deref-or-value model)
         disabled    (deref-or-value disabled)
         callback-fn (if (and on-change (not disabled)) #(on-change value))]


;; TODO: when disabled, should the text appear "disabled".
(defn checkbox
  [& {:keys [model on-change label disabled style label-class label-style]
      :as   args}]
  {:pre [(superset? checkbox-args (keys args))]}
  "I return the markup for a checkbox, with an optional RHS label."
  (let [model       (deref-or-value model)
        disabled    (deref-or-value disabled)
        callback-fn (if (and on-change (not disabled)) #(on-change (not model)))]     ;; call on-change with either true or false



(defn progress-bar
  "Render a bootstrap styled progress bar"
  [& {:keys [model]
      :as   args}]
  {:pre [(superset? progress-bar-args (keys args))]}

  [:div
   {:class "rc-progress-bar progress"
    :style {:flex "none"}}
