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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/webapps/planet/planet.xml
View File

@ -2,7 +2,7 @@
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0"> <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"> <table width="100%" cellpadding="10">
<tr> <tr>
@ -38,6 +38,17 @@
</t:each> </t:each>
</ul> </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> </td>
</tr> </tr>
</table> </table>

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

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