Remove wild-package-inferred-system
This commit is contained in:
parent
2e325fbc06
commit
67af8aad50
6 changed files with 20 additions and 18 deletions
15
src/app.lisp
15
src/app.lisp
|
@ -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*)
|
||||
|
|
|
@ -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")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue