website/src/main.lisp

(defpackage #:website
  (:nicknames #:website/main)
  (:use #:cl)
  (:import-from #:clack)
  (:import-from #:website/app
                #:*app*)
  (:export #:start
           #:stop
           #:reload))
(in-package #:website)

(defparameter *handler* nil)

(defun start ()
  (if *handler*
      (format t "The server is already running.~%")
      (setf *handler* (clack:clackup *app*
                                     :server :hunchentoot
                                     :address "localhost"
                                     :port 3000))))

(defun stop ()
  (if *handler*
      (progn
        (clack:stop *handler*)
        (setf *handler* nil))
      (format t "The server is not running.~%")))

(defun reload ()
  (stop)
  (ql:quickload :website/app)
  (start))