Commits

Anonymous committed 0efc80f

contrib/lpolzer (form-widget): add use-ajax-p boolean slot. Patch by Bill
St. Clair.

  • Participants
  • Parent commits 3c1dac7

Comments (0)

Files changed (1)

contrib/lpolzer/form-widget.lisp

           are :form and :confirmation. You may define others on your own as needed.")
    (on-success :initform '(:confirm :reset)
                :documentation "A function or symbol (or list of those) to specify
-               what happens after a successful form submit.")))
+               what happens after a successful form submit.")
+   (use-ajax-p :initform t)))
 
 (defmethod fields-of ((widget form-widget))
   (widget-children widget))
     (let ((fields (widget-children widget)))
       (with-html-form (:POST (lambda (&rest args)
                                (apply #'handle-form-submission widget args))
-                       :id (form-id-of widget))
+                       :id (form-id-of widget)
+                       :use-ajax-p (use-ajax-p-of widget))
         (:div :class "fields"
           (mapc #'render-widget fields))
         (:div :class "controls"