Doug Coleman 2007-12-04 21:34:37 -06:00
commit 8df1ad1380
2 changed files with 4 additions and 4 deletions

View File

@ -99,5 +99,5 @@ C: <entry> entry
feed-entries [ entry, ] each feed-entries [ entry, ] each
] make-xml* ; ] make-xml* ;
: write-feed ( feed -- xml ) : write-feed ( feed -- )
feed>xml write-xml ; feed>xml write-xml ;

View File

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