gistfile1.clj

(page "index.html")

(defelem cell-input [{:keys [cell] :as attrs}]
  (let [target-value #(do! (-> % .-currentTarget) :value)]
    (input :type (:type attrs "text")
           :value cell
           :on-input #(reset! cell (target-value %)))))

(defn form-input
  ([& {:keys [validator] :or {validator (fn [_] true)}}]
    (let [c (cell nil)]
      [c (cell= {:dirty? (if (nil? c) false true)
                 :valid? (if (validator c) true false)})])))

(defelem bootstrap-input [{[c details] :field :as attrs}]
  ((div :class "form-group"
        (if (:label attrs) (label (:label attrs)))
        ((cell-input (assoc attrs :cell c)) :do-class {:form-control true}))
    :do-class (cell= {:has-error (and (:dirty? details) (not (:valid? details)))})))

(html
  (head
    (title "Hoplon • Validated Form")
    (link :rel "stylesheet" :href "bootstrap.min.css")
    (link :rel "stylesheet" :href "bootstrap-theme.min.css"))
  (body
    (div :class "container"
      (form
        (bootstrap-input :field (form-input :validator seq) :label "Name")
        (bootstrap-input :field (form-input :validator seq) :label "Email" :type "email")
        ))))