diff --git a/scheme/httpd/surflets/web-server/root/surflets/test.scm b/scheme/httpd/surflets/web-server/root/surflets/test.scm index 59039ca..1c2f928 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/test.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/test.scm @@ -63,43 +63,48 @@ test")) (set! global (+ 1 global)) (let* ((req (send-html/suspend (lambda (new-url) - `(html + `((plain-html "") + (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) - (ul - (li (url ,(addr new-url "Zoe") "ab=ba")) - (li (url ,(addr new-url "be")))) - (p "Or choose an annotated callback" (br) - (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) - (surflet-form - ,new-url - POST - (table - (tr (td "Selection:") (td ,select)) - (tr (td "Selection2:") (td ,select2)) - (tr (td "Simple text: ") (td ,text)) - (tr (td "Number: " ) (td ,number)) - (tr (td "Hidden: " ) (td ,hidden)) - (tr (td "Password: " ) (td ,password)) - (tr (td "Textarea: " ) (td ,textarea)) - (tr (td "Radio:") - (td ,(zip radios - (map (lambda (elem) - (list (format #f "~%~s" elem) - '(nbsp) '(nbsp))) - radio-elements)))) - (tr (td "Checkbox:") (td ,checkbox))) - ,submit ,reset (br) ,image)) + (p "Choose an annotated address:") + (ul + (li (url ,(addr new-url "Zoe") "ab=ba")) + (li (url ,(addr new-url "be"))) + (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.") + (surflet-form + ,new-url + POST + (table + (tr (td "Selection:") (td ,select)) + (tr (td "Selection2:") (td ,select2)) + (tr (td "Simple text: ") (td ,text)) + (tr (td "Number: " ) (td ,number)) + (tr (td "Hidden: " ) (td ,hidden)) + (tr (td "Password: " ) (td ,password)) + (tr (td "Textarea: " ) (td ,textarea)) + (tr (td "Radio:") + (td ,(zip radios + (map (lambda (elem) + (list (format #f "~%~s" elem) + '(nbsp) '(nbsp))) + radio-elements)))) + (tr (td "Checkbox:") (td ,checkbox))) + ,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))