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