From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- htmlform.txi | 27 ++++++++++++++++++--------- 1 file changed, 18 insertions(+), 9 deletions(-) (limited to 'htmlform.txi') 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 "

%s:

%s
\\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 -- cgit v1.2.3