<div dir="ltr">It printed out the surrounding "".<div> </div><div style>I changed to write-string, and the chrome seems to handle it as correct html.</div><div style> </div><div style>Thanks.</div></div><div class="gmail_extra"> <div class="gmail_quote">On Tue, Apr 30, 2013 at 2:03 PM, Jay McCarthy <<a href="mailto:jay.mccarthy@gmail.com" target="_blank">jay.mccarthy@gmail.com</a>> wrote: <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> What's wrong with that output? Is that you want display and not write? <div class="HOEnZb"><div class="h5"> On Tue, Apr 30, 2013 at 12:00 PM, J G Cho <<a href="mailto:gcho@fundingmatters.com">gcho@fundingmatters.com</a>> wrote: > It seems like pages are built and saved to a table which looks like > > '#hasheq((#<procedure:static-page> > . > (html > (head (title "My CV")) > (body (p (a ((href "index.html")) "Dave Herman"))))) > (#<procedure:static-page> > . > (html > (head (title "My Web Site")) > (body (p "Check out my " (a ((href "cv.html")) "CV.")))))) > > Then the values of the above are written out. > > Except in the code seems to "normalize" (html ...) and do a conditional to > see full? vs incremental?. > > (define (write-page site page [out (current-output-port)]) > (let ([data (normalize-response #t (hash-ref (site-table site) page))]) > (cond > [(response/full? data) > (for ([bytes (response/full-body data)]) > (write-bytes bytes out))] > [(response/incremental? data) > (error 'write-page "incremental responses unsupported")]))) > > I changed to > > (define (write-page site page [out (current-output-port)]) > (let ([data (hash-ref (site-table site) page)]) > (cond > [(xexpr? data) > (write (xexpr->string data) out)] > [else > (error 'write-page "incremental responses unsupported")]))) > > Almost, but output is not quite right: > > "<html><head><title>My Web Site</title></head><body>Check out my <a > href=\"cv.html\">CV.</a></body></html>" > > > Any advice on how to do it correctly? > > > > > > > > > > > > On Tue, Apr 30, 2013 at 1:15 PM, Jay McCarthy <<a href="mailto:jay.mccarthy@gmail.com">jay.mccarthy@gmail.com</a>> > wrote: >> >> That package is incredibly old and used internal functions of the Web >> server. You'll have to look into what it was doing and update it to >> the modern documented server. >> >> Jay >> >> On Tue, Apr 30, 2013 at 11:12 AM, J G Cho <<a href="mailto:gcho@fundingmatters.com">gcho@fundingmatters.com</a>> wrote: >> > While trying out dherman's site generator (from >> > >> > planet.racket-lang.oracketg/package-source/dherman/static-page.plt/1/0/main.ss), >> > the following error is thrown: >> > >> > normalize-response: unbound identifier >> > >> > This procedure does not turn up in Search Manuals. Is there way to >> > fix/work >> > around this? >> > >> > jGc >> > >> > ____________________ >> > Racket Users list: >> > <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> >> > >> >> >> >> -- >> Jay McCarthy <<a href="mailto:jay@cs.byu.edu">jay@cs.byu.edu</a>> >> Assistant Professor / Brigham Young University >> <a href="http://faculty.cs.byu.edu/~jay" target="_blank">http://faculty.cs.byu.edu/~jay</a> >> >> "The glory of God is Intelligence" - D&C 93 > > -- Jay McCarthy <<a href="mailto:jay@cs.byu.edu">jay@cs.byu.edu</a>> Assistant Professor / Brigham Young University <a href="http://faculty.cs.byu.edu/~jay" target="_blank">http://faculty.cs.byu.edu/~jay</a> "The glory of God is Intelligence" - D&C 93 </div></div></blockquote></div> </div>