From fe22008840ed2bf8dc2e34b78732e8f29a0bbd2b Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 19 Dec 2006 12:38:42 +0000 Subject: [PATCH] * mixi.el (mixi-object-realized-p): Rename from `mixi-object-realize-p'. (mixi-realize-friend): Rename from `mixi-friend-realize'. (mixi-friend-nick): Follow the change above. (mixi-friend-name): Ditto. (mixi-friend-sex): Ditto. (mixi-friend-address): Ditto. (mixi-friend-age): Ditto. (mixi-friend-birthday): Ditto. (mixi-friend-blood-type): Ditto. (mixi-friend-birthplace): Ditto. (mixi-friend-hobby): Ditto. (mixi-friend-job): Ditto. (mixi-friend-organization): Ditto. (mixi-friend-profile): Ditto. (mixi-realize-diary): Rename from `mixi-diary-realize'. (mixi-diary-time): Follow the change above. (mixi-diary-title): Ditto. (mixi-diary-content): Ditto. (mixi-realize-community): Rename from `mixi-community-realize'. (mixi-community-name): Follow the change above. (mixi-community-birthday): Ditto. (mixi-community-owner): Ditto. (mixi-community-category): Ditto. (mixi-community-members): Ditto. (mixi-community-open-level): Ditto. (mixi-community-authority): Ditto. (mixi-community-description): Ditto. (mixi-realize-topic): Rename from `mixi-topic-realize'. (mixi-topic-time): Follow the change above. (mixi-topic-title): Ditto. (mixi-topic-owner): Ditto. (mixi-topic-content): Ditto. (mixi-realize-event): Rename from `mixi-event-realize'. (mixi-event-time): Follow the change above. (mixi-event-title): Ditto. (mixi-event-owner): Ditto. (mixi-event-date): Ditto. (mixi-event-place): Ditto. (mixi-event-detail): Ditto. (mixi-event-limit): Ditto. (mixi-event-members): Ditto. (mixi-realize-message): Rename from `mixi-message-realize'. (mixi-message-owner): Follow the change above. (mixi-message-title): Ditto. (mixi-message-time): Ditto. (mixi-message-content): Ditto. --- ChangeLog | 50 +++++++++++++++++++++++++++++ mixi.el | 104 ++++++++++++++++++++++++++++++------------------------------- 2 files changed, 102 insertions(+), 52 deletions(-) diff --git a/ChangeLog b/ChangeLog index 052b29a..9c6f0e6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,55 @@ 2006-12-19 OHASHI Akira + * mixi.el (mixi-object-realized-p): Rename from + `mixi-object-realize-p'. + (mixi-realize-friend): Rename from `mixi-friend-realize'. + (mixi-friend-nick): Follow the change above. + (mixi-friend-name): Ditto. + (mixi-friend-sex): Ditto. + (mixi-friend-address): Ditto. + (mixi-friend-age): Ditto. + (mixi-friend-birthday): Ditto. + (mixi-friend-blood-type): Ditto. + (mixi-friend-birthplace): Ditto. + (mixi-friend-hobby): Ditto. + (mixi-friend-job): Ditto. + (mixi-friend-organization): Ditto. + (mixi-friend-profile): Ditto. + (mixi-realize-diary): Rename from `mixi-diary-realize'. + (mixi-diary-time): Follow the change above. + (mixi-diary-title): Ditto. + (mixi-diary-content): Ditto. + (mixi-realize-community): Rename from `mixi-community-realize'. + (mixi-community-name): Follow the change above. + (mixi-community-birthday): Ditto. + (mixi-community-owner): Ditto. + (mixi-community-category): Ditto. + (mixi-community-members): Ditto. + (mixi-community-open-level): Ditto. + (mixi-community-authority): Ditto. + (mixi-community-description): Ditto. + (mixi-realize-topic): Rename from `mixi-topic-realize'. + (mixi-topic-time): Follow the change above. + (mixi-topic-title): Ditto. + (mixi-topic-owner): Ditto. + (mixi-topic-content): Ditto. + (mixi-realize-event): Rename from `mixi-event-realize'. + (mixi-event-time): Follow the change above. + (mixi-event-title): Ditto. + (mixi-event-owner): Ditto. + (mixi-event-date): Ditto. + (mixi-event-place): Ditto. + (mixi-event-detail): Ditto. + (mixi-event-limit): Ditto. + (mixi-event-members): Ditto. + (mixi-realize-message): Rename from `mixi-message-realize'. + (mixi-message-owner): Follow the change above. + (mixi-message-title): Ditto. + (mixi-message-time): Ditto. + (mixi-message-content): Ditto. + +2006-12-19 OHASHI Akira + * sb-mixi.el (shimbun-mixi-comment-article): Rename from `shimbun-comment-article'. (shimbun-article): Follow the change above. diff --git a/mixi.el b/mixi.el index 1065664..b66dd8f 100644 --- a/mixi.el +++ b/mixi.el @@ -451,7 +451,7 @@ Increase this value when unexpected error frequently occurs." (unless (mixi-object-p object) (signal 'wrong-type-argument (list 'mixi-object-p object))) (aref (cdr object) 0)) -(defalias 'mixi-object-realize-p 'mixi-object-timestamp) +(defalias 'mixi-object-realized-p 'mixi-object-timestamp) (defun mixi-object-owner (object) "Return the owner of OBJECT." @@ -701,10 +701,10 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-friend-profile-regexp "¼«¸Ê¾Ò²ð\n\\(.+\\)") -(defun mixi-friend-realize (friend) +(defun mixi-realize-friend (friend) "Realize a FRIEND." ;; FIXME: Check a expiration of cache? - (unless (mixi-object-realize-p friend) + (unless (mixi-object-realized-p friend) (let (buf) (with-mixi-retrieve (mixi-friend-page friend) (setq buf buffer)) @@ -759,84 +759,84 @@ Increase this value when unexpected error frequently occurs." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (unless (aref (cdr friend) 2) - (mixi-friend-realize friend)) + (mixi-realize-friend friend)) (aref (cdr friend) 2)) (defun mixi-friend-name (friend) "Return the name of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 3)) (defun mixi-friend-sex (friend) "Return the sex of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 4)) (defun mixi-friend-address (friend) "Return the address of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 5)) (defun mixi-friend-age (friend) "Return the age of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 6)) (defun mixi-friend-birthday (friend) "Return the birthday of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 7)) (defun mixi-friend-blood-type (friend) "Return the blood type of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 8)) (defun mixi-friend-birthplace (friend) "Return the birthplace of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 9)) (defun mixi-friend-hobby (friend) "Return the hobby of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 10)) (defun mixi-friend-job (friend) "Return the job of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 11)) (defun mixi-friend-organization (friend) "Return the organization of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 12)) (defun mixi-friend-profile (friend) "Return the pforile of FRIEND." (unless (mixi-friend-p friend) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) - (mixi-friend-realize friend) + (mixi-realize-friend friend) (aref (cdr friend) 13)) (defun mixi-friend-set-nick (friend nick) @@ -1050,10 +1050,10 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-diary-content-regexp "\\(.*\\)") -(defun mixi-diary-realize (diary) +(defun mixi-realize-diary (diary) "Realize a DIARY." ;; FIXME: Check a expiration of cache? - (unless (mixi-object-realize-p diary) + (unless (mixi-object-realized-p diary) (with-mixi-retrieve (mixi-diary-page diary) (unless (string-match mixi-diary-closed-regexp buffer) (if (string-match mixi-diary-owner-nick-regexp buffer) @@ -1092,21 +1092,21 @@ Increase this value when unexpected error frequently occurs." "Return the time of DIARY." (unless (mixi-diary-p diary) (signal 'wrong-type-argument (list 'mixi-diary-p diary))) - (mixi-diary-realize diary) + (mixi-realize-diary diary) (aref (cdr diary) 3)) (defun mixi-diary-title (diary) "Return the title of DIARY." (unless (mixi-diary-p diary) (signal 'wrong-type-argument (list 'mixi-diary-p diary))) - (mixi-diary-realize diary) + (mixi-realize-diary diary) (aref (cdr diary) 4)) (defun mixi-diary-content (diary) "Return the content of DIARY." (unless (mixi-diary-p diary) (signal 'wrong-type-argument (list 'mixi-diary-p diary))) - (mixi-diary-realize diary) + (mixi-realize-diary diary) (aref (cdr diary) 5)) (defun mixi-diary-set-time (diary time) @@ -1239,10 +1239,10 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-community-description-regexp "\\(.+\\)") -(defun mixi-community-realize (community) +(defun mixi-realize-community (community) "Realize a COMMUNITY." ;; FIXME: Check a expiration of cache? - (unless (mixi-object-realize-p community) + (unless (mixi-object-realized-p community) (with-mixi-retrieve (mixi-community-page community) (if (string-match mixi-community-nodata-regexp buffer) ;; FIXME: Set all members? @@ -1293,56 +1293,56 @@ Increase this value when unexpected error frequently occurs." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) (unless (aref (cdr community) 2) - (mixi-community-realize community)) + (mixi-realize-community community)) (aref (cdr community) 2)) (defun mixi-community-birthday (community) "Return the birthday of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 3)) (defun mixi-community-owner (community) "Return the owner of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 4)) (defun mixi-community-category (community) "Return the category of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 5)) (defun mixi-community-members (community) "Return the members of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 6)) (defun mixi-community-open-level (community) "Return the open-level of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 7)) (defun mixi-community-authority (community) "Return the authority of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 8)) (defun mixi-community-description (community) "Return the description of COMMUNITY." (unless (mixi-community-p community) (signal 'wrong-type-argument (list 'mixi-community-p community))) - (mixi-community-realize community) + (mixi-realize-community community) (aref (cdr community) 9)) (defun mixi-community-set-name (community name) @@ -1487,10 +1487,10 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-topic-content-regexp "
\\(\n\\)*
\\(.+\\)
") -(defun mixi-topic-realize (topic) +(defun mixi-realize-topic (topic) "Realize a TOPIC." ;; FIXME: Check a expiration of cache? - (unless (mixi-object-realize-p topic) + (unless (mixi-object-realized-p topic) (with-mixi-retrieve (mixi-topic-page topic) (if (string-match mixi-topic-community-regexp buffer) (mixi-community-set-name (mixi-topic-community topic) @@ -1533,28 +1533,28 @@ Increase this value when unexpected error frequently occurs." "Return the time of TOPIC." (unless (mixi-topic-p topic) (signal 'wrong-type-argument (list 'mixi-topic-p topic))) - (mixi-topic-realize topic) + (mixi-realize-topic topic) (aref (cdr topic) 3)) (defun mixi-topic-title (topic) "Return the title of TOPIC." (unless (mixi-topic-p topic) (signal 'wrong-type-argument (list 'mixi-topic-p topic))) - (mixi-topic-realize topic) + (mixi-realize-topic topic) (aref (cdr topic) 4)) (defun mixi-topic-owner (topic) "Return the owner of TOPIC." (unless (mixi-topic-p topic) (signal 'wrong-type-argument (list 'mixi-topic-p topic))) - (mixi-topic-realize topic) + (mixi-realize-topic topic) (aref (cdr topic) 5)) (defun mixi-topic-content (topic) "Return the content of TOPIC." (unless (mixi-topic-p topic) (signal 'wrong-type-argument (list 'mixi-topic-p topic))) - (mixi-topic-realize topic) + (mixi-realize-topic topic) (aref (cdr topic) 6)) (defun mixi-topic-set-time (topic time) @@ -1643,10 +1643,10 @@ Increase this value when unexpected error frequently occurs."  \\(.+\\)") -(defun mixi-event-realize (event) +(defun mixi-realize-event (event) "Realize a EVENT." ;; FIXME: Check a expiration of cache? - (unless (mixi-object-realize-p event) + (unless (mixi-object-realized-p event) (with-mixi-retrieve (mixi-event-page event) (if (string-match mixi-event-community-regexp buffer) (mixi-community-set-name (mixi-event-community event) @@ -1703,56 +1703,56 @@ Increase this value when unexpected error frequently occurs." "Return the time of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 3)) (defun mixi-event-title (event) "Return the title of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 4)) (defun mixi-event-owner (event) "Return the owner of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 5)) (defun mixi-event-date (event) "Return the date of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 6)) (defun mixi-event-place (event) "Return the place of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 7)) (defun mixi-event-detail (event) "Return the detail of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 8)) (defun mixi-event-limit (event) "Return the limit of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 9)) (defun mixi-event-members (event) "Return the members of EVENT." (unless (mixi-event-p event) (signal 'wrong-type-argument (list 'mixi-event-p event))) - (mixi-event-realize event) + (mixi-realize-event event) (aref (cdr event) 10)) (defun mixi-event-set-time (event time) @@ -2113,9 +2113,9 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-message-content-regexp "\\(.+\\)") -(defun mixi-message-realize (message) +(defun mixi-realize-message (message) "Realize a MESSAGE." - (unless (mixi-object-realize-p message) + (unless (mixi-object-realized-p message) (with-mixi-retrieve (mixi-message-page message) (if (string-match mixi-message-owner-regexp buffer) (mixi-message-set-owner message @@ -2154,28 +2154,28 @@ Increase this value when unexpected error frequently occurs." "Return the owner of MESSAGE." (unless (mixi-message-p message) (signal 'wrong-type-argument (list 'mixi-message-p message))) - (mixi-message-realize message) + (mixi-realize-message message) (aref (cdr message) 3)) (defun mixi-message-title (message) "Return the title of MESSAGE." (unless (mixi-message-p message) (signal 'wrong-type-argument (list 'mixi-message-p message))) - (mixi-message-realize message) + (mixi-realize-message message) (aref (cdr message) 4)) (defun mixi-message-time (message) "Return the date of MESSAGE." (unless (mixi-message-p message) (signal 'wrong-type-argument (list 'mixi-message-p message))) - (mixi-message-realize message) + (mixi-realize-message message) (aref (cdr message) 5)) (defun mixi-message-content (message) "Return the content of MESSAGE." (unless (mixi-message-p message) (signal 'wrong-type-argument (list 'mixi-message-p message))) - (mixi-message-realize message) + (mixi-realize-message message) (aref (cdr message) 6)) (defun mixi-message-set-owner (message owner) -- 1.7.10.4