From 247c11ee16944f2712d78aec6361c021e30ccf51 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Perrin?= Date: Wed, 2 Feb 2011 21:21:54 +0100 Subject: [PATCH] Re-order the arguments to `atom-create'. --- atom.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/atom.el b/atom.el index c73c7d9..7d70ac5 100644 --- a/atom.el +++ b/atom.el @@ -66,25 +66,25 @@ (require 'xml) -(defun atom-create (title link &optional author self updated id) +(defun atom-create (title link &optional self id author updated) "Create a new atom structure. TITLE is the title for the feed, a short, text-only, human readable string. -AUTHOR is the author of the feed. See `atom-massage-author' for -the possible ways to specify it. - -SELF is the canonical URL to this feed. - LINK is the URL of a page responible for the content of this feed. -UPDATED is the date the feed was last updated. If not given, -`(current-time)' is used. +SELF is the canonical URL to this feed. ID is a unique identifier for this feed. If not given, it -defaults to LINK." +defaults to LINK. + +AUTHOR is the author of the feed. See `atom-massage-author' for +the possible ways to specify it. + +UPDATED is the date the feed was last updated. If not given, +`(current-time)' is used." (let ((atom-feed (list (list 'title nil title)))) (atom-modify-entry atom-feed 'link `(((href . ,link)))) (atom-modify-entry atom-feed 'author (atom-massage-author author)) -- 2.43.0