- "2024-04-23T01:02:03+04:00" ; updated
- (atom-generate-id "http://example.org/text" (current-time)))))
+ (list :updated (atom-parse-time "2024-03-23T01:02:04+0400")
+ :summary "summary"))
+ (atom-add-html-entry
+ my-atom-feed
+ "A HTLM entry"
+ "http://example.org/html"
+ "<p>Some text</p>"
+ (list :updated (atom-parse-time "2024-03-23T01:02:05+04:00")
+ :summary "<p>summary...</p>"))
+ (atom-add-xhtml-entry
+ my-atom-feed
+ "A XHTML entry"
+ "http://example.org/xhtml"
+ "<p>Some text</p>"
+ (list :updated (atom-parse-time "2024-03-23T01:02:06+04:00")
+ :summary "<p>summary...</p>"))
+
+ (atom-print my-atom-feed)
+ (atom-print-as-rss my-atom-feed)))