Add normalize-path middleware
This commit is contained in:
parent
f721c3426d
commit
0ad8c14e10
5 changed files with 45 additions and 14 deletions
src
30
src/app.lisp
30
src/app.lisp
|
@ -6,7 +6,7 @@
|
|||
(:local-nicknames (#:pi #:piccolo))
|
||||
(:local-nicknames (#:view #:hp/view))
|
||||
(:local-nicknames (#:cmp #:hp/components/**/*))
|
||||
(:local-nicknames (#:mw #:hp/middleware))
|
||||
(:local-nicknames (#:mw #:hp/middlewares/*))
|
||||
(:export #:start
|
||||
#:stop
|
||||
#:update))
|
||||
|
@ -21,18 +21,26 @@
|
|||
:title "404 Not Found"
|
||||
:description "お探しのページは見つかりませんでした。"))
|
||||
|
||||
(defun update ()
|
||||
(jg:clear-middlewares *app*)
|
||||
(jg:install-middleware *app* mw:*public-files*)
|
||||
(jg:static-path *app* "/scripts/" "src/scripts/")
|
||||
(jg:static-path *app* "/styles/" "src/styles/")
|
||||
(fbr:assign-routes *app*
|
||||
:system "hp"
|
||||
:directory "src/routes"))
|
||||
(update)
|
||||
|
||||
(defun start ()
|
||||
(jg:start *app*))
|
||||
|
||||
(defun stop ()
|
||||
(jg:stop *app*))
|
||||
|
||||
(defun setup ()
|
||||
(jg:clear-middlewares *app*)
|
||||
(jg:clear-routing-rules *app*)
|
||||
(fbr:assign-routes *app*
|
||||
:system "hp"
|
||||
:directory "src/routes")
|
||||
(jg:static-path *app* "/scripts/" "src/scripts/")
|
||||
(jg:static-path *app* "/styles/" "src/styles/")
|
||||
(jg:install-middleware *app* mw:*public-files*)
|
||||
(jg:install-middleware *app* mw:*normalize-path*))
|
||||
|
||||
(defun update ()
|
||||
(stop)
|
||||
(setup)
|
||||
(start))
|
||||
|
||||
(setup)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue