(index ("html-form" 0))
(def (sig (procedure "html-form:: SPEC -> SXML" (id html-form))) (p "This is the only exported routine in this egg. Given a form specification, returns an SXML document containing an HTML form. " (tt "SPEC") " is an s-expression with the following grammar:") (pre " SPEC = (form-group NAME [(label LABEL)] (children ...) ) \n        | WIDGET") (pre " WIDGET =     (checkbox NAME DFLT [(label LABEL)] [(rel REL)] ) \n              (textarea NAME DFLT (rows N) (cols N) [(label LABEL)] [(rel REL)] ) \n              (select   NAME DFLT [(label LABEL)] [(rel REL)] ) \n              (button   NAME DFLT [(label LABEL)] [(rel REL)] [(onclick STRING)] )\n              (radio    NAME DFLT [(label LABEL)] [(rel REL)] ( (RNAME ROPTS) ... ) )\n              (text     NAME DFLT [(label LABEL)] [(rel REL)] )") (p (tt "NAME") ", " (tt "LABEL") " and " (tt "REL") " are symbols or strings. " (tt "DFLT") " is the default value of an input, or a list of values in the case of " (tt "textarea") " and " (tt "select") "."))
