diff options
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 30 |
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)) |