summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/atom.scm8
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))))