From d73d459acb5cba5025a72307de00c902b95ece3c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 23 Jul 2023 11:20:30 -0500
Subject: Make my own atom file with CDATA and blow

---
 boudin.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'boudin.scm')

diff --git a/boudin.scm b/boudin.scm
index 51bf8d5..3ace3e6 100755
--- a/boudin.scm
+++ b/boudin.scm
@@ -19,6 +19,7 @@ boudin --- a little static site generator
         (scss)
         (srfi 37)
         (srfi 152)
+        (sxml-serializer)
         (sxpath))
 
 ;;; Transformations
@@ -372,8 +373,14 @@ boudin --- a little static site generator
 
 (define (write-feed pages)
   (print-log "writing feed")
-  (with-output-to-file (make-pathname (build-directory) "feed" "xml")
-    (lambda () (write-atom-doc (apply (feed-template) pages)))))
+    (serialize-sxml (apply (feed-template) pages)
+                    output: (make-pathname (build-directory) "feed" "xml")
+                    cdata-section-elements: '(atom:content)
+                    ns-prefixes: `((*default* . "http://www.w3.org/2005/Atom")
+                                   (*default* . "http://www.w3.org/1999/xhtml")
+                                   . ,(atom-ns-prefixes))
+                    allow-prefix-redeclarations: #t
+                    ))
 
 ;;; Configuration
 
-- 
cgit 1.4.1-21-gabe81