Update for add-main-responder removal

db4
Slava Pestov 2008-09-27 11:38:20 -05:00
parent 0ba1a1335e
commit dd69af757a
5 changed files with 5 additions and 9 deletions

View File

@ -232,7 +232,7 @@ M: annotation entity-url
: <pastebin> ( -- responder )
pastebin new-dispatcher
<pastebin-action> "list" add-main-responder
<pastebin-action> "" add-responder
<pastebin-feed-action> "list.atom" add-responder
<paste-action> "paste" add-responder
<paste-feed-action> "paste.atom" add-responder

View File

@ -183,7 +183,7 @@ posting "POSTINGS"
: <planet-admin> ( -- responder )
planet-admin new-dispatcher
<edit-blogroll-action> "blogroll" add-main-responder
<edit-blogroll-action> "" add-responder
<update-action> "update" add-responder
<new-blog-action> "new-blog" add-responder
<edit-blog-action> "edit-blog" add-responder
@ -194,7 +194,7 @@ posting "POSTINGS"
: <planet> ( -- responder )
planet new-dispatcher
<planet-action> "list" add-main-responder
<planet-action> "" add-responder
<planet-feed-action> "feed.xml" add-responder
<planet-admin> "admin" add-responder
<boilerplate>

View File

@ -106,7 +106,7 @@ todo "TODO"
: <todo-list> ( -- responder )
todo-list new-dispatcher
<list-action> "list" add-main-responder
<list-action> "" add-responder
<view-action> "view" add-responder
<new-action> "new" add-responder
<edit-action> "edit" add-responder

View File

@ -149,7 +149,7 @@ can-administer-users? define-capability
: <user-admin> ( -- responder )
user-admin new-dispatcher
<user-list-action> "list" add-main-responder
<user-list-action> "" add-responder
<new-user-action> "new" add-responder
<edit-user-action> "edit" add-responder
<delete-user-action> "delete" add-responder

View File

@ -82,14 +82,10 @@ SYMBOL: dh-file
common-configuration
<factor-website> main-responder set-global ;
: no-www-prefix ( -- responder )
"http://concatenative.org" <permanent-redirect> <trivial-responder> ;
: init-production ( -- )
common-configuration
<vhost-dispatcher>
<factor-website> "concatenative.org" add-responder
no-www-prefix "www.concatenative.org" add-responder
main-responder set-global ;
: <factor-secure-config> ( -- config )