diff options
Diffstat (limited to 'src/endpoints.lisp')
| -rw-r--r-- | src/endpoints.lisp | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/endpoints.lisp b/src/endpoints.lisp index dbfb455..5b65ff7 100644 --- a/src/endpoints.lisp +++ b/src/endpoints.lisp @@ -130,10 +130,15 @@ functions in url parameters in endpoint definitions." (birth-from-the-goddess-loins player name) (redirect-to "/tavern")))) -(defendpoint* :post "/new-campaign" () () +(defendpoint* :get "/adventure-awaits" () () + (with-session (player) + (render (page-render-mode) + (make-instance 'new-adventure)))) + +(defendpoint* :post "/adventure-awaits" () () (with-session (creator) (with-checked-plist ((title :title 'a-short-string)) (lzb:request-body) - (let ((campaign - (create-campaign creator title))) - (redirect-to (urlpath campaign)))))) + (let ((adventure + (create-adventure creator title))) + (redirect-to (urlpath adventure)))))) |