From aece802c32b638f805a57496a89e8ab1edc6223c Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 7 Jul 2013 22:36:51 +0200
Subject: Reload stories immediately

Reload the stories list immediately after successfully adding a new
story.
---
 scrumli.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'scrumli.lisp')

diff --git a/scrumli.lisp b/scrumli.lisp
index 4659457..778b1aa 100644
--- a/scrumli.lisp
+++ b/scrumli.lisp
@@ -97,12 +97,14 @@
                  parameters)
      ,@body))
 
-(define-route stories-new ("stories/new" :method :post)
+(define-route stories-new ("stories/new" :method :post
+                                         :content-type "text/json")
   (if (logged-in-p)
       (with-post-parameters ("role" "necessity" "headline" "content")
         (post-story role necessity headline content
                     (hunchentoot:session-value :username))
-        200)
+        (with-output-to-string (out)
+          (encode-json '((status . "ok")) out)))
       403))
 
 (define-route tasks-new ("stories/tasks/new" :method :post)
-- 
cgit v1.2.3-54-g00ecf