diff options
Diffstat (limited to 'src/endpoints.lisp')
| -rw-r--r-- | src/endpoints.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/endpoints.lisp b/src/endpoints.lisp index 288f39e..f1151cf 100644 --- a/src/endpoints.lisp +++ b/src/endpoints.lisp @@ -149,4 +149,14 @@ functions in url parameters in endpoint definitions." :description description :seers possible-seers))))))) +(defun an-adventure-with-id (id) + (let ((object (object-with-uid (string-upcase id)))) + (unless (typep object 'adventure) + (lzb:http-err 404)) + object)) + +(defendpoint* :get "/adventure/:adventure an-adventure-with-id:/:title:" () () + (with-session (player) + (render (page-render-mode) + adventure))) ;; for now, render raw adventure. |