marcuskammer/cl-hssg
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use XML format when writing HTML artifacts

Browse source
This commit is contained in:
HiPhish 2022-11-22 23:28:02 +01:00
parent 9dfb78ea06
commit aefa02fe1a
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/hssg/artifacts/html.lisp
View file

@ -36,7 +36,8 @@
(template hssg.artifact::template)
(output hssg.artifact::output))
artifact
(let ((contents (plump:serialize
(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