rss2.0-entry ( tag -- entry )

Vocabulary

syndication

Inputs

tag

an object

Outputs

entry

an object

Definition

USING: accessors combinators kernel urls xml.traversal ;

IN: syndication

: rss2.0-entry ( tag -- entry )
    <entry> swap {
        [ "title" tag-named ?children>string >>title ]
        [
            { "link" "guid" } any-tag-named
            ?children>string >url >>url
        ]
        [
            { "description" "encoded" } any-tag-named
            ?children>string >>description
        ]
        [
            { "date" "pubDate" } any-tag-named
            ?children>string try-parsing-timestamp >>date
        ]
    } cleave ;