paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Rename hp to website

Browse source
This commit is contained in:
Akira Tempaku 2025-05-02 09:39:55 +09:00
commit b69fcee7a1
Signed by: paku
GPG key ID: 5B4E8402BCC50607
21 changed files with 77 additions and 70 deletions

14
src/app.lisp
View file

@ -1,4 +1,4 @@
(defpackage #:hp/app
(defpackage #:website/app
(:use #:cl)
(:import-from #:jingle
#:make-app
@ -11,19 +11,19 @@
#:*trim-trailing-slash*)
(:import-from #:clack-errors
#:*clack-error-middleware*)
(:import-from #:hp/lib/env
#:hp-env)
(:import-from #:hp/renderer)
(:import-from #:website/lib/env
#:website-env)
(:import-from #:website/renderer)
(:export #:*app*))
(in-package #:hp/app)
(in-package #:website/app)
(defparameter *app*
(let ((app (make-app)))
(set-routes app :system :hp :target-dir-path "routes")
(set-routes app :system :website :target-dir-path "routes")
(install-middleware app (lambda (app)
(funcall *clack-error-middleware*
app
:debug (string= (hp-env) "dev"))))
:debug (string= (website-env) "dev"))))
(install-middleware app *trim-trailing-slash*)
(static-path app "/img/" "static/img/")
(static-path app "/style/" "static/style/")