website/src/app.lisp

25 lines
804 B
Common Lisp
Raw Normal View History

2024-10-05 22:05:26 +09:00
(defpackage #:hp/app
2024-02-02 01:07:19 +09:00
(:use #:cl)
2024-02-13 20:34:31 +09:00
(:local-nicknames (#:jg #:jingle))
2024-02-14 01:18:20 +09:00
(:local-nicknames (#:fbr #:ningle-fbr))
2024-06-15 17:28:29 +09:00
(:local-nicknames (#:env #:hp/env))
2024-12-20 15:25:14 +09:00
(:import-from #:hp/middlewares/recoverer
#:*recoverer*)
(:import-from #:hp/middlewares/trailing-slash
#:*trim-trailing-slash*)
(:import-from #:hp/middlewares/public-server
#:*public-server*)
2024-10-03 14:48:42 +09:00
(:import-from #:hp/renderer)
2024-10-05 22:05:26 +09:00
(:export #:*app*))
(in-package #:hp/app)
2024-11-16 20:37:45 +09:00
(defparameter *app* (jg:make-app :address env:*address*
2024-06-15 17:28:29 +09:00
:port env:*port*))
2024-02-14 00:15:37 +09:00
2024-12-20 15:25:14 +09:00
(fbr:set-routes *app* :system :hp :target-dir-path "routes")
(jg:install-middleware *app* *recoverer*)
(jg:install-middleware *app* *trim-trailing-slash*)
(jg:install-middleware *app* *public-server*)
2025-03-28 23:12:07 +09:00
(jg:configure *app*)