Add metadata context

src/app.lisp

@@ -1,10 +1,6 @@
 (defpackage #:website/app
-  (:use #:cl)
+  (:use #:cl
-  (:import-from #:jingle
+        #:jingle)
-                #:make-app
-                #:install-middleware
-                #:static-path
-                #:configure)
   (:import-from #:ningle-fbr
                 #:set-routes)
   (:import-from #:lack-mw

src/components/header.lisp

@@ -1,8 +1,7 @@
 (defpackage #:website/components/header
   (:use #:cl
-        #:hsx)
+        #:hsx
-  (:import-from #:jingle
+        #:jingle)
-                #:request-uri)
   (:export #:~header))
 (in-package #:website/components/header)
 

src/components/metadata.lisp

@@ -1,8 +1,7 @@
 (defpackage #:website/components/metadata
   (:use #:cl
-        #:hsx)
+        #:hsx
-  (:import-from #:jingle
+        #:jingle)
-                #:request-uri)
   (:import-from #:website/lib/env
                 #:website-url)
   (:export #:~metadata))

src/renderer.lisp

@@ -1,9 +1,7 @@
 (defpackage #:website/renderer
   (:use #:cl
         #:hsx
-        #:trivia)
+        #:jingle)
-  (:import-from #:jingle
-                #:set-response-header)
   (:import-from #:hsx/element
                 #:element)
   (:import-from #:website/lib/env
@@ -21,18 +19,14 @@
   (set-response-header :cache-control (if (string= (website-env) "dev")
                                           "private, no-store"
                                           "public, max-age=60"))
-  (match result
+  
-    ((guard (or (list body metadata)
+  (call-next-method app
-                body)
+                    (hsx:render-to-string
-            (typep body 'element))
+                     (hsx (html :lang "ja"
-     (call-next-method app
+                            (head
-                       (hsx:render-to-string
+                              (~metadata :metadata (context :metadata))
-                        (hsx (html :lang "ja"
+                              (~scripts))
-                               (head
+                            (body
-                                 (~metadata :metadata metadata)
+                              :hx-ext "head-support, response-targets"
-                                 (~scripts))
+                              :hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
-                               (body
+                              (~layout result)))))))
-                                 :hx-ext "head-support, response-targets, preload, alpine-morph"
-                                 :hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
-                                 (~layout body)))))))
-    (_ (error "Invalid response form"))))

src/routes/about.lisp

@@ -1,6 +1,7 @@
 (defpackage #:website/routes/about
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:jingle)
   (:import-from #:website/lib/cms
                 #:get-about)
   (:import-from #:website/lib/time
@@ -18,4 +19,5 @@
 
 (defun handle-get (params)
   (declare (ignore params))
-  (list (~page) *metadata*))
+  (setf (context :metadata) *metadata*)
+  (~page))

src/routes/blog.lisp

@@ -1,6 +1,7 @@
 (defpackage #:website/routes/blog
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:jingle)
   (:export #:handle-get))
 (in-package :website/routes/blog)
 
@@ -13,4 +14,5 @@
 
 (defun handle-get (params)
   (declare (ignore params))
-  (list (~page) *metadata*))
+  (setf (context :metadata) *metadata*)
+  (~page))

src/routes/not-found.lisp

@@ -1,6 +1,7 @@
 (defpackage #:website/routes/not-found
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:jingle)
   (:export #:handle-not-found))
 (in-package #:website/routes/not-found)
 
@@ -18,4 +19,5 @@
        "Back to TOP"))))
 
 (defun handle-not-found ()
-  (list (~page) *metadata*))
+  (setf (context :metadata) *metadata*)
+  (~page))

src/routes/work.lisp

@@ -1,6 +1,7 @@
 (defpackage #:website/routes/work
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:jingle)
   (:import-from #:website/lib/cms
                 #:get-work)
   (:import-from #:website/lib/time
@@ -18,4 +19,5 @@
 
 (defun handle-get (params)
   (declare (ignore params))
-  (list (~page) *metadata*))
+  (setf (context :metadata) *metadata*)
+  (~page))