src/main.lisp

(defpackage murja
  (:use :cl)
  (:import-from :murja.posts.post-db)
  (:import-from :murja.middleware.db :with-db)
  (:import-from :murja.migrations :migrate)
  (:export :main :start-server))

(in-package :murja)

(defvar *server* nil)
(setf hunchentoot:*catch-errors-p* nil)

(defun start-server (&key (port 3010))
  (format t "Starting murja server~%")
  (with-db
      (migrate))
  (let ((server (make-instance 'easy-routes:easy-routes-acceptor :port port)))
    (when (equalp 3010 port)
      (setf *server* server))
    (hunchentoot:start server)
    (format t "Started murja server on ~a ~%" port)
    server))

(defun main (&key (port 3010))
  (start-server :port port)
  (handler-case
      (loop do (sleep 1000))
    (condition () nil)))

;; (start-server :port 3010)