From 187fce76197031dba1112bd6023b41166f039f3e Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 6 Mar 2023 19:44:53 -0800 Subject: Add: adventure creation --- src/names.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/names.lisp') diff --git a/src/names.lisp b/src/names.lisp index b355405..3bc0c16 100644 --- a/src/names.lisp +++ b/src/names.lisp @@ -13,13 +13,14 @@ (defmethod unique-name ((hero hero)) (name hero)) + (defgeneric urlpath (object) (:documentation "Return the path to the object given a particular") (:method ((object has-uid)) "If the object has a unique human readable name, urlify that name and incorporate it into the urlpath. Otherwise use the object's uid. -Returns /inflection/class/identifier." +Returns /class/identifier." (format nil "/~a/~a" (urlify (class-name (class-of object))) (urlify (or (unique-name object) (uid object)))))) -- cgit v1.2.3