diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-10-26 00:57:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-10-26 23:16:58 +0200 |
| commit | bccda311c2f1f61dedeece4fc402dee99d98668e (patch) | |
| tree | 61b05425c83e6add5f3cf8e19c84186e5ea0a0b0 | |
| parent | 6453e881ad42c0bfde1a18fd388500986d10cd59 (diff) | |
| download | guix-artwork-bccda311c2f1f61dedeece4fc402dee99d98668e.tar guix-artwork-bccda311c2f1f61dedeece4fc402dee99d98668e.tar.gz | |
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.
| -rw-r--r-- | website/www.scm | 4 |
1 files 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 ...) ... |