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

Improve caching

Browse source
This commit is contained in:
Akira Tempaku 2024-11-16 14:02:31 +09:00
parent bbee49c837
commit 23bacbbe41
1 changed files with 10 additions and 2 deletions

12
src/renderer.lisp
View file

@ -8,6 +8,9 @@
(:local-nicknames (#:env #:hp/env)))
(in-package #:hp/renderer)
(defun bust-cache (url)
(format nil "~a?~a" url #.(get-universal-time)))
(defcomp document (&key title description children)
(hsx
(html :lang "ja"
@ -16,20 +19,25 @@
(meta :name "viewport" :content "width=device-width, initial-scale=1")
(link :rel "icon" :href "/favicon.ico")
(link :rel "apple-touch-icon" :href "/favicon.ico")
(link :rel "stylesheet" :href (format nil "/dist.css?~a" #.(get-universal-time)))
(link :rel "stylesheet" :href (bust-cache "/dist.css"))
(script :src "https://cdn.jsdelivr.net/npm/htmx.org@2.0.0/dist/htmx.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-head-support@2.0.0/head-support.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-response-targets@2.0.0/response-targets.min.js")
(script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.0/dist/cdn.min.js" :defer t)
(title (format nil "~@[~a - ~]skyizwhite.dev" title))
(meta
:name "description"
:content (or description "pakuの個人サイト")))
(body :hx-ext "head-support"
(body :hx-ext "head-support, response-targets" :hx-target-404 "body"
(main :class "container mx-auto"
children)))))
(defmethod jg:process-response ((app jg:app) result)
(jg:set-response-header :content-type "text/html; charset=utf-8")
(when (env:dev-mode-p)
(jg:set-response-header :cache-control "no-store, no-cache, must-revalidate")
(jg:set-response-header :pragma "no-cache")
(jg:set-response-header :expires "0"))
(call-next-method app
(hsx:render-to-string
(match result