From aefa02fe1a7ae2a2bd9c989efb9a0a16c8a46499 Mon Sep 17 00:00:00 2001 From: HiPhish Date: Tue, 22 Nov 2022 23:28:02 +0100 Subject: [PATCH] Use XML format when writing HTML artifacts --- src/hssg/artifacts/html.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/hssg/artifacts/html.lisp b/src/hssg/artifacts/html.lisp index 6859fd9..ce284a4 100644 --- a/src/hssg/artifacts/html.lisp +++ b/src/hssg/artifacts/html.lisp @@ -36,9 +36,10 @@ (template hssg.artifact::template) (output hssg.artifact::output)) artifact - (let ((contents (plump:serialize - (sexp->plump-tree (cdr (assoc :content (funcall template data)))) - nil))) + (let* ((plump:*tag-dispatchers* plump:*xml-tags*) + (contents (plump:serialize + (sexp->plump-tree (cdr (assoc :content (funcall template data)))) + nil))) (make-instance 'hssg.filesystem:write-string-contents :contents (format nil "~%~A" contents) :path output))))