From aeab5fdc66de698286691691dc2519bb37b7aae8 Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 9 Nov 2006 14:53:21 +0000 Subject: [PATCH] * mixi.el (mixi-object-owner): New accessor method. (mixi-object-time): Ditto. (mixi-object-title): Ditto. --- ChangeLog | 10 ++++++++-- mixi.el | 24 ++++++++++++++++++++++++ 2 files changed, 32 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index a55ef01..f4e7fc6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2006-11-09 OHASHI Akira + * mixi.el (mixi-object-owner): New accessor method. + (mixi-object-time): Ditto. + (mixi-object-title): Ditto. + +2006-11-09 OHASHI Akira + * 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 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) -- 1.7.10.4