18 lines
541 B
Factor
18 lines
541 B
Factor
! Copyright (c) 2010 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors http.server http.server.dispatchers
|
|
http.server.static kernel namespaces sequences ;
|
|
IN: websites.factorcode
|
|
|
|
SYMBOL: users
|
|
|
|
: <factor-website> ( -- website )
|
|
<dispatcher>
|
|
"resource:extra/websites/factorcode/" <static> enable-fhtml >>default
|
|
users get [
|
|
[ "/home/" "/www/" surround <static> ] keep add-responder
|
|
] each ;
|
|
|
|
: init-testing ( -- )
|
|
<factor-website> main-responder set-global ;
|