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

Handle Atom feeds with multiple entry links

db4
Slava Pestov 2008-09-29 23:36:40 -05:00
parent 94872bd43a
commit e438fe2a80
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/syndication/syndication.factor
View File

@ -69,11 +69,15 @@ TUPLE: entry title url description date ;
[ "item" tags-named [ rss2.0-entry ] map set-entries ] [ "item" tags-named [ rss2.0-entry ] map set-entries ]
tri ; tri ;
: atom-entry-link ( tag -- url/f )
"link" tags-named [ "rel" swap at "alternate" = ] find nip
dup [ "href" swap at >url ] when ;
: atom1.0-entry ( tag -- entry ) : atom1.0-entry ( tag -- entry )
entry new entry new
swap { swap {
[ "title" tag-named children>string >>title ] [ "title" tag-named children>string >>title ]
[ "link" tag-named "href" swap at >url >>url ] [ atom-entry-link >>url ]
[ [
{ "content" "summary" } any-tag-named { "content" "summary" } any-tag-named
dup children>> [ string? not ] contains? dup children>> [ string? not ] contains?