From 36df81a7e3bb23d4cc347cc335fbd9b949a6af91 Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 6 Mar 2023 18:33:45 -0800 Subject: Altered: s/campaign/adventure globally --- src/endpoints.lisp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'src/endpoints.lisp') 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)))))) -- cgit v1.2.3