anchor.diff:  
   (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))
  -     (field forms::choice-form-field) form &rest args)
  -  (let ((selected-value (forms::field-key-and-value field)))
  -    (<select
  -       (<name= (forms::form-field-name field form))
  -       (loop for (key . choice) in (forms::field-choices-alist field)
  -	  do
  -	    (<option (<value= (princ-to-string key))
  -		     (when (equalp (first selected-value)
  -					      key)
  -		       (<selected= "selected"))
  -		      (xd (funcall (forms::field-formatter field)
  -				   choice)))))))
  -
  -(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)
  
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: 	   (<li (fxd "~A: ~{~A~^, ~}" (first error) (cdr error))))))
    (<form (<action= (forms::form-action form))
  	 (<method= (symbol-name (forms::form-method form)))
  	 (when (forms::form-csrf-protection-p form)
  	   (let ((token (forms::set-form-session-csrf-token form)))
  	     (<input (<name= (forms::form-csrf-field-name form))
  		     (<type= "hidden")
  		     (<value= token))))
  	 (loop for field in (forms::form-fields form)
  	    do
  	      (forms::renderer-render-field renderer theme (cdr field) form))))
  
  (defmethod forms::renderer-render-form :after ((renderer (eql :qimt))
  					       (theme forms::default-form-theme)
  					       form &rest args)
    (when (forms::client-validation form)
      (<script (<type= "text/javascript")
  	     (fxd "$('#~A').parsley();" (forms::form-id form)))))
  
  (defmethod forms::renderer-render-form-errors ((renderer (eql :qimt))
  					       (theme forms::default-form-theme)
  					       form &rest args)
    (when (forms::form-errors form)
      (<ul (<class= "errors")
  	 (loop for error in (forms::form-errors form)
  	    do
  	      (<li (fxd "~A: ~{~A~^, ~}" (first error) (cdr error)))))))
  
  (defmethod forms::renderer-render-field ((renderer (eql :qimt))
  					 (theme forms::default-form-theme)
  					 field form &rest args)
    (<div
      (forms::renderer-render-field-label renderer theme field form)
      (forms::renderer-render-field-errors renderer theme field form)
      (forms::renderer-render-field-widget renderer theme field form)))
  
  (defmethod forms::renderer-render-field-label ((renderer (eql :qimt))
  					       (theme forms::default-form-theme)
  					       field form &rest args)
    (<label
      (xd (or (forms::field-label field)
  	    (forms::field-name field)))))
  
  (defmethod forms::renderer-render-field-label ((renderer (eql :qimt))
  					       (theme forms::default-form-theme)
  					       (field forms::submit-form-field) form &rest args)
    )
  
  (defmethod forms::renderer-render-field-errors ((renderer (eql :qimt))
  						(theme forms::default-form-theme)
  						field form &rest args)
    (let ((errors (cdr (assoc (forms::field-name field)
                              (forms::form-errors form)
                              :test #'equalp
                              :key #'string))))
      (when errors
        (<div (<class= "errors")
  	    (fxd "~{~A~^, ~}" errors)))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::string-form-field) form &rest args)
    (<input (<type= "text")
  	  (<name= (forms::form-field-name field form))
  	  (when (forms::field-empty-value field)
  	    (<placeholder= (forms::field-empty-value field)))
  	  (renderer-render-field-attributes renderer theme field form)
  	  (when (forms::field-value field)
  	    (<value=
  	     (funcall (forms::field-formatter field)
  		      (forms::field-value field))))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::email-form-field) form &rest args)
    (<input (<type= "email")
  	  (<name= (forms::form-field-name field form))
  	  (when (forms::field-empty-value field)
  	    (<placeholder= (forms::field-empty-value field)))
  	  (renderer-render-field-attributes renderer theme field form)
  	  (when (forms::field-value field)
  	    (<value=
  	     (funcall (forms::field-formatter field)
  		      (forms::field-value field))))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::url-form-field) form &rest args)
    (<input (<type= "url")
  	  (<name= (forms::form-field-name field form))
  	  (when (forms::field-empty-value field)
  		 (<placeholder= (forms::field-empty-value field)))
  	  (renderer-render-field-attributes renderer theme field form)
  	  (when (forms::field-value field)
  	    (<value=
  	     (funcall (forms::field-formatter field)
  		      (forms::field-value field))))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::integer-form-field) form &rest args)
    (<input (<type= "number")
  	  (<name= (forms::form-field-name field form))
  	  (when (forms::field-empty-value field)
  	    (<placeholder= (forms::field-empty-value field)))
  	  (renderer-render-field-attributes renderer theme field form)
  	  (when (forms::field-value field)
  	    (<value=
  	     (funcall (forms::field-formatter field)
  		      (forms::field-value field))))))
  
  (defmethod forms::renderer-render-field-widget
      ((renderer (eql :qimt))
       (theme forms::default-form-theme)
       (field forms::boolean-form-field) form &rest args)
    (<input (<type= "checkbox")
  	  (<name= (forms::form-field-name field form))
  