- (atom-modify-entry atom-feed 'author (atom-massage-author author))
- (if subtitle (atom-modify-entry atom-feed 'subtitle subtitle))
- (if self (atom-modify-entry atom-feed 'link
- `(((href . ,self) (rel . "self")
- (type . "application/atom+xml")))))
- (atom-modify-entry atom-feed 'updated (atom-format-time updated))
- (atom-modify-entry atom-feed 'id (or id self link))
+ (atom-modify-entry atom-feed 'author (atom-massage-author (plist-get props :author)))
+ (if (plist-member props :subtitle)
+ (atom-modify-entry atom-feed 'subtitle (plist-get props :subtitle)))
+ (if (plist-member props :self)
+ (atom-modify-entry atom-feed 'link
+ `(((href . ,(plist-get props :self)) (rel . "self")
+ (type . "application/atom+xml")))))
+ (atom-modify-entry atom-feed 'updated (atom-format-time (plist-get props :updated)))
+ (atom-modify-entry atom-feed 'id (or (plist-get props :id) (plist-get props :self) link))