From: bg66 <bg66>
Date: Thu, 9 Nov 2006 14:53:21 +0000 (+0000)
Subject: * mixi.el (mixi-object-owner): New accessor method.
X-Git-Tag: cache-file-branchpoint~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aeab5fdc66de698286691691dc2519bb37b7aae8;p=elisp%2Fmixi.git

* mixi.el (mixi-object-owner): New accessor method.
(mixi-object-time): Ditto.
(mixi-object-title): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index a55ef01..f4e7fc6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2006-11-09  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi.el (mixi-object-owner): New accessor method.
+	(mixi-object-time): Ditto.
+	(mixi-object-title): Ditto.
+
+2006-11-09  OHASHI Akira  <bg66@koka-in.org>
+
 	* mixi.el (mixi-make-friend-from-url): Support my object.
 	(mixi-make-object-from-url): Ditto.
 
@@ -21,13 +27,13 @@
 	(mixi-topic-url-regexp): Ditto.
 	(mixi-message-url-regexp): Ditto.
 	(mixi-community-url-regexp): Ditto.
-	(mixi-object-content): New function.
-	(mixi-make-object-from-url): Ditto.
+	(mixi-make-object-from-url): New function.
 	(mixi-make-friend-from-url): Ditto.
 	(mixi-make-diary-from-url): Ditto.
 	(mixi-make-community-from-url): Ditto.
 	(mixi-make-topic-from-url): Ditto.
 	(mixi-make-message-from-url): Ditto.
+	(mixi-object-content): New accessor method.
 
 2006-11-06  OHASHI Akira  <bg66@koka-in.org>
 
diff --git a/mixi.el b/mixi.el
index 95a1017..b01e5f6 100644
--- a/mixi.el
+++ b/mixi.el
@@ -459,6 +459,14 @@ Increase this value when unexpected error frequently occurs."
   (aref (cdr object) 0))
 (defalias 'mixi-object-realize-p 'mixi-object-timestamp)
 
+(defun mixi-object-owner (object)
+  "Return the owner of OBJECT."
+  (unless (mixi-object-p object)
+    (signal 'wrong-type-argument (list 'mixi-object-p object)))
+  (let ((func (intern (concat mixi-object-prefix
+			      (mixi-object-name object) "-owner"))))
+    (funcall func object)))
+
 (defun mixi-object-id (object)
   "Return the id of OBJECT."
   (unless (mixi-object-p object)
@@ -467,6 +475,22 @@ Increase this value when unexpected error frequently occurs."
 			      (mixi-object-name object) "-id"))))
     (funcall func object)))
 
+(defun mixi-object-time (object)
+  "Return the time of OBJECT."
+  (unless (mixi-object-p object)
+    (signal 'wrong-type-argument (list 'mixi-object-p object)))
+  (let ((func (intern (concat mixi-object-prefix
+			      (mixi-object-name object) "-time"))))
+    (funcall func object)))
+
+(defun mixi-object-title (object)
+  "Return the title of OBJECT."
+  (unless (mixi-object-p object)
+    (signal 'wrong-type-argument (list 'mixi-object-p object)))
+  (let ((func (intern (concat mixi-object-prefix
+			      (mixi-object-name object) "-title"))))
+    (funcall func object)))
+
 (defun mixi-object-content (object)
   "Return the content of OBJECT."
   (unless (mixi-object-p object)