defform.clj

(defform login-form
  :validator user/login-validator
  :action "/session"
  :fields [{:name "username"
            :label "Login or Email"
            :type "text"}
           {:name "password"
            :label "Password"
            :type "password"}]
  :on-success (fn [{uname :username :as m}]
                (user/login! uname)
                (session/flash-put! "Logged in successfully.")
                (response/redirect "/")))

(defpage "/login" []
  (shared/page (do-> (substitute login-form)
                     (wrap :div {:id "login_links"})
                     (append (forms/login-helpers)))))

(defform signup-form
  :validator user/signup-validator
  :action "/user/create"
  :fields [{:name "username"
            :label "Username"
            :type "text"}
           {:name "email"
            :label "Email Address"
            :type "text"}
           {:name "password"
            :label "Password"
            :type "password"}
           {:name "password_repeat"
            :label "Password (again!)"
            :type "password"}]
  :on-success (fn [{uname :username :as user-map}]
                (user/add! user-map)
                (user/login! uname)
                (session/flash-put! "User created successfully.")
                (response/redirect "/")))

(defpage "/signup" []
  (shared/page (substitute signup-form)))