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

1 files changed, 13 insertions, 0 deletions

diff --git a/serialization.lisp b/serialization.lisp
new file mode 100644
index 0000000..7066712
--- /dev/null
+++ b/serialization.lisp
@@ -0,0 +1,13 @@
+;;;; serialization.lisp
+
+
+
+(in-package :dungeons-and-deadlines)
+
+(defun hall-of-fame-hero-view (hero)
+  (json:to-json
+   (list :name (hero-name hero)
+         :uid (uid hero)
+         :renown (renown hero)
+         :title (hero-title hero)
+         :class (hero-class hero))))