diff options
Diffstat (limited to 'htmlform.txi')
| -rw-r--r-- | htmlform.txi | 27 |
1 files changed, 18 insertions, 9 deletions
diff --git a/htmlform.txi b/htmlform.txi index ffa0665..e960984 100644 --- a/htmlform.txi +++ b/htmlform.txi @@ -168,6 +168,15 @@ delimited list. Apply map @code{form:delimited} to the list returned by @code{command->p-specs}. @end defun +@defun html:delimited-list row @dots{} +Wraps its arguments with delimited-list (@samp{DL} command. +@end defun + +@defun get-foreign-choices tab +Returns a list of the @samp{visible-name} or first fields of +table @var{tab}. +@end defun + @defun command->p-specs rdb command-table command @@ -190,16 +199,16 @@ command. (html:head 'commands) (html:body (sprintf #f "<H2>%s:</H2><BLOCKQUOTE>%s</BLOCKQUOTE>\\n" - (html:plain 'build) - (html:plain ((comtab 'get 'documentation) 'build))) + (html:plain 'build) + (html:plain ((comtab 'get 'documentation) 'build))) (html:form - 'post - (or "http://localhost:8081/buildscm" "/cgi-bin/build.cgi") - (apply html:delimited-list - (apply map form:delimited - (command->p-specs build '*commands* 'build))) - (form:submit 'build) - (form:reset)))) + 'post + (or "http://localhost:8081/buildscm" "/cgi-bin/build.cgi") + (apply html:delimited-list + (apply map form:delimited + (command->p-specs build '*commands* 'build))) + (form:submit 'build) + (form:reset)))) port))) @end example @end defun |