gistfile1.txt

handle("/todo/new", Req) ->
    Params = Req:parse_post(),
    Status = proplists:get_value("status", Params),
    Description = proplists:get_value("description", Params),
    todo:add_todo(Status, Description),
    redirect_to(Req, "/");

handle("/json", Req) ->
    Todos = todo:get_todos(),
    ParsedTodos = [{X#todo.status, X#todo.description} || X <- Todos ],
    Json = list_to_binary(mochijson2:encode({struct, ParsedTodos })),
    Req:respond({200, [{"Content-Type", "text/javascript"}], Json});