Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Setting utf-8 charset by default.

Browse source
This commit is contained in:
Alex Shinn 2015-05-11 20:40:21 +09:00
parent 5ddef3a892
commit 09b1e3041c
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/chibi/snow/fort.scm
View file

@ -220,6 +220,7 @@
`(html `(html
(head (head
(title "Snow") (title "Snow")
(meta (@ (charset . "utf-8")))
(link (@ (type . "text/css") (link (@ (type . "text/css")
(rel . "stylesheet") (rel . "stylesheet")
(href . "/s/snow.css"))) (href . "/s/snow.css")))
@ -255,7 +256,12 @@
(let ((sexp? (equal? "sexp" (request-param request "fmt")))) (let ((sexp? (equal? "sexp" (request-param request "fmt"))))
(servlet-write (servlet-write
request request
(if sexp? (cond
(call-with-current-continuation proc) (sexp?
(sxml->xml (proc (lambda (x) x))))) (call-with-current-continuation proc))
(else
(let ((res (sxml->xml (proc (lambda (x) x)))))
(servlet-respond request 200 "OK"
'((Content-Type . "text/html; charset=utf-8")))
res))))
(if sexp? (servlet-write request "\n")))) (if sexp? (servlet-write request "\n"))))