1 files changed, 25 insertions, 0 deletions
diff --git a/src/names.lisp b/src/names.lisp
new file mode 100644
index 0000000..8cc64af
--- /dev/null
+++ b/src/names.lisp
@@ -0,0 +1,25 @@
+;;;; names.lisp -- a protocol for getting the names of things, and
+;;;; generally referring to objects with strings.
+
+(in-package :dnd)
+
+(defgeneric unique-name (object)
+  (:documentation "Returns a unique name for an object, or NIL if it does not have one.")
+  (:method ((ob t)) nil))
+
+(defmethod unique-name ((campaign campaign))
+  (campaign-title campaign))
+
+(defmethod unique-name ((hero 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."
+    (format nil "/~a/~a"
+            (urlify (class-name (class-of object)))
+            (urlify (or (unique-name object) (uid object))))))