Add: a basic json endpoint to return hall-of-fame data

1 files changed, 12 insertions, 4 deletions

diff --git a/model.lisp b/model.lisp
index 318aa26..df20bc0 100644
--- a/model.lisp
+++ b/model.lisp
@@ -1,6 +1,6 @@
 ;;;; model.lisp -- bknr.datastore class definitions for dnd
 
-ty
+
 
 (in-package :dungeons-and-deadlines)
 
@@ -10,12 +10,21 @@ ty
 (deftype character-class ()
   `(member :hero))
 
+(defun hero-class (h)
+  "barGaryan")
+
+(defun hero-title (h)
+  "Scouse Chef")
+
+(defun renown (hero)
+  (experience hero))
+
 (defclass has-uid (db:store-object)
   ((nuid :reader uid :initform (nuid)))
   (:metaclass db:persistent-class))
 
 (defclass can-equip (db:store-object)
-  ((equipment-slots
+  ((equipment-table
     :initform (make-hash-table))
    (equipment-slot-names
     :initform (list :holding)
@@ -40,8 +49,7 @@ ty
     :type integer)
    (chronicle
     :accessor hero-chronicle
-    :initform (list)
-    :type (cons string))
+    :initform (list))
    (pwhash
     :accessor pwhash
     :type string