guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Ludovic Courtès
Subject: 03/04: www: main-page: Tweak news item fetcher.
Date: Tue, 25 Oct 2016 23:18:56 +0000 (UTC)

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

commit 39f04084681d4a7aa57a2e69539599e14c861bb0
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 ...)
              ...



reply via email to

[Prev in Thread] Current Thread [Next in Thread]