From: bg66 <bg66>
Date: Tue, 5 Aug 2008 10:11:09 +0000 (+0000)
Subject: (mixi-make-title): Support echo object.
X-Git-Tag: mixi-el-1_5_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=606eca34802184643a873d304c27abe8b0625304;p=elisp%2Fmixi.git

(mixi-make-title): Support echo object.
(mixi-make-time): New function.
(mixi-make-date): Use it.
(mixi-make-id-1): Support echo object.
(mixi-make-tag-uri): Ditto.
(mixi-make-url): Ditto.
(mixi-make-reply-to): Ditto.
(mixi-send-mail): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 286fb9e..db26fc7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2008-08-05  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi-utils.el (mixi-make-title): Support echo object.
+	(mixi-make-time): New function.
+	(mixi-make-date): Use it.
+	(mixi-make-id-1): Support echo object.
+	(mixi-make-tag-uri): Ditto.
+	(mixi-make-url): Ditto.
+	(mixi-make-reply-to): Ditto.
+	(mixi-send-mail): Ditto.
+
 	* mixi.el (mixi-echo-cache): New variable.
 	(mixi-make-echo): New function.
 	(mixi-echo-url-regexp): New constant.
diff --git a/mixi-utils.el b/mixi-utils.el
index aad03b8..1ac5a4c 100644
--- a/mixi-utils.el
+++ b/mixi-utils.el
@@ -62,6 +62,9 @@
 			   (mixi-comment-parent object) add-parent)))
 	  ((eq class 'mixi-log)
 	   (mixi-friend-nick (mixi-log-friend object)))
+	  ((eq class 'mixi-echo)
+	   (concat (mixi-friend-nick (mixi-echo-owner object)) " ("
+		   (mixi-echo-post-time object) ")"))
 	  (t
 	   (let ((prefix (when (eq class 'mixi-event) "[¥¤¥Ù¥ó¥È]"))
 		 (subject (mixi-object-title object))
@@ -95,8 +98,21 @@
 			  (mixi-object-owner object))))
 	     (mixi-friend-nick owner))))))
 
+(defun mixi-make-time (object)
+  (with-mixi-class object
+    (if (eq class 'mixi-echo)
+	(let ((post-time (mixi-echo-post-time object)))
+	  (encode-time
+	   (string-to-number (substring post-time 12 14))
+	   (string-to-number (substring post-time 10 12))
+	   (string-to-number (substring post-time 8 10))
+	   (string-to-number (substring post-time 6 8))
+	   (string-to-number (substring post-time 4 6))
+	   (string-to-number (substring post-time 0 4))))
+      (mixi-object-time object))))
+
 (defun mixi-make-date (object)
-  (let* ((time (mixi-object-time object))
+  (let* ((time (mixi-make-time object))
 	 (cts (current-time-string time))
 	 (day-of-week (substring cts 0 3))
 	 (month (substring cts 4 7)))
@@ -108,7 +124,7 @@
 (defun mixi-make-id-1 (object)
   (with-mixi-class object
     (concat
-     (format-time-string "%Y%m%d%H%M" (mixi-object-time object)) "."
+     (format-time-string "%Y%m%d%H%M" (mixi-make-time object)) "."
      (cond ((eq class 'mixi-comment)
 	    (concat (mixi-friend-id (mixi-comment-owner object)) "@"
 		    (mixi-object-id (mixi-comment-parent object)) "."
@@ -118,6 +134,8 @@
 	    (concat (mixi-friend-id (mixi-log-friend object)) "@"))
 	   ((eq class 'mixi-release)
 	    (concat (md5 (mixi-release-title object)) "@"))
+	   ((eq class 'mixi-echo)
+	    (concat (mixi-friend-id (mixi-echo-owner object)) "@"))
 	   (t
 	    (concat (mixi-object-id object) "@"
 		    (if (eq class 'mixi-news)
@@ -130,7 +148,7 @@
 
 (defun mixi-make-tag-uri (object)
   (format "tag:mixi.jp,%s:%s"
-	  (format-time-string "%Y-%m-%d" (mixi-object-time object))
+	  (format-time-string "%Y-%m-%d" (mixi-make-time object))
 	  (mixi-make-id-1 object)))
 
 (defun mixi-make-url (object)
@@ -155,7 +173,9 @@
 	  ((eq class 'mixi-log)
 	   (mixi-expand-url (mixi-friend-page (mixi-log-friend object))))
 	  ((eq class 'mixi-friend)
-	   (mixi-expand-url (mixi-friend-page object))))))
+	   (mixi-expand-url (mixi-friend-page object)))
+	  ((eq class 'mixi-echo)
+	   (mixi-expand-url (mixi-echo-page object))))))
 
 (defun mixi-make-encoded-url (object)
   (mixi-url-encode-string (mixi-make-url object)))
@@ -249,6 +269,10 @@
 		 ((or (eq class 'mixi-friend) (eq class 'mixi-log))
 		  (concat mixi-reply-to "message;"
 			  (mixi-friend-id object)))
+		 ((eq class 'mixi-echo)
+		  (concat mixi-reply-to "echo;"
+			  (mixi-friend-id (mixi-echo-owner object)) ";"
+			  (mixi-echo-post-time object)))
 		 (t
 		  (concat mixi-reply-to "diary")))))))
 
@@ -277,7 +301,13 @@
 	     (mixi-post-diary title content))
 	    ((string= method "message")
 	     (mixi-post-message (mixi-make-friend (match-string 2 to))
-				title content))))))
+				title content))
+	    ((string= method "echo")
+	     (let ((owner-id (match-string 2 to))
+		   (post-time (match-string 3 to)))
+	       (mixi-post-echo content
+			       (mixi-make-echo (mixi-make-friend owner-id)
+					       post-time))))))))
 
 (provide 'mixi-utils)