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

syndication: get it working with doublec's wacky atom feed

db4
Slava Pestov 2010-02-25 21:39:14 +13:00
parent 7826543d2e
commit 2ee4db39af
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/syndication/syndication.factor
View File

@ -70,7 +70,8 @@ TUPLE: entry title url description date ;
tri ; tri ;
: atom-entry-link ( tag -- url/f ) : atom-entry-link ( tag -- url/f )
"link" tags-named [ "rel" attr "alternate" = ] find nip "link" tags-named
[ "rel" attr { f "alternate" } member? ] find nip
dup [ "href" attr >url ] when ; dup [ "href" attr >url ] when ;
: atom1.0-entry ( tag -- entry ) : atom1.0-entry ( tag -- entry )