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

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

@ -63,43 +63,48 @@ test"))
(set! global (+ 1 global)) (set! global (+ 1 global))
(let* ((req (send-html/suspend (let* ((req (send-html/suspend
(lambda (new-url) (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 (body
(h1 "This is from SUrflet") (h1 "This is from SUrflet")
(p "called " ,global " times") (p "called " ,global " times")
(p "Choose an annotated address:" (br) (p "Choose an annotated address:")
(ul (ul
(li (url ,(addr new-url "Zoe") "ab=ba")) (li (url ,(addr new-url "Zoe") "ab=ba"))
(li (url ,(addr new-url "be<ta") "be<ta")) (li (url ,(addr new-url "be<ta") "be<ta"))
(li (url ,(addr new-url) "<nothing>")))) (li (url ,(addr new-url) "<nothing>")))
(p "Or choose an annotated callback" (br) (p "Or choose an annotated callback")
(ul (ul
(li (url ,(an-cb 13) "13")) (li (url ,(an-cb 13) "13"))
(li (url ,(an-cb '(1 2 3)) "'(1 2 3)")) (li (url ,(an-cb '(1 2 3)) "'(1 2 3)"))
(li (url ,(an-cb "hello") "hello")) (li (url ,(an-cb "hello") "hello"))
(li (url ,(an-cb #f) "#f")))) (li (url ,(an-cb #f) "#f")))
(p "Or choose an input field." (br) (p "Or choose an input field.")
(surflet-form (surflet-form
,new-url ,new-url
POST POST
(table (table
(tr (td "Selection:") (td ,select)) (tr (td "Selection:") (td ,select))
(tr (td "Selection2:") (td ,select2)) (tr (td "Selection2:") (td ,select2))
(tr (td "Simple text: ") (td ,text)) (tr (td "Simple text: ") (td ,text))
(tr (td "Number: " ) (td ,number)) (tr (td "Number: " ) (td ,number))
(tr (td "Hidden: " ) (td ,hidden)) (tr (td "Hidden: " ) (td ,hidden))
(tr (td "Password: " ) (td ,password)) (tr (td "Password: " ) (td ,password))
(tr (td "Textarea: " ) (td ,textarea)) (tr (td "Textarea: " ) (td ,textarea))
(tr (td "Radio:") (tr (td "Radio:")
(td ,(zip radios (td ,(zip radios
(map (lambda (elem) (map (lambda (elem)
(list (format #f "~%~s" elem) (list (format #f "~%~s" elem)
'(nbsp) '(nbsp))) '(nbsp) '(nbsp)))
radio-elements)))) radio-elements))))
(tr (td "Checkbox:") (td ,checkbox))) (tr (td "Checkbox:") (td ,checkbox)))
,submit ,reset (br) ,image)) ,submit ,reset (br) ,image)
(hr) (hr)
(p (url "/" "Return to main menu."))))))) (p (url "/" "Return to main menu."))))))))
(bindings (get-bindings req)) (bindings (get-bindings req))
(selected (input-field-value select bindings)) (selected (input-field-value select bindings))
(selected2 (input-field-value select2 bindings)) (selected2 (input-field-value select2 bindings))