"http://example.org/text"
"Some text"
(list :updated (atom-parse-time "2024-03-23T01:02:04+0400")
- :summary "summary"))
+ :published (atom-parse-time "2024-03-23T01:02:04+0400")
+ :summary "Summary"))
(atom-add-html-entry
my-atom-feed
"A HTLM entry"
- :summary, if is not given, the entry will not contain any summary.
-- :updated defaults to `(current-time)' if omitted, which is
-probably not a very good default.
+- :updated defaults to `(current-time)'.
- :published, if given, is the earliest availability of the
entry. It is optional, and shouldn't change even if the entry
(atom-modify-entry entry 'link (list (list (cons 'href link))))
(atom-modify-entry entry 'id (or (plist-get props :id) link))
(atom-modify-entry entry 'updated (atom-format-time (plist-get props :updated)))
+ (if (plist-member props :published)
+ (atom-modify-entry entry 'published (atom-format-time (plist-get props :published))))
(if (plist-member props :summary)
(atom-modify-entry entry 'summary (plist-get props :summary)))
(atom-modify-entry entry 'content content)