Remove wild-package-inferred-system

This commit is contained in:
Akira Tempaku 2024-12-20 15:25:14 +09:00
commit 67af8aad50
6 changed files with 20 additions and 18 deletions

View file

@ -3,7 +3,12 @@
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:fbr #:ningle-fbr))
(:local-nicknames (#:env #:hp/env))
(:local-nicknames (#:mw #:hp/middlewares/*))
(:import-from #:hp/middlewares/recoverer
#:*recoverer*)
(:import-from #:hp/middlewares/trailing-slash
#:*trim-trailing-slash*)
(:import-from #:hp/middlewares/public-server
#:*public-server*)
(:import-from #:hp/renderer)
(:export #:*app*))
(in-package #:hp/app)
@ -11,7 +16,7 @@
(defparameter *app* (jg:make-app :address env:*address*
:port env:*port*))
(fbr:assign-routes *app* :system "hp" :directory "src/routes")
(jg:install-middleware *app* mw:*recoverer*)
(jg:install-middleware *app* mw:*trim-trailing-slash*)
(jg:install-middleware *app* mw:*public-server*)
(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*)

View file

@ -7,7 +7,10 @@
(:import-from #:hsx/element
#:element)
(:local-nicknames (#:env #:hp/env))
(:local-nicknames (#:cmp #:hp/components/*)))
(:import-from #:hp/components/header
#:~header)
(:import-from #:hp/components/footer
#:~footer))
(in-package #:hp/renderer)
(defun bust-cache (url)
@ -43,10 +46,10 @@
:hx-ext "head-support, response-targets"
:hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
:class "h-[100svh] flex flex-col"
(cmp:~header)
(~header)
(main :class "flex-1 h-full"
children)
(cmp:~footer)))))
(~footer)))))
(defmethod jg:process-response ((app jg:app) result)
(jg:set-response-header :content-type "text/html; charset=utf-8")