- `((title nil ,title)
- (link ((href . ,link)))
- ,(atom-massage-author author)
- (updated nil ,(atom-format-time updated))
- (id nil ,(or id link))))
+ (let ((atom-feed (list (list 'title nil title))))
+ (atom-modify-entry atom-feed 'link (list (list (cons 'href link))))
+ (atom-modify-entry atom-feed 'author (atom-massage-author author))
+ (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 link))
+ atom-feed))