branch master updated: website: blog: Ensure Atom feed is UTF-8-encoded.

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository guix-artwork.

The following commit(s) were added to refs/heads/master by this push:
     new ea6d5d4  website: blog: Ensure Atom feed is UTF-8-encoded.
ea6d5d4 is described below

commit ea6d5d4839d3e5c55d212343baea56483081f9dd
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Dec 19 16:15:27 2022 +0100

    website: blog: Ensure Atom feed is UTF-8-encoded.
    
    * website/apps/blog/builder.scm (sxml->xml*): Add call to
    'set-port-encoding!'.
---
 website/apps/blog/builder.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/website/apps/blog/builder.scm b/website/apps/blog/builder.scm
index c552aa8..7293401 100644
--- a/website/apps/blog/builder.scm
+++ b/website/apps/blog/builder.scm
@@ -56,6 +56,7 @@
 
 (define (sxml->xml* sxml port)                    ;from (haunt builder atom)
   "Write SXML to PORT, preceded by an <?xml> tag."
+  (set-port-encoding! port "UTF-8")
   (display "<?xml version=\"1.0\" encoding=\"utf-8\"?>" port)
   (sxml->xml sxml port))