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