29 lines
599 B
Scheme
29 lines
599 B
Scheme
|
(define-structure surflet surflet-interface
|
||
|
|
(open surflets
|
||
|
|
surflets/callbacks
|
||
|
|
scheme-with-scsh)
|
||
|
|
(begin
|
||
|
|
|
||
|
|
(define (main req)
|
||
|
|
(let ((language (make-annotated-callback result-page)))
|
||
|
|
(send-html
|
||
|
|
`(html
|
||
|
|
(head (title "Multi-lingual"))
|
||
|
|
(body
|
||
|
|
(h2 "Select your language:")
|
||
|
|
(ul
|
||
|
|
(li (url ,(language "Hello, how are you?")
|
||
|
|
"English")
|
||
|
|
(li (url ,(language "Hallo, wie geht es Ihnen?")
|
||
|
|
"Deutsch")))))))))
|
||
|
|
|
||
|
|
(define (result-page req text)
|
||
|
|
(send-html/finish
|
||
|
|
`(html
|
||
|
|
(head (title "Greeting"))
|
||
|
|
(body
|
||
|
|
(h2 ,text)))))
|
||
|
|
|
||
|
|
))
|
||
|
|
|