It printed out the surrounding "". I changed to write-string, and the chrome seems to handle it as correct html.
Thanks. On Tue, Apr 30, 2013 at 2:03 PM, Jay McCarthy <jay.mccar...@gmail.com>wrote: > What's wrong with that output? Is that you want display and not write? > > On Tue, Apr 30, 2013 at 12:00 PM, J G Cho <g...@fundingmatters.com> 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><p>Check out my <a > > href=\"cv.html\">CV.</a></p></body></html>" > > > > > > Any advice on how to do it correctly? > > > > > > > > > > > > > > > > > > > > > > > > On Tue, Apr 30, 2013 at 1:15 PM, Jay McCarthy <jay.mccar...@gmail.com> > > 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 <g...@fundingmatters.com> > 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: > >> > http://lists.racket-lang.org/users > >> > > >> > >> > >> > >> -- > >> Jay McCarthy <j...@cs.byu.edu> > >> Assistant Professor / Brigham Young University > >> http://faculty.cs.byu.edu/~jay > >> > >> "The glory of God is Intelligence" - D&C 93 > > > > > > > > -- > Jay McCarthy <j...@cs.byu.edu> > Assistant Professor / Brigham Young University > http://faculty.cs.byu.edu/~jay > > "The glory of God is Intelligence" - D&C 93 >
____________________ Racket Users list: http://lists.racket-lang.org/users
