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.egg |  1 +
 boudin.scm | 11 +++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/boudin.egg b/boudin.egg
index 0187e71..cc163ed 100644
--- a/boudin.egg
+++ b/boudin.egg
@@ -11,6 +11,7 @@
                scss
                srfi-37
                srfi-152
+               sxml-serializer
                sxpath)
  (components
   (program boudin)))
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