<sources> ( root -- responder )

Vocabulary

xmode.code2html.responder

Inputs

root

an object

Outputs

responder

an object

Definition

USING: http.server.responses http.server.static io
io.encodings.utf8 io.files io.pathnames kernel namespaces
xmode.code2html ;

IN: xmode.code2html.responder

: <sources> ( root -- responder )
    [
        drop dup
        [ file-name input-stream get htmlize-stream ] curry
        [ [ utf8 ] curry ] dip [ with-file-reader ] curry
        compose <html-content>
    ] <file-responder> ;