            content-types)
      [false {:message "Unsupported Content-Type"}])
     true))
-
 
 (def content-types ["text/html" "application/x-www-form-urlencoded"])
 

                          ctx))
                      [false (fh/form-problem problems)])))

  :handle-unprocessable-entity (fn [ctx]
                                 (log/info "unprocessable")
                                 (lr/ring-response (fh/flash-form-problem
                                                    (r/redirect (routes/absolute-path :sign-in))
                                                    ctx)))
  :post! (fn [ctx]
           (log/info "post!")
           (let [data (-> ctx :request :params)
                 email (get data :email)]
             ;; TODO add actions if db or email failed

  :allowed-methods [:get]
  :available-media-types ["text/html"]
  :handle-ok (fn [ctx]
               (-> ctx
                   (aa/build)
                   fv/render-page)))
