21 lines
524 B
Factor
21 lines
524 B
Factor
|
! Copyright (C) 2007 Slava Pestov.
|
||
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: io.files namespaces webapps.file http.server.responders
|
||
|
xmode.code2html kernel ;
|
||
|
IN: webapps.source
|
||
|
|
||
|
global [
|
||
|
! Serve up our own source code
|
||
|
"source" [
|
||
|
[
|
||
|
"" resource-path "doc-root" set
|
||
|
[
|
||
|
drop
|
||
|
serving-html
|
||
|
htmlize-stream
|
||
|
] serve-file-hook set
|
||
|
file-responder
|
||
|
] with-scope
|
||
|
] add-simple-responder
|
||
|
] bind
|