03/05: www: main-page: Tweak news item fetcher.

[Ludovic Courtès]

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

commit bccda311c2f1f61dedeece4fc402dee99d98668e
Author: Ludovic Courtès <address@hidden>
Date:   Wed Oct 26 00:57:30 2016 +0200

    www: main-page: Tweak news item fetcher.
    
    * website/www.scm (fetch-news): Use the 'xhtml' prefix instead of 'x'
    for the xhtml namespace.
    (news-items): Match the 'name' tag inside 'author.
---
 website/www.scm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/website/www.scm b/website/www.scm
index 244830b..01e6a93 100644
--- a/website/www.scm
+++ b/website/www.scm
@@ -57,7 +57,7 @@
         (lambda (port)
           (xml->sxml port
                      #:namespaces '((atom . "http://www.w3.org/2005/Atom";)
-                                    (x . "http://www.w3.org/1999/xhtml";))
+                                    (xhtml . "http://www.w3.org/1999/xhtml";))
                      #:trim-whitespace? #t))))))
 
 (define-record-type <news-entry>
@@ -83,7 +83,7 @@
               (atom:link (@ (href ,link)))
               (atom:title ,title)
               (atom:updated ,updated)
-              (atom:author ,author)
+              (atom:author (atom:name ,author))
               (atom:content ,content)
               ,rest ...)
              ...