atom1.0-entry ( tag -- entry )

Vocabulary

syndication

Inputs

tag

an object

Outputs

entry

an object

Definition

USING: accessors combinators kernel sequences strings
xml.traversal xml.writer ;

IN: syndication

: atom1.0-entry ( tag -- entry )
    <entry> swap {
        [ "title" tag-named children>string >>title ]
        [ atom-link >>url ]
        [
            { "content" "summary" } any-tag-named dup children>>
            [ string? not ] any?
            [ children>> xml>string ] [ children>string ] if
            >>description
        ]
        [
            { "published" "updated" "issued" "modified" }
            any-tag-named
            children>string try-parsing-timestamp >>date
        ]
    } cleave ;