Add cache context

src/renderer.lisp

@@ -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")
+    (set-response-header :cache-control (cond ((string= (website-env) "dev")
-                                            "private, no-store"
+                                               "private, no-store")
-                                            "public, max-age=60")))
+                                              ((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"

src/routes/about.lisp

@@ -19,5 +19,6 @@
 
 (defun handle-get (params)
   (declare (ignore params))
+  (setf (context :cache) :dynamic)
   (setf (context :metadata) *metadata*)
   (~page))

src/routes/blog.lisp

@@ -14,5 +14,6 @@
 
 (defun handle-get (params)
   (declare (ignore params))
+  (setf (context :cache) :dynamic)
   (setf (context :metadata) *metadata*)
   (~page))

src/routes/index.lisp

@@ -1,6 +1,7 @@
 (defpackage #:website/routes/index
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:jingle)
   (:export #:handle-get
            #:handle-head))
 (in-package #:website/routes/index)
@@ -43,6 +44,7 @@
 
 (defun handle-get (params)
   (declare (ignore params))
+  (setf (context :cache) :static)
   (~page))
 
 ; for health check

src/routes/not-found.lisp

@@ -19,5 +19,6 @@
        "Back to TOP"))))
 
 (defun handle-not-found ()
+  (setf (context :cache) :dynamic)
   (setf (context :metadata) *metadata*)
   (~page))

src/routes/work.lisp

@@ -19,5 +19,6 @@
 
 (defun handle-get (params)
   (declare (ignore params))
+  (setf (context :cache) :dynamic)
   (setf (context :metadata) *metadata*)
   (~page))