anchor.diff:                                                             "test/demo/themes.lisp")
                       :active-menu :themes))
   
  -;; (hunchentoot:define-easy-handler (fields-demo-handler :uri "/fields") ()
  -;;   (render-demo-page :demo #'fields-demo
  -;; 		    :source (asdf:system-relative-pathname :cl-forms.demo 
  -;; 							   "test/demo/fields.lisp")
  -;; 		    :active-menu :fields))
  -
  -;; (hunchentoot:define-easy-handler (fields-form-post 
  -;; 				  :uri "/fields-post" 
  -;; 				  :default-request-type :post) ()
  -;;   (flet ((fields-post ()
  -;; 	   (let ((form (forms:get-form 'fields-form)))
  -;; 	     (forms::handle-request form)
  -;; 	     (forms::with-form-fields (name ready sex) form
  -;; 	       (who:with-html-output (forms.who::*html*)
  -;; 		 (:ul 
  -;; 		   (:li (who:fmt "Name: ~A" (forms::field-value name)))
  -;; 		   (:li (who:fmt "Ready: ~A" (forms::field-value ready)))
  -;; 		   (:li (who:fmt "Sex: ~A" (forms::field-value sex)))))))))
  -;;     (render-demo-page :demo #'fields-post
  -;; 		      :source (asdf:system-relative-pathname :cl-forms.demo 
  -;; 							     "test/demo/fields.lisp")
  -;; 		      :active-menu :fields)))
  -
  -;; ;; Choices widget test
  -
  -;; (forms:defform choices-form (:action "/choices-post")
  -;;   ((sex :choice
  -;; 	:choices (list "Male" "Female")
  -;; 	:value "Male")
  -;;    (sex2 :choice
  -;; 	 :choices (list "Male" "Female")
  -;; 	 :value "Female"
  -;; 	 :expanded t)
  -;;    (choices :choice
  -;; 	    :choices (list "Foo" "Bar")
  -;; 	    :value (list "Foo")
  -;; 	    :multiple t)
  -;;    (choices2 :choice
  -;; 	     :choices (list "Foo" "Bar")
  -;; 	     :value (list "Bar")
  -;; 	     :multiple t
  -;; 	     :expanded  t)
  -;;    (submit :submit :label "Ok")))
  -
  -;; (hunchentoot:define-easy-handler (choices-form-post :uri "/choices-post" 
  -;; 						    :default-request-type :post) ()
  -;;   (flet ((choices-post ()
  -;; 	   (let ((form (forms:get-form 'choices-form)))
  -;; 	     (forms::handle-request form)
  -;; 	     (forms::validate-form form)
  -;; 	     (forms::with-form-field-values (sex sex2 choices choices2) form
  -;; 	       (who:with-html-output (forms.who::*html*)
  -;; 		 (:ul 
  -;; 		   (:li (who:fmt "Sex: ~A" sex))
  -;; 		   (:li (who:fmt "Sex2: ~A" sex2))
  -;; 		   (:li (who:fmt "Choices: ~A" choices))
  -;; 		   (:li (who:fmt "Choices2: ~A" choices2))))))))
  -;;     (render-demo-page :demo #'choices-post
  -;; 		      :source (asdf:system-relative-pathname :cl-forms.demo 
  -;; 							     "test/demo/fields.lisp")
  -;; 		      :active-menu :fields)))
  +(hunchentoot:define-easy-handler (bs-fields-form-post 
  +                                  :uri "/bs-fields-post" 
  +                                  :default-request-type :post) ()
  +  (flet ((fields-post ()
  +           (let ((form (forms:get-form 'bs-fields-form)))
  +             (forms::handle-request form)
  +             (forms::with-form-fields (name ready sex) form
  +               (who:with-html-output (forms.who::*html*)
  +                 (:ul 
  +                  (:li (who:fmt "Name: ~A" (forms::field-value name)))
  +                  (:li (who:fmt "Ready: ~A" (forms::field-value ready)))
  +                  (:li (who:fmt "Sex: ~A" (forms::field-value sex)))))))))
  +    (render-demo-page :demo #'fields-post
  +                      :source (asdf:system-relative-pathname :cl-forms.demo 
  +                                                           "test/demo/themes.lisp")
  +                      :active-menu :themes)))
  
positive.code:   (let ((form (forms::get-form 'bs-fields-form)))
      (forms:with-form-theme 'forms.who::bootstrap-form-theme
        (forms:with-form-renderer :who
          (forms:render-form form)
          (forms:render-form form :inline t)
          (forms:render-form form :horizontal t)))))
  
  (hunchentoot:define-easy-handler (bootstrap-form :uri "/themes") ()
    (render-demo-page :demo #'bootstrap-form-demo
  
negative.code: (in-package :forms.test)
  
  (forms:defform bs-fields-form (:action "/bs-fields-post" :csrf-protection nil)
    ((name :string :value "")
     (ready :boolean :value t)
     (sex :choice :choices (list "Male" "Female") :value "Male")
  