[Remove tags that are still in ucw-standard
clinton@unknownlamer.org**20081203034910] hunk ./src/form.lisp 561
-  (<ucw:simple-select
+  (<ucw:select
hunk ./src/form.lisp 838
-  (<ucw:simple-form
+  (<ucw:form
hunk ./src/tags.lisp 20
-(deftag-macro <ucw::input (&attribute accessor reader writer name
-			  &allow-other-attributes others)
-  "Generic INPUT tag replacement.
-
-If the ACCESSOR attribute is specified then it must be a PLACE
-and it's value will be used to fill the input, when the form is
-submitted it will be set to the new value."
-  (when (and accessor (or reader writer))
-    (error "Can not specify both :ACCESSOR and :READER or :WRITER."))
-  (cond
-    ((or reader accessor writer)
-     (with-unique-names (v)
-       (let ((type (getf others :type))
-	     (value (gensym "INPUT-"))
-	     (reader (or reader accessor))
-	     (writer (or writer `(lambda (,v)
-				   (setf ,accessor ,v)))))
-	 `(let ((,value ,reader))
-	    (<:input :name (register-callback ,writer :id ,name)
-		     :value ,value
-		     ,@(when (string= "checkbox" type)
-                             `(:checked ,value))
-		     (@ ,@others))))))
-    (t
-     (error "Must specify :ACCESSOR (or use a regular <:input tag)"))))
-
hunk ./src/tags.lisp 27
-(deftag-macro <ucw:submit (&attribute action &allow-other-attributes others &body body)
-  "Presents an button tag which executes ACTION when clicked."  
-  `(<:button :type "submit"
-	     :name +action-parameter-name+
-	     :value (register-action (:with-call/cc t)
-		      ,action)
-	     ,@others ,@body))
-
-(deftag-macro <ucw::simple-select (&attribute writer accessor name 
-					      &allow-other-attributes others
-					      &body body)
-  "<:select with callback support. Use <:option to render the options."
-  (assert (or accessor writer)
-	  (others)
-	  "You need to supply either an accessor or a writer to <ucw:simple-select")
-  (with-unique-names (v)
-    (let ((writer (or writer `(lambda (,v) (setf ,accessor ,v)))))
-      `(<:select :name (register-callback (lambda (,v) (funcall ,writer ,v))
-					  :id ,name)
-		 (@ ,@others)
-		 ,@body))))
-
hunk ./src/tags.lisp 45
-;;; setup a <ucw-form: nickname for this package instead?
-(export '(<ucw::textarea <ucw::input <ucw::text <ucw::password <ucw::sumbit
-	  <ucw::simple-select <ucw::simple-form)
+(export '(<ucw::textarea <ucw::text <ucw::password)