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

Add cache context

Browse source
This commit is contained in:
Akira Tempaku 2025-05-04 01:35:47 +09:00
commit 797c990c45
Signed by: paku
GPG key ID: 5B4E8402BCC50607
6 changed files with 16 additions and 4 deletions

12
src/renderer.lisp
View file

@ -17,9 +17,15 @@
(defmethod jingle:process-response ((app jingle:app) result)
(set-response-header :content-type "text/html; charset=utf-8")
(when (eq (request-method *request*) :get)
(set-response-header :cache-control (if (string= (website-env) "dev")
"private, no-store"
"public, max-age=60")))
(set-response-header :cache-control (cond ((string= (website-env) "dev")
"private, no-store")
((eq (context :cache) :static)
"public, max-age=60, s-maxage=604800")
((eq (context :cache) :dynamic)
"public, max-age=60")
(t
"private, no-store"))))
(call-next-method app
(render-to-string
(hsx (html :lang "ja"