atom: escape the html summary and content

1 files changed, 6 insertions, 2 deletions

diff --git a/src/atom.scm b/src/atom.scm
index 13bb89f..d7b3ce8 100644
--- a/src/atom.scm
+++ b/src/atom.scm
@@ -152,6 +152,10 @@
 (define (render-category cat)
   `(category (@(term ,cat))))
 
+(define (sxml->string/rendered content)
+  (call-with-output-string
+    (lambda (p) (sxml->xml content p))))
+
 (define (render-entry ent)
   `(entry
      (id                      ,(entry-id ent))
@@ -159,8 +163,8 @@
      (published               ,(date->string/RFC3339 (entry-published ent)))
      (updated                 ,(date->string/RFC3339 (entry-updated ent)))
      ,@(map render-author      (entry-authors ent))
-     (summary (@(type html))  ,(entry-summary ent))
-     (content (@(type html))  ,(entry-content ent))
+     (summary (@(type html))  ,(sxml->string/rendered (entry-summary ent)))
+     (content (@(type html))  ,(sxml->string/rendered (entry-content ent)))
      ,@(map render-category    (entry-categories ent))
      ,@(map render-contributor (entry-contributors ent))
      ,@(map render-media       (entry-media ent))))