Example

(ql:quickload '(:clack :clack-handler-hunchentoot :clack-dirs))

(defparameter *app* nil)
(defvar *server-handler* nil
  "Clack server instance.")

(defun start-server (&key (port 5000))
  (setf *app* (make-instance 'ningle:<app>))
  (setf *server-handler*
        (clack:clackup *app* :port port)))

(defun stop-server ()
  (when *server-handler*
    (clack:stop *server-handler*)
    (setf *server-handler* nil)
    (setf *app* nil)
    (format t "Ningle File Server stopped.~%")))

(start-server)

;; wget http://localhost:5000/api/v1/static
(clack-dirs:serve-directory *app* "~/tmp/" "/api/v1/static")