steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix the Atom feed generator

db4
Iskander Sitdikov 2014-09-10 13:07:32 +04:00
parent d2ffa127e4
commit e62370395e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/syndication/syndication-tests.factor
View File

@ -40,4 +40,4 @@ IN: syndication.tests
}
}
} ] [ "vocab:syndication/test/atom.xml" load-news-file ] unit-test
[ ] [ "vocab:syndication/test/atom.xml" load-news-file feed>xml xml>string drop ] unit-test
[ t ] [ "vocab:syndication/test/atom.xml" load-news-file dup feed>xml xml>feed = ] unit-test

6
basis/syndication/syndication.factor
View File

@ -80,7 +80,7 @@ TUPLE: entry title url description date ;
[ children>string ] if >>description
]
[
{ "published" "updated" "issued" "modified" }
{ "published" "updated" "issued" "modified" }
any-tag-named children>string try-parsing-timestamp
>>date
]
@ -122,7 +122,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
[XML
<entry>
<title type="html"><-></title>
<link href=<-> />
<link rel="alternate" href=<-> />
<published><-></published>
<content type="html"><-></content>
</entry>
@ -135,7 +135,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
<XML
<feed xmlns="http://www.w3.org/2005/Atom">
<title><-></title>
<link href=<-> />
<link rel="alternate" href=<-> />
<->
</feed>
XML> ;