17 lines
550 B
Factor
17 lines
550 B
Factor
! Copyright (C) 2007, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: io io.files io.pathnames io.encodings.utf8 namespaces
|
|
http.server http.server.responses http.server.static http
|
|
xmode.code2html kernel sequences accessors fry ;
|
|
IN: xmode.code2html.responder
|
|
|
|
: <sources> ( root -- responder )
|
|
[
|
|
drop
|
|
dup '[
|
|
_ utf8 [
|
|
_ file-name input-stream get htmlize-stream
|
|
] with-file-reader
|
|
] "text/html" <content>
|
|
] <file-responder> ;
|