 
 ;; TODO: when disabled, should the text appear "disabled".
 (defn checkbox
+  "I return the markup for a checkbox, with an optional RHS label."
   [& {: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 input-text
  [& {:keys [text on-change style class]
      :as   args}]
  {:pre [(superset? input-text-args (keys args))]}
  "returns markup for a basic text imput label"
  [:input
   {:type "text"
    :class (str "rc-input-text " class)



(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))]}

  (let [model       (deref-or-value model)
        disabled    (deref-or-value disabled)
        callback-fn (if (and on-change (not disabled)) #(on-change value))]
