From f35d764e8269b407f4be84a304af20af7119b0f2 Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 20 Feb 2023 07:56:54 -0800 Subject: Fix: references to non-existent /game-room --- endpoints.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'endpoints.lisp') diff --git a/endpoints.lisp b/endpoints.lisp index c9a8612..4bbc4f7 100644 --- a/endpoints.lisp +++ b/endpoints.lisp @@ -25,7 +25,7 @@ NIL if there is no session for the current request. I.e. It should be called within the scope of a request handler." (session-with-id (lzb:request-cookie +session-cookie-name+ ))) -(defmacro with-session ((player &key session (redirect "/game-room")) &body body) +(defmacro with-session ((player &key session (redirect "/tavern-door")) &body body) (let ((session (or session (gensym "SESSION")))) `(a:if-let (,session (current-session)) (let ((,player (session-player ,session))) @@ -40,7 +40,8 @@ I.e. It should be called within the scope of a request handler." (redirect-to "/tavern-door")) (defendpoint* :get "/tavern-door" () () - (a:if-let (name (flashed-value :game-room)) + "Tavern door is where the player logs into the system." + (a:if-let (name (flashed-value :tavern-door)) (doorkeeper :message (format nil "Ne'er 'erd of ye ~a" name)) (doorkeeper))) @@ -52,7 +53,7 @@ I.e. It should be called within the scope of a request handler." :path "/" :domain "localhost") ; TODO: generalize domain (redirect-to "/tavern")) (progn - (flash :game-room nick) + (flash :tavern-door nick) (redirect-to "/tavern-door")))) ) (defendpoint* :get "/register" () () -- cgit v1.2.3