rss1.0 ( xml -- feed )

Vocabulary

syndication

Inputs

xml

an object

Outputs

feed

an object

Definition

USING: accessors kernel sequences urls xml.traversal ;

IN: syndication

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