From: bg66 <bg66>
Date: Mon, 12 Mar 2007 08:27:21 +0000 (+0000)
Subject: * mixi-atom.el (mixi-atom-file): New use option.
X-Git-Tag: mixi-el-1_0_0~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=110f5b6db8998fd340ef2075e3d9794b2757c18a;p=elisp%2Fmixi.git

* 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
--- 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
--- 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)