Update for add-main-responder removal
parent
0ba1a1335e
commit
dd69af757a
|
@ -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
|
||||
|
|
|
@ -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>
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue