diff --git a/extra/webapps/planet/planet.xml b/extra/webapps/planet/planet.xml index 340e6c4bee..412f42c64e 100644 --- a/extra/webapps/planet/planet.xml +++ b/extra/webapps/planet/planet.xml @@ -2,7 +2,7 @@ - Concatenative Planet + [ planet-factor ] @@ -38,6 +38,17 @@ +
+ +

+ planet-factor is an Atom/RSS aggregator that collects the + contents of Factor-related blogs. It is inspired by + Planet Lisp. +

+

+ + Syndicate +

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor index a7c88837a8..64b9898991 100644 --- a/extra/websites/concatenative/concatenative.factor +++ b/extra/websites/concatenative/concatenative.factor @@ -38,13 +38,7 @@ IN: websites.concatenative TUPLE: factor-website < dispatcher ; -: ( -- responder ) - factor-website new-dispatcher - "pastebin" add-responder - "planet" add-responder - "wiki" add-responder - "user-admin" add-responder - URL" /wiki/view/Front Page" "" add-responder +: ( responder -- responder' ) "Factor website" "Factor website" >>name allow-registration @@ -55,6 +49,12 @@ TUPLE: factor-website < dispatcher ; { factor-website "page" } >>template test-db ; +: ( -- responder ) + factor-website new-dispatcher + "wiki" add-responder + "user-admin" add-responder + URL" /wiki/view/Front Page" "" 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 - main-responder set-global ; + + "pastebin" add-responder + "planet" add-responder + + main-responder set-global ; : init-production ( -- ) common-configuration "concatenative.org" add-responder + "pastebin.factorcode.org" add-responder + "planet.factorcode.org" add-responder + main-responder set-global ; : ( -- config )