atom1.0 ( xml -- feed )


Vocabulary
syndication

Inputs
xmlan object


Outputs
feedan object


Definition
USING: accessors kernel sequences xml.traversal ;

IN: syndication

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