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

Let it be a bit more valid as HTML 4.01 Transitional. 

Among other things, add HEAD tag, give charset information, add TITLE
tag and let it start with the "<!DOCTYPE ...>" declaration.
This commit is contained in:
interp 2003-07-04 14:46:31 +00:00
parent dbd13f24ab
commit d5b14d4ffc
1 changed files with 38 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/httpd/surflets/web-server/root/surflets/test.scm
View File

@ -63,22 +63,27 @@ test"))
(set! global (+ 1 global))
(let* ((req (send-html/suspend
(lambda (new-url)
`(html
`((plain-html "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">")
(html
(head
(meta (@ (http-equiv "Content-Type")
(content "text/html; charset=ISO-8859-15")))
(title "Test"))
(body
(h1 "This is from SUrflet")
(p "called " ,global " times")
(p "Choose an annotated address:" (br)
(p "Choose an annotated address:")
(ul
(li (url ,(addr new-url "Zoe") "ab=ba"))
(li (url ,(addr new-url "be<ta") "be<ta"))
(li (url ,(addr new-url) "<nothing>"))))
(p "Or choose an annotated callback" (br)
(li (url ,(addr new-url) "<nothing>")))
(p "Or choose an annotated callback")
(ul
(li (url ,(an-cb 13) "13"))
(li (url ,(an-cb '(1 2 3)) "'(1 2 3)"))
(li (url ,(an-cb "hello") "hello"))
(li (url ,(an-cb #f) "#f"))))
(p "Or choose an input field." (br)
(li (url ,(an-cb #f) "#f")))
(p "Or choose an input field.")
(surflet-form
,new-url
POST
@ -97,9 +102,9 @@ test"))
'(nbsp) '(nbsp)))
radio-elements))))
(tr (td "Checkbox:") (td ,checkbox)))
,submit ,reset (br) ,image))
,submit ,reset (br) ,image)
(hr)
(p (url "/" "Return to main menu.")))))))
(p (url "/" "Return to main menu."))))))))
(bindings (get-bindings req))
(selected (input-field-value select bindings))
(selected2 (input-field-value select2 bindings))