scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reindent.

This commit is contained in:
interp 2003-01-17 17:48:20 +00:00
parent 4183ec85ce
commit 104802b3ae
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
scheme/httpd/surflets/web-server/root/surflets/add-html.scm
View File

@ -8,22 +8,23 @@
(define (get-number input-text . maybe-title)
(let* ((title (if (pair? maybe-title) (car maybe-title) #f))
(result (send-html/suspend
(lambda (new-url)
`(html ,(if title
`(title ,title) '())
(body
,(if title `(h2 ,title) '())
(p
(form (@ (method "get")
(action ,new-url))
,input-text " "
(input (@ (type "text")
(name "number"))
(input (@ (type "submit"))))))
(hr)
(p (URL "/" "Return to main menu") (br)
(URL "add.scm" "Start new calculation."))))))))
(result
(send-html/suspend
(lambda (new-url)
`(html ,(if title
`(title ,title) '())
(body
,(if title `(h2 ,title) '())
(p
(form (@ (method "get")
(action ,new-url))
,input-text " "
(input (@ (type "text")
(name "number"))
(input (@ (type "submit"))))))
(hr)
(p (URL "/" "Return to main menu") (br)
(URL "add.scm" "Start new calculation."))))))))
(let* ((bindings (form-query
(http-url-search (request-url result))))
(number (string->number