* mixi-atom.el (mixi-atom-file): New use option.

(mixi-make-atom-file): Use it.

* mixi-atom.el (mixi-make-atom-file): Rename from
`mixi-atom-write-file'.

diff --git a/ChangeLog b/ChangeLog
index 0d89dd0..93274d3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2007-03-12  OHASHI Akira  <bg66@koka-in.org>
 
+       * mixi-atom.el (mixi-atom-file): New use option.
+       (mixi-make-atom-file): Use it.
+
+       * mixi-atom.el (mixi-make-atom-file): Rename from
+       `mixi-atom-write-file'.
+
+2007-03-12  OHASHI Akira  <bg66@koka-in.org>
+
        * mixi.el (mixi-login): Simplify.
 
 2007-03-07  OHASHI Akira  <bg66@koka-in.org>

diff --git a/mixi-atom.el b/mixi-atom.el
index 24a79e3..cfaaa4d 100644 (file)
--- a/mixi-atom.el
+++ b/mixi-atom.el
@@ -71,6 +71,11 @@ RANGE is the range for getting articles.  If RANGE is nil, get all articles."
                  (radio (integer :tag "Range")
                         (const :tag "All" nil)))))
 
+(defcustom mixi-atom-file "~/atom.xml"
+  "*File name for `mixi-make-atom-file'."
+  :group 'mixi
+  :type 'string)
+
 (defmacro mixi-atom-make-date (time)
   `(let ((date (format-time-string "%Y-%m-%dT%T%z" ,time)))
      (if (string-match "[+-][0-9][0-9][0-9][0-9]$" date)
@@ -141,11 +146,11 @@ RANGE is the range for getting articles.  If RANGE is nil, get all articles."
          "</feed>\n"))
 
 ;;;###autoload
-(defun mixi-atom-write-file (file)
+(defun mixi-make-atom-file ()
   (with-temp-buffer
     (mixi-make-atom)
     (let ((coding-system-for-write mixi-atom-coding-system)
-         (file (expand-file-name file)))
+         (file (expand-file-name mixi-atom-file)))
       (write-region (point-min) (point-max) file))))
 
 (provide 'mixi-atom)