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

Planet Factor RSS changes

release
Daniel Ehrenberg 2007-12-04 21:19:11 -05:00
parent 084f2bcec5
commit 53730a28c2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/webapps/planet/planet.factor
View File

@ -11,7 +11,7 @@ TUPLE: posting author title date link body ;
: fetch-feed ( pair -- feed )
second
dup "Fetching " diagnostic
dup news-get feed-entries
dup download-feed feed-entries
swap "Done fetching " diagnostic ;
: fetch-blogroll ( blogroll -- entries )
@ -130,9 +130,9 @@ SYMBOL: last-update
[ feed-entries ] map concat sort-entries ;
: planet-feed ( -- feed )
default-blogroll get [ second news-get ] map merge-feeds
default-blogroll get [ second download-feed ] map merge-feeds
>r "[ planet-factor ]" "http://planet.factorcode.org" r> <entry>
generate-atom ;
feed>xml ;
: feed.xml planet-feed ;