[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 ...)
...