Code for letting you test the todo list

db4
Daniel Ehrenberg 2009-02-10 19:05:08 -06:00
parent b2cd8a2ace
commit 72c898e2b5
2 changed files with 62 additions and 1 deletions

View File

@ -106,7 +106,8 @@ todo "TODO"
: <todo-list> ( -- responder )
todo-list new-dispatcher
<list-action> "" add-responder
<list-action> "list" add-responder
URL" /list" <redirect-responder> "" add-responder
<view-action> "view" add-responder
<new-action> "new" add-responder
<edit-action> "edit" add-responder
@ -115,3 +116,52 @@ todo "TODO"
{ todo-list "todo" } >>template
<protected>
"view your todo list" >>description ;
USING: furnace.auth.features.registration
furnace.auth.features.edit-profile
furnace.auth.features.deactivate-user
db.sqlite
furnace.alloy
io.servers.connection
io.sockets.secure ;
: <login-config> ( responder -- responder' )
"Todo list" <login-realm>
"Todo list" >>name
allow-registration
allow-edit-profile
allow-deactivation ;
: todo-db ( -- db ) "resource:todo.db" <sqlite-db> ;
: init-todo-db ( -- )
todo-db [
init-furnace-tables
todo ensure-table
] with-db ;
: <todo-secure-config> ( -- config )
! This is only suitable for testing!
<secure-config>
"resource:basis/openssl/test/dh1024.pem" >>dh-file
"resource:basis/openssl/test/server.pem" >>key-file
"password" >>password ;
: <todo-app> ( -- responder )
init-todo-db
<todo-list>
<login-config>
todo-db <alloy> ;
: <todo-website-server> ( -- threaded-server )
<http-server>
<todo-secure-config> >>secure-config
8080 >>insecure
8431 >>secure ;
: run-todo ( -- )
<todo-app> main-responder set-global
todo-db start-expiring
<todo-website-server> start-server ;
MAIN: run-todo

View File

@ -2,7 +2,14 @@
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<html>
<t:style t:include="resource:extra/webapps/todo/todo.css" />
<t:style t:include="resource:extra/websites/concatenative/page.css" />
<head><t:write-title/><t:write-style/></head>
<body>
<div class="navbar">
<t:a t:href="$todo-list/list">List Items</t:a>
@ -19,4 +26,8 @@
<t:call-next-template />
</body>
</html>
</t:chloe>