X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mixi-atom.el;h=cfaaa4d90dd538a3528db90386d401997616d843;hb=110f5b6db8998fd340ef2075e3d9794b2757c18a;hp=24a79e36bac8726faed84f33e04ef17aa725c8ee;hpb=f09e1c6a40f43817169f2fe780f5461eed3858fa;p=elisp%2Fmixi.git

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)