(in-package :cl-user)
(defpackage ritherdon-archive.web
  (:use :cl
        :caveman2
        :ritherdon-archive.config
        :ritherdon-archive.view
        :ritherdon-archive.db
        :datafly
        :sxql)
  (:export :*web*))
(in-package :ritherdon-archive.web)

;; for @route annotation
(syntax:use-syntax :annot)

;;
;; Application

(defclass <web> (<app>) ())
(defvar *web* (make-instance '<web>))
(clear-routing-rules *web*)

;;
;; Routing rules

(defroute "/" ()
  (render #P"index.html"))

;;
;; Error pages

(defmethod on-exception ((app <web>) (code (eql 404)))
  (declare (ignore app))
  (merge-pathnames #P"_errors/404.html"
                   *template-directory*))