steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak config

db4
Slava Pestov 2008-09-29 23:04:14 -05:00
parent 81bd2eb175
commit 25df1f9614
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/websites/concatenative/concatenative.factor
View File

@ -45,7 +45,7 @@ TUPLE: factor-website < dispatcher ;
<boilerplate>
{ factor-website "page" } >>template ;
: <configuration> ( responder -- responder' )
: <login-config> ( responder -- responder' )
"Factor website" <login-realm>
"Factor website" >>name
allow-registration
@ -77,10 +77,10 @@ SYMBOL: dh-file
"password" key-password set-global
common-configuration
<factor-website>
<pastebin> <factor-boilerplate> "pastebin" add-responder
<planet> <factor-boilerplate> "planet" add-responder
<pastebin> <factor-boilerplate> <login-config> "pastebin" add-responder
<planet> <factor-boilerplate> <login-config> "planet" add-responder
"/tmp/docs/" <help-webapp> "docs" add-responder
<configuration>
test-db <alloy>
main-responder set-global ;
: <gitweb> ( path -- responder )
@ -91,11 +91,12 @@ SYMBOL: dh-file
: init-production ( -- )
common-configuration
<vhost-dispatcher>
<factor-website> <factor-boilerplate> <configuration> "concatenative.org" add-responder
<pastebin> <factor-boilerplate> <configuration> "paste.factorcode.org" add-responder
<planet> <factor-boilerplate> <configuration> "planet.factorcode.org" add-responder
home "docs" append-path <help-webapp> <configuration> "docs.factorcode.org" add-responder
<factor-website> <login-config> <factor-boilerplate> "concatenative.org" add-responder
<pastebin> <login-config> <factor-boilerplate> "paste.factorcode.org" add-responder
<planet> <login-config> <factor-boilerplate> "planet.factorcode.org" add-responder
home "docs" append-path <help-webapp> "docs.factorcode.org" add-responder
home "cgi" append-path <gitweb> "gitweb.factorcode.org" add-responder
test-db <alloy>
main-responder set-global ;
: <factor-secure-config> ( -- config )