Task state and priority editing

1 files changed, 24 insertions, 6 deletions

diff --git a/scrumli.lisp b/scrumli.lisp
index 0f563d9..24c4469 100644
--- a/scrumli.lisp
+++ b/scrumli.lisp
@@ -90,18 +90,36 @@
 (define-route stories-state ("stories/state" :method :post)
   (if (logged-in-p)
       (let* ((id (hunchentoot:post-parameter "id"))
-             (current-state (story-get-state id)))
-        (story-set-state id (ecase (intern current-state :scrumli)
-                              (todo "DOING")
-                              (doing "DONE")
-                              (done "TODO")))
+             (current-state (story-get-state 'story id)))
+        (story-set-state 'story id (ecase (intern current-state :scrumli)
+                                     (todo "DOING")
+                                     (doing "DONE")
+                                     (done "TODO")))
         200)
       403))
 
+(define-route task-state ("tasks/state" :method :post)
+  (if (logged-in-p)
+      (let* ((id (hunchentoot:post-parameter "id"))
+             (current-state (story-get-state 'task id)))
+        (story-set-state 'task id (ecase (intern current-state :scrumli)
+                                    (todo "DOING")
+                                    (doing "DONE")
+                                    (done "TODO"))))))
+
 (define-route stories-priority ("stories/:dir" :method :post)
   (if (logged-in-p)
       (let* ((id (hunchentoot:post-parameter "id")))
-        (story-change-priority id (intern (string-upcase dir) :keyword))
+        (story-change-priority
+         'story id (intern (string-upcase dir) :keyword))
+        200)
+      403))
+
+(define-route task-priority ("tasks/:dir" :method :post)
+  (if (logged-in-p)
+      (let* ((id (hunchentoot:post-parameter "id")))
+        (story-change-priority
+         'task id (intern (string-upcase dir) :keyword))
         200)
       403))