     [ "link" tag-named ] keep
     [ "guid" tag-named dupd ? children>string ] keep
     [ "description" tag-named children>string ] keep
-    "pubDate" tag-named children>string <entry> ;
+    "pubDate" tag-named children>string rfc3339>timestamp <entry> ;
 
 : rss2.0 ( xml -- feed )
     "channel" tag-named 


: download-feed ( url -- feed )
    #! Retrieve an news syndication file, return as a feed tuple.
    http-get-stream rot success? [
        nip read-feed
    ] [
        2drop "Error retrieving newsfeed file" throw
    ] if ;

! Atom generation

    "entry" [
        dup entry-title "title" { { "type" "html" } } simple-tag*,
        "link" over entry-link "href" associate contained*,
        dup entry-pub-date timestamp>rfc3339 "published" simple-tag,
        entry-description [ "content" { { "type" "html" } } simple-tag*, ] when*
    ] tag, ;

