summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--endpoints.lisp7
1 files changed, 4 insertions, 3 deletions
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" () ()