diff options
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scrumli.lisp b/scrumli.lisp index df6b442..14a2cdd 100644 --- a/scrumli.lisp +++ b/scrumli.lisp @@ -102,6 +102,12 @@ (encode-json-to-string (get-all-stories)) 403)) +(define-route my-stories-json ("stories/mine" :content-type "text/json") + (if (logged-in-p) + (encode-json-to-string (get-stories-for + (hunchentoot:session-value :username))) + 403)) + (defmacro with-post-parameters (parameters &body body) `(let ,(mapcar (lambda (p) (list (intern (string-upcase p)) |