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

Fix todo app

db4
Slava Pestov 2008-04-15 07:09:01 -05:00
parent c0206b3165
commit 783d0d613d
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/webapps/todo/todo.factor
View File

@ -7,7 +7,7 @@ http.server.forms http.server.templating.chloe
http.server.boilerplate http.server.crud http.server.auth http.server.boilerplate http.server.crud http.server.auth
http.server.actions http.server.db http.server.actions http.server.db
http.server ; http.server ;
IN: todo IN: webapps.todo
TUPLE: todo uid id priority summary description ; TUPLE: todo uid id priority summary description ;
@ -86,7 +86,7 @@ http.server.sessions.storage.db ;
: test-db "todo.db" resource-path sqlite-db ; : test-db "todo.db" resource-path sqlite-db ;
: <todo-app> ( -- responder ) : <todo-app> ( -- responder )
<todo-app> <todo-responder>
<login> <login>
users-in-db >>users users-in-db >>users
allow-registration allow-registration
@ -108,4 +108,6 @@ http.server.sessions.storage.db ;
init-sessions-table init-sessions-table
] with-db ] with-db
<todo-app> main-responder set-global ; <dispatcher>
<todo-app> "todo" add-responder
main-responder set-global ;

2
extra/webapps/todo/todo.xml
View File

@ -8,7 +8,7 @@
<div class="navbar"> <div class="navbar">
<t:a href="list">List Items</t:a> <t:a href="list">List Items</t:a>
| <t:a href="edit">New Items</t:a> | <t:a href="edit">Add Item</t:a>
<t:if code="http.server.auth.login:allow-edit-profile?"> <t:if code="http.server.auth.login:allow-edit-profile?">
| <t:a href="edit-profile">Edit Profile</t:a> | <t:a href="edit-profile">Edit Profile</t:a>