(defun make-user-registration-widget ()
  "User registration."
  (let ((user-data-widget
         (make-instance 'dataform
                        :name 'user-data
                        :data (make-proxy-instance 'user)
                        :form-view 'user-form-view
                        :ui-state :form
                        :form-buttons '(:submit)
                        :widget-prefix-fn (lambda (&rest args)
                                            (declare (ignore args))
                                            (with-html
                                              (:h1 "Please register"))))))
    (setf (dataform-on-success user-data-widget)
          (lambda (&rest args)
            (declare (ignore args))
            (answer user-data-widget (dataform-data user-data-widget))))
    user-data-widget))