anchor.diff:  			 (<selected= "selected"))
   		       (xd (funcall (forms::field-formatter field)
   				    choice)))))))))
  +
  +;; Attributes and constraints
  +(qimt::%define-attribute :forms.qimt <data-parsley-required= "data-parsley-required")
  +(qimt::%define-attribute :forms.qimt <data-parsley-type= "data-parsley-type")
  +(qimt::%define-attribute :forms.qimt <data-parsley-minlength= "data-parsley-minlength")
  +(qimt::%define-attribute :forms.qimt <data-parsley-maxlength= "data-parsley-maxlength")
  +
  +(defmethod renderer-render-field-attributes ((renderer (eql :qimt))
  +					     theme
  +                                             field form)
  +  (when (forms::client-validation form)
  +    (when (forms::field-required-p field)
  +      (<data-parsley-required= "true"))
  +    (loop for constraint in (forms::field-constraints field)
  +       do (renderer-render-field-constraint renderer constraint field form))))
  +
  +(defmethod renderer-render-field-attributes ((renderer (eql :qimt))
  +					     theme
  +					     (field forms::integer-form-field)
  +					     form)
  +  (<data-parsley-type= "integer")
  +  (call-next-method))
  +
  +(defmethod renderer-render-field-constraint (renderer constraint field form))
  +(defmethod renderer-render-field-constraint ((renderer (eql :qimt))
  +                                             (constraint clavier:length-validator)
  +                                             field form)
  +  (when (clavier::validator-min constraint)
  +    (<data-parsley-minlength= (clavier::validator-min constraint)))
  +  (when (clavier::validator-max constraint)
  +    (<data-parsley-maxlength= (clavier::validator-max constraint))))
  
positive.code: 
  (in-package :forms.qimt)
  
  (defmethod forms::renderer-render-form ((renderer (eql :qimt)) form &rest args)
    (when (forms::form-errors form)
      (<ul
        (loop for error in (forms::form-errors form)
  
negative.code: 
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::submit-form-field) form &rest args)
    (<input (<type= "submit")
  	  (<value= (or (forms::field-label field) "Submit"))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::choice-form-field) form &rest args)
    (cond
      ((and (forms::field-expanded field)
  