basis/xmode/code2html/responder/responder.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io io.files io.pathnames io.encodings.utf8 namespaces
   4 http.server http.server.responses http.server.static http
   5 xmode.code2html kernel sequences accessors fry ;
   6 IN: xmode.code2html.responder
   7
   8 : <sources> ( root -- responder )
   9     [
  10         drop
  11         dup '[
  12             _ utf8 [
  13                 _ file-name input-stream get htmlize-stream
  14             ] with-file-reader
  15         ] <html-content>
  16     ] <file-responder> ;