32 lines
722 B
Scheme
32 lines
722 B
Scheme
|
(define-structure surflet surflet-interface
|
||
|
|
(open surflets
|
||
|
|
scheme-with-scsh)
|
||
|
|
(begin
|
||
|
|
|
||
|
|
(define (main req)
|
||
|
|
(let* ((language (make-annotated-address))
|
||
|
|
(req (send-html/suspend
|
||
|
|
(lambda (k-url)
|
||
|
|
`(html
|
||
|
|
(head (title "Multi-lingual"))
|
||
|
|
(body
|
||
|
|
(h2 "Select your language:")
|
||
|
|
(ul
|
||
|
|
(li (url ,(language k-url "Hello, how are you?")
|
||
|
|
"English")
|
||
|
|
(li (url ,(language k-url "Hallo, wie geht es Ihnen?")
|
||
|
|
"Deutsch")))))))))
|
||
|
|
(bindings (get-bindings req)))
|
||
|
|
(case-returned-via bindings
|
||
|
|
((language) => result-page))))
|
||
|
|
|
||
|
|
(define (result-page text)
|
||
|
|
(send-html/finish
|
||
|
|
`(html
|
||
|
|
(head (title "Greeting"))
|
||
|
|
(body
|
||
|
|
(h2 ,text)))))
|
||
|
|
|
||
|
|
))
|
||
|
|
|