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

Don't enable todo, blog, wee-url yet

db4
Slava Pestov 2008-09-28 17:54:39 -05:00
parent 826cf68407
commit e38c813d26
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,12 +17,9 @@ furnace.auth.features.registration
furnace.auth.features.deactivate-user furnace.auth.features.deactivate-user
furnace.boilerplate furnace.boilerplate
furnace.redirection furnace.redirection
webapps.blogs
webapps.pastebin webapps.pastebin
webapps.planet webapps.planet
webapps.todo
webapps.wiki webapps.wiki
webapps.wee-url
webapps.user-admin ; webapps.user-admin ;
IN: websites.concatenative IN: websites.concatenative
@ -33,11 +30,8 @@ IN: websites.concatenative
init-furnace-tables init-furnace-tables
{ {
post comment
paste annotation paste annotation
blog posting blog posting
todo
short-url
article revision article revision
} ensure-tables } ensure-tables
] with-db ; ] with-db ;
@ -46,12 +40,9 @@ TUPLE: factor-website < dispatcher ;
: <factor-website> ( -- responder ) : <factor-website> ( -- responder )
factor-website new-dispatcher factor-website new-dispatcher
<blogs> "blogs" add-responder
<todo-list> "todo" add-responder
<pastebin> "pastebin" add-responder <pastebin> "pastebin" add-responder
<planet> "planet" add-responder <planet> "planet" add-responder
<wiki> "wiki" add-responder <wiki> "wiki" add-responder
<wee-url> "wee-url" add-responder
<user-admin> "user-admin" add-responder <user-admin> "user-admin" add-responder
URL" /wiki/view/Front Page" <redirect-responder> "" add-responder URL" /wiki/view/Front Page" <redirect-responder> "" add-responder
"Factor website" <login-realm> "Factor website" <login-realm>