Planet Factor RSS changes
parent
084f2bcec5
commit
53730a28c2
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue