:type 'string
:group 'mixi)
+(defcustom mixi-atom-file "~/atom.xml"
+ "*File name for `mixi-make-atom-file'."
+ :group 'mixi
+ :type 'string)
+
(defcustom mixi-atom-syndication-list
'((mixi-get-diaries . 10))
"*A list of atom syndication definition.
(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)
objects)
entries))
-;;;###autoload
(defun mixi-make-atom ()
"Make Atom Syndication Format"
- (insert "<?xml version=\"1.0\" encoding=\""
+ (concat "<?xml version=\"1.0\" encoding=\""
(symbol-name mixi-atom-coding-system) "\"?>\n"
"<feed xmlns=\"" mixi-atom-namespace "\">\n"
"\n"
"</feed>\n"))
;;;###autoload
-(defun mixi-make-atom-file ()
+(defun mixi-atom-cgi ()
+ (princ (concat "Content-Type: application/atom+xml; charset="
+ (symbol-name mixi-atom-coding-system) "\n"
+ "\n"
+ (encode-coding-string (mixi-make-atom)
+ mixi-atom-coding-system))))
+
+;;;###autoload
+(defun mixi-atom-file ()
(with-temp-buffer
- (mixi-make-atom)
+ (insert (mixi-make-atom))
(let ((coding-system-for-write mixi-atom-coding-system)
(file (expand-file-name mixi-atom-file)))
(write-region (point-min) (point-max) file))))