Changing configuration

db4
Slava Pestov 2008-09-28 19:39:26 -05:00
parent a2db399cc3
commit 8cdf39f933
2 changed files with 27 additions and 9 deletions

View File

@ -2,7 +2,7 @@
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<t:title>Concatenative Planet</t:title>
<t:title>[ planet-factor ]</t:title>
<table width="100%" cellpadding="10">
<tr>
@ -38,6 +38,17 @@
</t:each>
</ul>
<hr/>
<p>
<strong>planet-factor</strong> is an Atom/RSS aggregator that collects the
contents of <a href="http://factorcode.org/">Factor</a>-related blogs. It is inspired by
<a href="http://planet.lisp.org">Planet Lisp</a>.
</p>
<p>
<img src="http://factorcode.org/feed-icon-14x14.png" />
<t:a t:href="$planet/feed.xml">Syndicate</t:a>
</p>
</td>
</tr>
</table>

View File

@ -38,13 +38,7 @@ IN: websites.concatenative
TUPLE: factor-website < dispatcher ;
: <factor-website> ( -- responder )
factor-website new-dispatcher
<pastebin> "pastebin" add-responder
<planet> "planet" add-responder
<wiki> "wiki" add-responder
<user-admin> "user-admin" add-responder
URL" /wiki/view/Front Page" <redirect-responder> "" add-responder
: <configuration> ( responder -- responder' )
"Factor website" <login-realm>
"Factor website" >>name
allow-registration
@ -55,6 +49,12 @@ TUPLE: factor-website < dispatcher ;
{ factor-website "page" } >>template
test-db <alloy> ;
: <factor-website> ( -- responder )
factor-website new-dispatcher
<wiki> "wiki" add-responder
<user-admin> "user-admin" add-responder
URL" /wiki/view/Front Page" <redirect-responder> "" add-responder ;
SYMBOL: key-password
SYMBOL: key-file
SYMBOL: dh-file
@ -71,12 +71,19 @@ SYMBOL: dh-file
"resource:basis/openssl/test/server.pem" key-file set-global
"password" key-password set-global
common-configuration
<factor-website> main-responder set-global ;
<factor-website>
<pastebin> "pastebin" add-responder
<planet> "planet" add-responder
<configuration>
main-responder set-global ;
: init-production ( -- )
common-configuration
<vhost-dispatcher>
<factor-website> "concatenative.org" add-responder
<pastebin> "pastebin.factorcode.org" add-responder
<planet> "planet.factorcode.org" add-responder
<configuration>
main-responder set-global ;
: <factor-secure-config> ( -- config )