rss1.0-entry ( tag -- entry )

Vocabulary

syndication

Inputs

tag

an object

Outputs

entry

an object

Definition

USING: accessors combinators kernel urls xml.data xml.traversal
;

IN: syndication

: rss1.0-entry ( tag -- entry )
    <entry> swap {
        [ "title" tag-named children>string >>title ]
        [ "link" tag-named children>string >url >>url ]
        [
            "description" tag-named
            children>string >>description
        ]
        [
            f "date" "https://purl.org/dc/elements/1.1/" <name>
            tag-named dup
            [ children>string try-parsing-timestamp ] when
            >>date
        ]
    } cleave ;