dynamic-users.cljs

(defn row [label input]
  [:div.row
   [:div.col-md-2 [:label label]]
   [:div.col-md-5 input]])

(defn make-user-form-template [ratom]
  (let [user-count (:user-count @ratom)]
    [:div
     [:button {:on-click #(swap! ratom update-in [:user-count] inc)} "Add User"]
     [:div
      (for [user (range 1 (inc user-count))]
        [:div [:span (str "User #" user ":")]
         (row "user name" [:input {:field :text
                                    :id    (keyword (str "user." user ".username"))}])
         ])]]))

(defn test-form [doc]
  (fn []
    [:div
     [:div.page-header [:h1 "Reagent Form"]]
     [bind-fields (make-user-form-template doc) doc]
     [:label (str @doc)]]))