(in-package :cl-user)

(defparameter *rlg-server* nil)

(defun rlg-web-start (&key port)
  "Start the server, initialize dispatch table."
  (setf hunchentoot:*dispatch-table*
	(list (hunchentoot:create-static-file-dispatcher-and-handler
	       "/index.html" #P "web/ah01/")
	      'hunchentoot:default-dispatcher))
  (format t "; --> Starting...~%")
  (setf *rlg-server* (hunchentoot:start-server :port port))
  (format t "; --> Ready!~%"))

(rlg-web-start :port 9000)