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

syndication: Property can be present but f, handle this. 

Test case:
    "http://www.spreaker.com/show/2952221/episodes/feed" http-get nip parse-feed
master
Doug Coleman 2020-02-18 18:43:49 -06:00
parent 02445393c8
commit a91fbb54b0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/syndication/syndication.factor
View File

@ -26,6 +26,9 @@ TUPLE: entry title url description date ;
: try-parsing-timestamp ( string -- timestamp )
[ rfc822>timestamp ] [ drop rfc3339>timestamp ] recover ;
: ?children>string ( tag -- str/f )
dup [ children>string ] when ; inline
: rss1.0-entry ( tag -- entry )
<entry> swap {
[ "title" tag-named children>string >>title ]
@ -47,12 +50,12 @@ TUPLE: entry title url description date ;
: rss2.0-entry ( tag -- entry )
<entry> swap {
[ "title" tag-named children>string >>title ]
[ { "link" "guid" } any-tag-named children>string >url >>url ]
[ { "description" "encoded" } any-tag-named children>string >>description ]
[ "title" tag-named ?children>string >>title ]
[ { "link" "guid" } any-tag-named ?children>string >url >>url ]
[ { "description" "encoded" } any-tag-named ?children>string >>description ]
[
{ "date" "pubDate" } any-tag-named
children>string try-parsing-timestamp >>date
?children>string try-parsing-timestamp >>date
]
} cleave ;