summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--api.lisp25
-rw-r--r--dungeons-and-deadlines.asd8
-rw-r--r--init.lisp11
-rw-r--r--model.lisp16
-rw-r--r--package.lisp7
-rw-r--r--routes.lisp12
-rw-r--r--serialization.lisp13
7 files changed, 84 insertions, 8 deletions
diff --git a/api.lisp b/api.lisp
new file mode 100644
index 0000000..8159a1c
--- /dev/null
+++ b/api.lisp
@@ -0,0 +1,25 @@
+;;;; api.lisp -- http routes for dnd
+
+(in-package :dungeons-and-deadlines)
+
+(lzb:provision-app (api)
+ :title "Dungeons & Deadlines"
+ :version "0.1.0"
+ :prefix "/api"
+ :content-type "application/json"
+ :auth 'default-auth)
+
+(defun default-auth (&rest ignore)
+ (declare (ignore ignore))
+ t)
+
+
+
+(defendpoint* :get "/hall-of-legends" ((filter-by identity))
+ (:auth t)
+ "Get a list of heros sorted by renown"
+ (json:to-json
+ (list :heroes
+ (sort (copy-seq (db:store-objects-with-class 'hero))
+ #'>
+ :key #'renown))))
diff --git a/dungeons-and-deadlines.asd b/dungeons-and-deadlines.asd
index dd4b586..0380db9 100644
--- a/dungeons-and-deadlines.asd
+++ b/dungeons-and-deadlines.asd
@@ -7,6 +7,7 @@
:version "0.0.1"
:serial t
:depends-on (#:lazybones
+ #:lazybones-hunchentoot
#:bknr.datastore
#:spinneret
#:swank
@@ -15,9 +16,12 @@
#:lass
#:parenscript
#:derrida
- #:ironclad)
+ #:ironclad
+ #:jonathan)
:components ((:file "package")
(:file "utilities")
+ (:file "init")
(:file "model")
- (:file "routes")
+ (:file "serialization")
+ (:file "api")
(:file "dungeons-and-deadlines")))
diff --git a/init.lisp b/init.lisp
new file mode 100644
index 0000000..5603623
--- /dev/null
+++ b/init.lisp
@@ -0,0 +1,11 @@
+;;;; init.lisp
+
+(in-package #:dungeons-and-deadlines)
+
+(defun init-db (&optional config)
+ (if config
+ nil
+ (make-instance
+ 'db:mp-store
+ :directory (merge-pathnames "dnd-store/" (user-homedir-pathname))
+ :subsystems (list (make-instance 'db:store-object-subsystem)))))
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
diff --git a/package.lisp b/package.lisp
index c18b3eb..f7d0143 100644
--- a/package.lisp
+++ b/package.lisp
@@ -5,8 +5,11 @@
(:local-nicknames (#:db #:bknr.datastore)
(#:idx #:bknr.indices)
(#:lzb #:lazybones)
- (#:re #:cl-ppcre))
+ (#:re #:cl-ppcre)
+ (#:json #:jonathan))
(:import-from #:lazybones
- #:defendpoint*))
+ #:defendpoint*)
+ (:import-from #:derrida
+ #:with-plist))
diff --git a/routes.lisp b/routes.lisp
new file mode 100644
index 0000000..7d98c74
--- /dev/null
+++ b/routes.lisp
@@ -0,0 +1,12 @@
+;;;; routes.lisp -- http routes for dnd
+
+(in-package :dungeons-and-deadlines)
+
+(lzb:provision-app (api)
+ :title "Dungeons & Deadlines"
+ :version "0.1.0"
+ :prefix "/api"
+ :content-type "application/json")
+
+
+
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))))