;;;; dnd.lisp

(in-package #:dnd)

(defvar *config* nil
  "Instance of the config class globally available.")

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

(defun start (&optional config-path)
  "Configures and initializes the datastore and web server, then starts the server."
  (setf *config* (config-from-file (or config-path
				       (asdf:system-relative-pathname "dnd" "config.lisp"))))
  (init-db *config*)
  (setf *dnd-arena* (lzb:create-server))
  (lzb:install-app *dnd-arena* (lzb:app 'dnd))
  (lzb:start-server *dnd-arena*))

(defun boot ()
  "Main entrypoint for an executable version of DND."
  (swank:create-server :port 9876 :dont-close t)
  (start)
  (loop (sleep 1)))