Update
parent
edc7aa3908
commit
55f46957af
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue