;;;; init.lisp

(in-package #:dnd.api)

(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)))))

(defvar *dnd-arena* nil
  "The instance of the HTTP server.")

(defun conjure-arena ()
  (setf *dnd-arena* (lzb:create-server))
  (lzb:install-app *dnd-arena* 'api)
  (lzb:start-server *dnd-arena*))