basis/xmode/code2html/responder/responder.factor

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