rss2.0 ( xml -- feed )

Vocabulary

syndication

Inputs

xml

an object

Outputs

feed

an object

Definition

USING: accessors kernel sequences urls xml.traversal ;

IN: syndication

: rss2.0 ( xml -- feed )
    <feed> swap "channel" tag-named
    [ "title" tag-named children>string >>title ]
    [ "link" tag-named children>string >url >>url ]
    [ "item" tags-named [ rss2.0-entry ] map set-entries ] tri ;