From 783d0d613d3389af5108ff917178bb0eaa2408dd Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 15 Apr 2008 07:09:01 -0500
Subject: [PATCH] Fix todo app

---
 extra/webapps/todo/todo.factor | 8 +++++---
 extra/webapps/todo/todo.xml    | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/webapps/todo/todo.factor b/extra/webapps/todo/todo.factor
index 6277216eef..d8d9988109 100755
--- a/extra/webapps/todo/todo.factor
+++ b/extra/webapps/todo/todo.factor
@@ -7,7 +7,7 @@ http.server.forms http.server.templating.chloe
 http.server.boilerplate http.server.crud http.server.auth
 http.server.actions http.server.db
 http.server ;
-IN: todo
+IN: webapps.todo
 
 TUPLE: todo uid id priority summary description ;
 
@@ -86,7 +86,7 @@ http.server.sessions.storage.db ;
 : test-db "todo.db" resource-path sqlite-db ;
 
 : <todo-app> ( -- responder )
-    <todo-app>
+    <todo-responder>
     <login>
         users-in-db >>users
         allow-registration
@@ -108,4 +108,6 @@ http.server.sessions.storage.db ;
         init-sessions-table
     ] with-db
 
-    <todo-app> main-responder set-global ;
+    <dispatcher>
+        <todo-app> "todo" add-responder
+    main-responder set-global ;
diff --git a/extra/webapps/todo/todo.xml b/extra/webapps/todo/todo.xml
index a76ed2730f..81a5d3a425 100644
--- a/extra/webapps/todo/todo.xml
+++ b/extra/webapps/todo/todo.xml
@@ -8,7 +8,7 @@
 
 	<div class="navbar">
 		  <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:a href="edit-profile">Edit Profile</t:a>