suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing PR13210

Browse Source
This commit is contained in:
Jay McCarthy 2012-10-26 14:46:32 -06:00
parent fa5846cb0c
commit 7f23a85e15
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/web-server/scribblings/tutorial/continue.scrbl
View File

@ -661,10 +661,10 @@ following content:
web-server/insta
(define (start request)
(response/xexpr
'(html (head (title "Testing"))
(link ((rel "stylesheet")
(href "/test-static.css")
(type "text/css")))
'(html (head (title "Testing")
(link ((rel "stylesheet")
(href "/test-static.css")
(type "text/css"))))
(body (h1 "Testing")
(h2 "This is a header")
(p "This is " (span ((class "hot")) "hot") ".")))))
@ -1255,7 +1255,7 @@ For example, @racket[input-string] is itself a library
@racket[title] to that string.
@racket[input-string] is rendered as @racketresult[`(input ([type "text"] [name
,_fresh_name]))], so @racket[(formlet-dispay
,_fresh_name]))], so @racket[(formlet-display
new-post-formlet)] is rendered as:
@racketresultblock[
(list '(input ([type "text"] [name "input_0"]))

8
collects/web-server/scribblings/tutorial/examples/test-static.rkt
View File

@ -1,10 +1,10 @@
#lang web-server/insta
(define (start request)
(response/xexpr
'(html (head (title "Testing"))
(link ((rel "stylesheet")
(href "/test-static.css")
(type "text/css")))
'(html (head (title "Testing")
(link ((rel "stylesheet")
(href "/test-static.css")
(type "text/css"))))
(body (h1 "This is a header")
(p "This is " (span ((class "hot")) "hot") ".")))))
(static-files-path "htdocs")