From 79272ef4a0cf6e3f93333f239dd36159202fbbba Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 26 Dec 2022 15:22:04 -0800 Subject: Add: a basic json endpoint to return hall-of-fame data --- model.lisp | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'model.lisp') 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 -- cgit v1.2.3