summaryrefslogtreecommitdiff
path: root/src/names.lisp
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2023-03-06 19:44:53 -0800
committercolin <colin@cicadas.surf>2023-03-06 19:44:53 -0800
commit187fce76197031dba1112bd6023b41166f039f3e (patch)
tree673514a59d4225b7773c6fc0edcd1e31a406de08 /src/names.lisp
parent36df81a7e3bb23d4cc347cc335fbd9b949a6af91 (diff)
Add: adventure creation
Diffstat (limited to 'src/names.lisp')
-rw-r--r--src/names.lisp3
1 files changed, 2 insertions, 1 deletions
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))))))