db4
Slava Pestov 2008-09-29 04:10:29 -05:00
parent edc7aa3908
commit 55f46957af
1 changed files with 8 additions and 5 deletions

View File

@ -38,6 +38,10 @@ IN: websites.concatenative
TUPLE: factor-website < dispatcher ; TUPLE: factor-website < dispatcher ;
: <factor-boilerplate> ( responder -- responder' )
<boilerplate>
{ factor-website "page" } >>template ;
: <configuration> ( responder -- responder' ) : <configuration> ( responder -- responder' )
"Factor website" <login-realm> "Factor website" <login-realm>
"Factor website" >>name "Factor website" >>name
@ -45,8 +49,6 @@ TUPLE: factor-website < dispatcher ;
allow-password-recovery allow-password-recovery
allow-edit-profile allow-edit-profile
allow-deactivation allow-deactivation
<boilerplate>
{ factor-website "page" } >>template
test-db <alloy> ; test-db <alloy> ;
: <factor-website> ( -- responder ) : <factor-website> ( -- responder )
@ -74,15 +76,16 @@ SYMBOL: dh-file
<factor-website> <factor-website>
<pastebin> "pastebin" add-responder <pastebin> "pastebin" add-responder
<planet> "planet" add-responder <planet> "planet" add-responder
<factor-boilerplate>
<configuration> <configuration>
main-responder set-global ; main-responder set-global ;
: init-production ( -- ) : init-production ( -- )
common-configuration common-configuration
<vhost-dispatcher> <vhost-dispatcher>
<factor-website> "concatenative.org" add-responder <factor-website> <factor-boilerplate> "concatenative.org" add-responder
<pastebin> "paste.factorcode.org" add-responder <pastebin> <factor-boilerplate> "paste.factorcode.org" add-responder
<planet> "planet.factorcode.org" add-responder <planet> <factor-boilerplate> "planet.factorcode.org" add-responder
<configuration> <configuration>
main-responder set-global ; main-responder set-global ;