Add trivia

qlfile

@@ -5,3 +5,4 @@ git hsx https://github.com/skyizwhite/hsx.git
 git ningle-fbr https://github.com/skyizwhite/ningle-fbr.git
 ql cl-ppcre
 ql trivial-backtrace
+ql trivia

qlfile.lock

@@ -30,3 +30,7 @@
  (:class qlot/source/ql:source-ql
   :initargs (:%version :latest)
   :version "ql-2023-10-21"))
+("trivia" .
+ (:class qlot/source/ql:source-ql
+  :initargs (:%version :latest)
+  :version "ql-2024-10-12"))

src/renderer.lisp

@@ -1,7 +1,10 @@
 (defpackage #:hp/renderer
   (:use #:cl
-        #:hsx)
+        #:hsx
+        #:trivia)
   (:local-nicknames (#:jg #:jingle))
+  (:import-from #:hsx/element
+                #:element)
   (:local-nicknames (#:env #:hp/env)))
 (in-package #:hp/renderer)
 
@@ -27,11 +30,11 @@
 
 (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"))
   (call-next-method app
                     (hsx:render-to-string
-                     (if (listp result)
+                     (match result
-                         (destructuring-bind (body metadata) result
+                       ((guard (or (list element metadata)
-                           (document metadata body))
+                                   element)
-                         (document result)))))
+                               (typep element 'element))
+                        (document metadata element))
+                       (_ (error "Invalid response form"))))))