X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mixi.el;h=8d52aa33ac43a575cffe7197d386185f112528d7;hb=1b6c1fb55da90b146674304d55e01f591c2a6bbf;hp=b66dd8fdaded0d51d48faaaad1e8f1b79eac5bb9;hpb=fe22008840ed2bf8dc2e34b78732e8f29a0bbd2b;p=elisp%2Fmixi.git diff --git a/mixi.el b/mixi.el index b66dd8f..8d52aa3 100644 --- a/mixi.el +++ b/mixi.el @@ -41,6 +41,14 @@ ;; * mixi-get-new-comments ;; * mixi-get-messages ;; * mixi-get-introductions +;; * mixi-get-news +;; +;; API for posting: +;; +;; * mixi-post-diary +;; * mixi-post-topic +;; * mixi-post-comment +;; * mixi-post-message ;; ;; Utilities: ;; @@ -111,6 +119,17 @@ (eval-when-compile (require 'cl)) +;; Functions and variables which should be defined in the other module +;; at run-time. +(eval-when-compile + (defvar w3m-use-cookies) + (defvar url-request-method) + (defvar url-request-data) + (defvar url-request-extra-headers) + (autoload 'w3m-decode-buffer "w3m") + (autoload 'w3m-retrieve "w3m") + (autoload 'url-retrieve-synchronously "url")) + (defgroup mixi nil "API library for accessing to mixi." :group 'hypermedia) @@ -141,27 +160,32 @@ :type 'file :group 'mixi) -(defcustom mixi-retrieve-function +(defcustom mixi-backend (or (condition-case nil (progn - (require 'url) - (if (fboundp 'url-retrieve-synchronously) - 'mixi-url-retrieve)) + (require 'w3m) + 'w3m) (error)) (condition-case nil (progn - (require 'w3m) - 'mixi-w3m-retrieve) + (require 'url) + (if (fboundp 'url-retrieve-synchronously) + 'url)) (error)) (if (and (fboundp 'executable-find) (executable-find mixi-curl-program)) - 'mixi-curl-retrieve) - (error "Can't set `mixi-retrieve-function'")) - "*The function for retrieving." - :type '(radio (const :tag "Using url" mixi-url-retrieve) - (const :tag "Using w3m" mixi-w3m-retrieve) - (const :tag "Using curl" mixi-curl-retrieve) - (function :format "Other function: %v\n" :size 0)) + 'curl) + (error "Cannot set `mixi-backend'.")) + "*The backend for accessing to mixi." + :type '(radio (const :tag "Use emacs-w3m" w3m) + (const :tag "Use url.el" url) + (const :tag "Use curl" curl) + (symbol :tag "The other backend")) + :group 'mixi) + +(defcustom mixi-login-use-ssl nil + "*If non-ni, login using SSL." + :type 'boolean :group 'mixi) (defcustom mixi-default-email nil @@ -206,6 +230,29 @@ Increase this value when unexpected error frequently occurs." (defmacro mixi-message (&rest strings) `(concat "[mixi] " ,@strings)) +(put 'mixi-realization-error + 'error-message (mixi-message "Cannot realize object")) +(put 'mixi-realization-error + 'error-conditions '(mixi-realization-error error)) + +(put 'mixi-post-error + 'error-message (mixi-message "Cannot post")) +(put 'mixi-post-error + 'error-conditions '(mixi-post-error error)) + +(defmacro mixi-realization-error (type object) + `(let ((data (if debug-on-error + (list ,type ,object (buffer-string)) + (list ,type ,object)))) + (signal 'mixi-realization-error data))) + +(defmacro mixi-post-error (type &optional object) + `(let ((data (when debug-on-error (list (buffer-string))))) + (if ,object + (setq data (cons ,type (cons ,object data))) + (setq data (cons ,type data))) + (signal 'mixi-post-error data))) + (defconst mixi-message-adult-contents "¤³¤Î¥Ú¡¼¥¸¤«¤éÀè¤Ï¥¢¥À¥ë¥È¡ÊÀ®¿Í¸þ¤±¡Ë¥³¥ó¥Æ¥ó¥Ä¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£
±ÜÍ÷¤ËƱ°Õ¤µ¤ì¤¿Êý¤Î¤ß¡¢Àè¤Ø¤ª¿Ê¤ß¤¯¤À¤µ¤¤¡£") @@ -219,7 +266,12 @@ Increase this value when unexpected error frequently occurs." ¤»¤ó¤¬¡¢¤·¤Ð¤é¤¯¤Î´Ö¤ªÂÔ¤Á¤¯¤À¤µ¤¤¡£") (defmacro mixi-retrieve (url &optional post-data) - `(funcall mixi-retrieve-function ,url ,post-data)) + `(funcall (intern (concat "mixi-" (symbol-name mixi-backend) "-retrieve")) + ,url ,post-data)) + +(defmacro mixi-post-form (url fields) + `(funcall (intern (concat "mixi-" (symbol-name mixi-backend) "-post-form")) + ,url ,fields)) (defun mixi-parse-buffer (url buffer &optional post-data) (when (string-match mixi-message-adult-contents buffer) @@ -236,19 +288,32 @@ Increase this value when unexpected error frequently occurs." (mixi-retrieve url post-data))) (defmacro mixi-expand-url (url) - `(if (string-match (concat "^" mixi-url) ,url) + `(if (string-match "^http" ,url) ,url (concat mixi-url ,url))) -(defun mixi-url-retrieve (url &optional post-data) +;; FIXME: Support file, checkbox and so on. +(defun mixi-make-form-data (fields) + "Make form data and return (CONTENT-TYPE . FORM-DATA)." + (let* ((boundary (apply 'format "--_%d_%d_%d" (current-time))) + (content-type (concat "multipart/form-data; boundary=" boundary)) + (form-data + (mapconcat + (lambda (field) + (concat "--" boundary "\r\n" + "Content-Disposition: form-data; name=\"" + (car field) "\"\r\n" + "\r\n" + (encode-coding-string (cdr field) mixi-coding-system))) + fields "\r\n"))) + (cons content-type (concat form-data "\r\n--" boundary "--")))) + +(defun mixi-url-retrieve (url &optional post-data extra-headers) "Retrieve the URL and return gotten strings." - (if post-data - (progn - (setq url-request-method "POST") - (setq url-request-data post-data)) - (setq url-request-method "GET") - (setq url-request-data nil)) - (let* ((url (mixi-expand-url url)) + (let* ((url-request-method (if post-data "POST" "GET")) + (url-request-data post-data) + (url-request-extra-headers extra-headers) + (url (mixi-expand-url url)) (buffer (url-retrieve-synchronously url)) ret) (unless (bufferp buffer) @@ -264,6 +329,11 @@ Increase this value when unexpected error frequently occurs." (kill-buffer buffer) (mixi-parse-buffer url ret post-data)))) +(defun mixi-url-post-form (url fields) + (let* ((form-data (mixi-make-form-data fields)) + (extra-headers `(("Content-Type" . ,(car form-data))))) + (mixi-url-retrieve url (cdr form-data) extra-headers))) + (defun mixi-w3m-retrieve (url &optional post-data) "Retrieve the URL and return gotten strings." (let ((url (mixi-expand-url url))) @@ -274,6 +344,10 @@ Increase this value when unexpected error frequently occurs." (let ((ret (buffer-substring-no-properties (point-min) (point-max)))) (mixi-parse-buffer url ret post-data)))))) +(defun mixi-w3m-post-form (url fields) + (let ((form-data (mixi-make-form-data fields))) + (mixi-w3m-retrieve url form-data))) + (defun mixi-curl-retrieve (url &optional post-data) "Retrieve the URL and return gotten strings." (with-temp-buffer @@ -315,60 +389,83 @@ Increase this value when unexpected error frequently occurs." (defun mixi-login (&optional email password) "Login to mixi." - (when (and (eq mixi-retrieve-function 'mixi-w3m-retrieve) - (not w3m-use-cookies)) + (when (and (eq mixi-backend 'w3m) (not w3m-use-cookies)) (error (mixi-message "Require to accept cookies. Please set " "`w3m-use-cookies' to t."))) (let ((email (or email mixi-default-email (read-from-minibuffer (mixi-message "Login Email: ")))) (password (or password mixi-default-password (read-passwd (mixi-message "Login Password: "))))) - (let ((buffer (mixi-retrieve "/login.pl" - (concat "email=" email - "&password=" password - "&next_url=/home.pl" - "&sticky=on")))) - (unless (string-match "url=/check\\.pl\\?n=" buffer) - (error (mixi-message "Cannot login"))) - (setq buffer (mixi-retrieve "/check.pl?n=home.pl")) - (if (string-match mixi-my-id-regexp buffer) - (setq mixi-me (mixi-make-friend (match-string 1 buffer))) - (error (mixi-message "Cannot login")))))) + (let ((url "/login.pl")) + (when mixi-login-use-ssl + (setq url (concat "https://mixi.jp" url))) + (let ((buffer (mixi-retrieve url + (concat "email=" email + "&password=" password + "&next_url=/home.pl" + "&sticky=on")))) + (unless (string-match "url=/check\\.pl\\?n=" buffer) + (error (mixi-message "Cannot login"))) + (setq buffer (mixi-retrieve "/check.pl?n=home.pl")) + (if (string-match mixi-my-id-regexp buffer) + (setq mixi-me (mixi-make-friend (match-string 1 buffer))) + (error (mixi-message "Cannot login"))))))) (defun mixi-logout () (mixi-retrieve "/logout.pl")) (defmacro with-mixi-retrieve (url &rest body) - `(let (buffer) - (when ,url - (setq buffer (mixi-retrieve ,url)) - (when (string-match "login.pl" buffer) + `(when ,url + (with-temp-buffer + (insert (mixi-retrieve ,url)) + (goto-char (point-min)) + (when (search-forward + "
" nil t) (mixi-login) - (setq buffer (mixi-retrieve ,url)))) - ,@body)) + (erase-buffer) + (insert (mixi-retrieve ,url)) + (goto-char (point-min))) + ,@body))) (put 'with-mixi-retrieve 'lisp-indent-function 'defun) -(put 'with-mixi-retrieve 'edebug-form-spec '(form body)) - -(defun mixi-get-matched-items (url regexp &optional range) +(put 'with-mixi-retrieve 'edebug-form-spec '(body)) + +(defmacro with-mixi-post-form (url fields &rest body) + `(when ,url + (with-temp-buffer + (insert (mixi-post-form ,url ,fields)) + (goto-char (point-min)) + (when (search-forward + "" nil t) + (mixi-login) + (erase-buffer) + (insert (mixi-post-form ,url ,fields)) + (goto-char (point-min))) + ,@body))) +(put 'with-mixi-post-form 'lisp-indent-function 'defun) +(put 'with-mixi-post-form 'edebug-form-spec '(body)) + +(defun mixi-get-matched-items (url regexp &optional range reverse) "Get matched items to REGEXP in URL." (let ((page 1) ids) (catch 'end (while (or (null range) (< (length ids) range)) (with-mixi-retrieve (format url page) - (let ((pos 0) + (let ((func (if reverse (progn + (goto-char (point-max)) + 're-search-backward) + 're-search-forward)) found) - (while (and (string-match regexp buffer pos) + (while (and (funcall func regexp nil t) (or (null range) (< (length ids) range))) (let ((num 1) list) - (while (match-string num buffer) - (setq list (cons (match-string num buffer) list)) + (while (match-string num) + (setq list (cons (match-string num) list)) (incf num)) (when (not (member (reverse list) ids)) (setq found t) - (setq ids (cons (reverse list) ids))) - (setq pos (match-end (1- num))))) + (setq ids (cons (reverse list) ids))))) (when (not found) (throw 'end ids)))) (incf page))) @@ -567,27 +664,28 @@ Increase this value when unexpected error frequently occurs." mixi-cache-file-regexp)) (defun mixi-save-cache () - (unless (file-directory-p mixi-directory) - (make-directory mixi-directory t)) - (let ((caches (apropos-internal mixi-cache-regexp 'boundp))) - (mapc (lambda (symbol) - (with-temp-file (expand-file-name - (substring (symbol-name symbol) - (length mixi-object-prefix)) - mixi-directory) - (let ((coding-system-for-write mixi-coding-system) - (cache (symbol-value symbol))) - (insert "#s(hash-table size " - (number-to-string (hash-table-count cache)) - " test equal data (\n") - (maphash - (lambda (key value) - (let (print-level print-length) - (insert (prin1-to-string key) " " - (prin1-to-string value) "\n"))) - cache)) - (insert "))"))) - caches))) + (let ((cache-directory (expand-file-name "cache" mixi-directory))) + (unless (file-directory-p cache-directory) + (make-directory cache-directory t)) + (let ((caches (apropos-internal mixi-cache-regexp 'boundp))) + (mapc (lambda (symbol) + (with-temp-file (expand-file-name + (substring (symbol-name symbol) + (length mixi-object-prefix)) + cache-directory) + (let ((coding-system-for-write mixi-coding-system) + (cache (symbol-value symbol))) + (insert "#s(hash-table size " + (number-to-string (hash-table-count cache)) + " test equal data (\n") + (maphash + (lambda (key value) + (let (print-level print-length) + (insert (prin1-to-string key) " " + (prin1-to-string value) "\n"))) + cache)) + (insert "))"))) + caches)))) ;; stolen (and modified) from lsdb.el (defun mixi-read-cache (&optional marker) @@ -618,20 +716,22 @@ Increase this value when unexpected error frequently occurs." (read marker)))) (defun mixi-load-cache () - (when (file-directory-p mixi-directory) - ;; FIXME: Load friend and community first. - (let ((files (directory-files mixi-directory t mixi-cache-file-regexp))) - (mapc (lambda (file) - (let ((buffer (find-file-noselect file))) - (unwind-protect - (save-excursion - (set-buffer buffer) - (goto-char (point-min)) - (re-search-forward "^#s(") - (goto-char (match-beginning 0)) - (mixi-read-cache (point-marker))) - (kill-buffer buffer)))) - files)))) + (let ((cache-directory (expand-file-name "cache" mixi-directory))) + (when (file-directory-p cache-directory) + ;; FIXME: Load friend and community first. + (let ((files (directory-files cache-directory t + mixi-cache-file-regexp))) + (mapc (lambda (file) + (let ((buffer (find-file-noselect file))) + (unwind-protect + (save-excursion + (set-buffer buffer) + (goto-char (point-min)) + (re-search-forward "^#s(") + (goto-char (match-beginning 0)) + (mixi-read-cache (point-marker))) + (kill-buffer buffer)))) + files))))) ;; Friend object. (defvar mixi-friend-cache (make-hash-table :test 'equal)) @@ -649,8 +749,8 @@ Increase this value when unexpected error frequently occurs." "Return a my object." (unless mixi-me (with-mixi-retrieve "/home.pl" - (if (string-match mixi-my-id-regexp buffer) - (setq mixi-me (mixi-make-friend (match-string 1 buffer))) + (if (re-search-forward mixi-my-id-regexp) + (setq mixi-me (mixi-make-friend (match-string 1))) (signal 'error (list 'who-am-i))))) mixi-me) @@ -669,10 +769,10 @@ Increase this value when unexpected error frequently occurs." `(eq (mixi-object-class ,friend) 'mixi-friend)) (defmacro mixi-friend-page (friend) - `(concat "/show_friend.pl?id=" (mixi-friend-id ,friend))) + `(concat "/show_profile.pl?id=" (mixi-friend-id ,friend))) (defconst mixi-friend-nick-regexp - "\"\\*\"
? + "
? \\(.*\\)¤µ¤ó([0-9]+)") (defconst mixi-friend-name-regexp "̾\\( \\| \\)Á° @@ -705,47 +805,35 @@ Increase this value when unexpected error frequently occurs." "Realize a FRIEND." ;; FIXME: Check a expiration of cache? (unless (mixi-object-realized-p friend) - (let (buf) - (with-mixi-retrieve (mixi-friend-page friend) - (setq buf buffer)) - (if (string-match mixi-friend-nick-regexp buf) - (mixi-friend-set-nick friend (match-string 1 buf)) - (signal 'error (list 'cannot-find-nick friend))) - ;; For getting my profile. - (unless (string-match mixi-friend-name-regexp buf) - (with-mixi-retrieve (concat "/show_profile.pl?id=" - (mixi-friend-id friend)) - (setq buf buffer))) - (if (string-match mixi-friend-name-regexp buf) - (mixi-friend-set-name friend (match-string 2 buf)) - (signal 'error (list 'cannot-find-name friend))) - (if (string-match mixi-friend-sex-regexp buf) - (mixi-friend-set-sex friend - (if (string= (match-string 3 buf) "ÃË") - 'male 'female)) - (signal 'error (list 'cannot-find-sex friend))) - (when (string-match mixi-friend-address-regexp buf) - (mixi-friend-set-address friend (match-string 1 buf))) - (when (string-match mixi-friend-age-regexp buf) - (mixi-friend-set-age - friend (string-to-number (match-string 2 buf)))) - (when (string-match mixi-friend-birthday-regexp buf) - (mixi-friend-set-birthday - friend (list (string-to-number (match-string 1 buf)) - (string-to-number (match-string 2 buf))))) - (when (string-match mixi-friend-blood-type-regexp buf) - (mixi-friend-set-blood-type friend (intern (match-string 1 buf)))) - (when (string-match mixi-friend-birthplace-regexp buf) - (mixi-friend-set-birthplace friend (match-string 1 buf))) - (when (string-match mixi-friend-hobby-regexp buf) - (mixi-friend-set-hobby - friend (split-string (match-string 2 buf) ", "))) - (when (string-match mixi-friend-job-regexp buf) - (mixi-friend-set-job friend (match-string 2 buf))) - (when (string-match mixi-friend-organization-regexp buf) - (mixi-friend-set-organization friend (match-string 2 buf))) - (when (string-match mixi-friend-profile-regexp buf) - (mixi-friend-set-profile friend (match-string 1 buf)))) + (with-mixi-retrieve (mixi-friend-page friend) + (if (re-search-forward mixi-friend-nick-regexp nil t) + (mixi-friend-set-nick friend (match-string 4)) + (mixi-realization-error 'cannot-find-nick friend)) + (when (re-search-forward mixi-friend-name-regexp nil t) + (mixi-friend-set-name friend (match-string 2))) + (when (re-search-forward mixi-friend-sex-regexp nil t) + (mixi-friend-set-sex friend (if (string= (match-string 3) "ÃË") + 'male 'female))) + (when (re-search-forward mixi-friend-address-regexp nil t) + (mixi-friend-set-address friend (match-string 1))) + (when (re-search-forward mixi-friend-age-regexp nil t) + (mixi-friend-set-age friend (string-to-number (match-string 2)))) + (when (re-search-forward mixi-friend-birthday-regexp nil t) + (mixi-friend-set-birthday friend + (list (string-to-number (match-string 1)) + (string-to-number (match-string 2))))) + (when (re-search-forward mixi-friend-blood-type-regexp nil t) + (mixi-friend-set-blood-type friend (intern (match-string 1)))) + (when (re-search-forward mixi-friend-birthplace-regexp nil t) + (mixi-friend-set-birthplace friend (match-string 1))) + (when (re-search-forward mixi-friend-hobby-regexp nil t) + (mixi-friend-set-hobby friend (split-string (match-string 2) ", "))) + (when (re-search-forward mixi-friend-job-regexp nil t) + (mixi-friend-set-job friend (match-string 2))) + (when (re-search-forward mixi-friend-organization-regexp nil t) + (mixi-friend-set-organization friend (match-string 2))) + (when (re-search-forward mixi-friend-profile-regexp nil t) + (mixi-friend-set-profile friend (match-string 1)))) (mixi-object-touch friend))) (defun mixi-friend-id (friend) @@ -920,15 +1008,16 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-friend-list-nick-regexp "\\(.+\\)¤µ¤ó([0-9]+)
") -(defun mixi-get-friends (&rest args) +(defun mixi-get-friends (&rest friend-or-range) "Get friends of FRIEND." - (when (> (length args) 2) - (signal 'wrong-number-of-arguments (list 'mixi-get-friends (length args)))) - (let ((friend (nth 0 args)) - (range (nth 1 args))) + (when (> (length friend-or-range) 2) + (signal 'wrong-number-of-arguments (list 'mixi-get-friends + (length friend-or-range)))) + (let ((friend (nth 0 friend-or-range)) + (range (nth 1 friend-or-range))) (when (or (not (mixi-friend-p friend)) (mixi-friend-p range)) - (setq friend (nth 1 args)) - (setq range (nth 0 args))) + (setq friend (nth 1 friend-or-range)) + (setq range (nth 0 friend-or-range))) (unless (or (null friend) (mixi-friend-p friend)) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (let ((ids (mixi-get-matched-items (mixi-friend-list-page friend) @@ -1055,25 +1144,24 @@ Increase this value when unexpected error frequently occurs." ;; FIXME: Check a expiration of cache? (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) - (mixi-friend-set-nick (mixi-diary-owner diary) - (match-string 1 buffer)) - (signal 'error (list 'cannot-find-owner-nick diary))) - (if (string-match mixi-diary-time-regexp buffer) + (unless (re-search-forward mixi-diary-closed-regexp nil t) + (if (re-search-forward mixi-diary-owner-nick-regexp nil t) + (mixi-friend-set-nick (mixi-diary-owner diary) (match-string 1)) + (mixi-realization-error 'cannot-find-owner-nick diary)) + (if (re-search-forward mixi-diary-time-regexp nil t) (mixi-diary-set-time - diary (encode-time 0 (string-to-number (match-string 10 buffer)) - (string-to-number (match-string 9 buffer)) - (string-to-number (match-string 7 buffer)) - (string-to-number (match-string 6 buffer)) - (string-to-number (match-string 5 buffer)))) - (signal 'error (list 'cannot-find-time diary))) - (if (string-match mixi-diary-title-regexp buffer) - (mixi-diary-set-title diary (match-string 2 buffer)) - (signal 'error (list 'cannot-find-title diary))) - (if (string-match mixi-diary-content-regexp buffer) - (mixi-diary-set-content diary (match-string 2 buffer)) - (signal 'error (list 'cannot-find-content diary))))) + diary (encode-time 0 (string-to-number (match-string 10)) + (string-to-number (match-string 9)) + (string-to-number (match-string 7)) + (string-to-number (match-string 6)) + (string-to-number (match-string 5)))) + (mixi-realization-error 'cannot-find-time diary)) + (if (re-search-forward mixi-diary-title-regexp nil t) + (mixi-diary-set-title diary (match-string 2)) + (mixi-realization-error 'cannot-find-title diary)) + (if (re-search-forward mixi-diary-content-regexp nil t) + (mixi-diary-set-content diary (match-string 2)) + (mixi-realization-error 'cannot-find-content diary)))) (mixi-object-touch diary))) (defun mixi-diary-owner (diary) @@ -1092,14 +1180,16 @@ 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-realize-diary diary) + (unless (aref (cdr diary) 3) + (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-realize-diary diary) + (unless (aref (cdr diary) 4) + (mixi-realize-diary diary)) (aref (cdr diary) 4)) (defun mixi-diary-content (diary) @@ -1132,32 +1222,47 @@ Increase this value when unexpected error frequently occurs." (when ,friend (concat "&id=" (mixi-friend-id ,friend))))) (defconst mixi-diary-list-regexp - "") + " +\\([0-9]+\\)·î\\([0-9]+\\)Æü
\\([0-9]+\\):\\([0-9]+\\)\\(
\\|\\) + \\(.*\\)") -(defun mixi-get-diaries (&rest args) +(defun mixi-get-diaries (&rest friend-or-range) "Get diaries of FRIEND." - (when (> (length args) 2) + (when (> (length friend-or-range) 2) (signal 'wrong-number-of-arguments - (list 'mixi-get-diaries (length args)))) - (let ((friend (nth 0 args)) - (range (nth 1 args))) + (list 'mixi-get-diaries (length friend-or-range)))) + (let ((friend (nth 0 friend-or-range)) + (range (nth 1 friend-or-range))) (when (or (not (mixi-friend-p friend)) (mixi-friend-p range)) - (setq friend (nth 1 args)) - (setq range (nth 0 args))) + (setq friend (nth 1 friend-or-range)) + (setq range (nth 0 friend-or-range))) (unless (or (null friend) (mixi-friend-p friend)) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (let ((items (mixi-get-matched-items (mixi-diary-list-page friend) mixi-diary-list-regexp - range))) + range)) + (year (nth 5 (decode-time (current-time)))) + (month (nth 4 (decode-time (current-time))))) (mapcar (lambda (item) - (mixi-make-diary friend (nth 0 item))) + (let ((month-of-item (string-to-number (nth 0 item)))) + (when (> month-of-item month) + (decf year)) + (setq month month-of-item) + (mixi-make-diary friend (nth 5 item) + (encode-time + 0 (string-to-number (nth 3 item)) + (string-to-number (nth 2 item)) + (string-to-number (nth 1 item)) + month year) + (nth 6 item)))) items)))) (defmacro mixi-new-diary-list-page () `(concat "/new_friend_diary.pl?page=%d")) (defconst mixi-new-diary-list-regexp - "") + "\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\) +\\(.+\\) (\\(.*\\)) ") (defun mixi-get-new-diaries (&optional range) "Get new diaries." @@ -1165,24 +1270,98 @@ Increase this value when unexpected error frequently occurs." mixi-new-diary-list-regexp range))) (mapcar (lambda (item) - (mixi-make-diary (mixi-make-friend (nth 1 item)) (nth 0 item))) + (mixi-make-diary (mixi-make-friend (nth 6 item) (nth 8 item)) + (nth 5 item) + (encode-time + 0 (string-to-number (nth 4 item)) + (string-to-number (nth 3 item)) + (string-to-number (nth 2 item)) + (string-to-number (nth 1 item)) + (string-to-number (nth 0 item))) + (nth 7 item))) items))) (defmacro mixi-search-diary-list-page (keyword) `(concat "/search_diary.pl?page=%d&submit=search&keyword=" - (mixi-url-encode-and-quote-percent-string keyword))) + (mixi-url-encode-and-quote-percent-string ,keyword))) (defconst mixi-search-diary-list-regexp - "") + "̾  Á° +\\(.*\\) + + + + +¥¿¥¤¥È¥ë +\\(.+\\) + + +ËÜ  Ê¸ +\\(.*\\) + + + +ºîÀ®Æü»þ +\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\) +¾ÜºÙ¤ò¸«¤ë + +") (defun mixi-search-diaries (keyword &optional range) (let ((items (mixi-get-matched-items (mixi-search-diary-list-page keyword) mixi-search-diary-list-regexp - range))) + range)) + (year (nth 5 (decode-time (current-time)))) + (month (nth 4 (decode-time (current-time))))) (mapcar (lambda (item) - (mixi-make-diary (mixi-make-friend (nth 1 item)) (nth 0 item))) + (let ((month-of-item (string-to-number (nth 3 item)))) + (when (> month-of-item month) + (decf year)) + (setq month month-of-item) + (mixi-make-diary (mixi-make-friend (nth 8 item) (nth 0 item)) + (nth 7 item) + (encode-time + 0 (string-to-number (nth 6 item)) + (string-to-number (nth 5 item)) + (string-to-number (nth 4 item)) + month year) + (nth 1 item) + (nth 2 item)))) items))) +(defmacro mixi-post-diary-page () + `(concat "/add_diary.pl")) + +(defconst mixi-post-key-regexp + "") +(defconst mixi-post-succeed-regexp + "\\(ºîÀ®\\|½ñ¤­¹þ¤ß\\)¤¬´°Î»¤·¤Þ¤·¤¿¡£È¿±Ç¤Ë»þ´Ö¤¬¤«¤«¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢É½¼¨¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¾¯¡¹¤ªÂÔ¤Á¤¯¤À¤µ¤¤¡£") + +;; FIXME: Support photos. +(defun mixi-post-diary (title content) + "Post a diary." + (unless (stringp title) + (signal 'wrong-type-argument (list 'stringp title))) + (unless (stringp content) + (signal 'wrong-type-argument (list 'stringp content))) + (let ((fields `(("id" . ,(mixi-friend-id (mixi-make-me))) + ("diary_title" . ,title) + ("diary_body" . ,content) + ("submit" . "main"))) + post-key) + (with-mixi-post-form (mixi-post-diary-page) fields + (if (re-search-forward mixi-post-key-regexp nil t) + (setq post-key (match-string 1)) + (mixi-post-error 'cannot-find-key))) + (setq fields `(("post_key" . ,post-key) + ("id" . ,(mixi-friend-id (mixi-make-me))) + ("diary_title" . ,title) + ("diary_body" . ,content) + ("submit" . "confirm"))) + (with-mixi-post-form (mixi-post-diary-page) fields + (unless (re-search-forward mixi-post-succeed-regexp nil t) + (mixi-post-error 'cannot-find-succeed))))) + ;; Community object. (defvar mixi-community-cache (make-hash-table :test 'equal)) (defun mixi-make-community (id &optional name birthday owner category members @@ -1215,71 +1394,69 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-community-name-regexp "\\(.*\\)") (defconst mixi-community-birthday-regexp - "³«ÀßÆü -\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü") + "³«ÀßÆü +\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü") ;; FIXME: Care when the owner has seceded. (defconst mixi-community-owner-regexp - "´ÉÍý¿Í - - - -\\(.*\\)") + "´ÉÍý¿Í + + -") + " +") (defconst mixi-community-members-regexp - " -") + " +") (defconst mixi-community-open-level-regexp - " -") + " +") (defconst mixi-community-authority-regexp - " -") + " +") (defconst mixi-community-description-regexp - "") + "") (defun mixi-realize-community (community) "Realize a COMMUNITY." ;; FIXME: Check a expiration of cache? (unless (mixi-object-realized-p community) (with-mixi-retrieve (mixi-community-page community) - (if (string-match mixi-community-nodata-regexp buffer) + (if (re-search-forward mixi-community-nodata-regexp nil t) ;; FIXME: Set all members? (mixi-community-set-name community "¥Ç¡¼¥¿¤¬¤¢¤ê¤Þ¤»¤ó") - (if (string-match mixi-community-name-regexp buffer) - (mixi-community-set-name community (match-string 1 buffer)) - (signal 'error (list 'cannot-find-name community))) - (if (string-match mixi-community-birthday-regexp buffer) + (if (re-search-forward mixi-community-name-regexp nil t) + (mixi-community-set-name community (match-string 1)) + (mixi-realization-error 'cannot-find-name community)) + (if (re-search-forward mixi-community-birthday-regexp nil t) (mixi-community-set-birthday - community - (encode-time 0 0 0 (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)) - (string-to-number (match-string 1 buffer)))) - (signal 'error (list 'cannot-find-birthday community))) - (if (string-match mixi-community-owner-regexp buffer) - (if (string= (match-string 1 buffer) "home.pl") + community (encode-time 0 0 0 (string-to-number (match-string 3)) + (string-to-number (match-string 2)) + (string-to-number (match-string 1)))) + (mixi-realization-error 'cannot-find-birthday community)) + (if (re-search-forward mixi-community-owner-regexp nil t) + (if (string= (match-string 1) "home.pl") (mixi-community-set-owner community (mixi-make-me)) - (mixi-community-set-owner - community (mixi-make-friend (match-string 2 buffer) - (match-string 3 buffer)))) - (signal 'error (list 'cannot-find-owner community))) - (if (string-match mixi-community-category-regexp buffer) - (mixi-community-set-category community (match-string 1 buffer)) - (signal 'error (list 'cannot-find-category community))) - (if (string-match mixi-community-members-regexp buffer) - (mixi-community-set-members - community (string-to-number (match-string 1 buffer))) - (signal 'error (list 'cannot-find-members community))) - (if (string-match mixi-community-open-level-regexp buffer) - (mixi-community-set-open-level community (match-string 1 buffer)) - (signal 'error (list 'cannot-find-open-level community))) - (if (string-match mixi-community-authority-regexp buffer) - (mixi-community-set-authority community (match-string 1 buffer)) - (signal 'error (list 'cannot-find-authority community))) - (if (string-match mixi-community-description-regexp buffer) - (mixi-community-set-description community (match-string 1 buffer)) - (signal 'error (list 'cannot-find-description community))))) + (mixi-community-set-owner community + (mixi-make-friend (match-string 2) + (match-string 3)))) + (mixi-realization-error 'cannot-find-owner community)) + (if (re-search-forward mixi-community-category-regexp nil t) + (mixi-community-set-category community (match-string 1)) + (mixi-realization-error 'cannot-find-category community)) + (if (re-search-forward mixi-community-members-regexp nil t) + (mixi-community-set-members community + (string-to-number (match-string 1))) + (mixi-realization-error 'cannot-find-members community)) + (if (re-search-forward mixi-community-open-level-regexp nil t) + (mixi-community-set-open-level community (match-string 1)) + (mixi-realization-error 'cannot-find-open-level community)) + (if (re-search-forward mixi-community-authority-regexp nil t) + (mixi-community-set-authority community (match-string 1)) + (mixi-realization-error 'cannot-find-authority community)) + (if (re-search-forward mixi-community-description-regexp nil t) + (mixi-community-set-description community (match-string 1)) + (mixi-realization-error 'cannot-find-description community)))) (mixi-object-touch community))) (defun mixi-community-id (community) @@ -1404,16 +1581,16 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-community-list-name-regexp "") -(defun mixi-get-communities (&rest args) +(defun mixi-get-communities (&rest friend-or-range) "Get communities of FRIEND." - (when (> (length args) 2) + (when (> (length friend-or-range) 2) (signal 'wrong-number-of-arguments - (list 'mixi-get-communities (length args)))) - (let ((friend (nth 0 args)) - (range (nth 1 args))) + (list 'mixi-get-communities (length friend-or-range)))) + (let ((friend (nth 0 friend-or-range)) + (range (nth 1 friend-or-range))) (when (or (not (mixi-friend-p friend)) (mixi-friend-p range)) - (setq friend (nth 1 args)) - (setq range (nth 0 args))) + (setq friend (nth 1 friend-or-range)) + (setq range (nth 0 friend-or-range))) (unless (or (null friend) (mixi-friend-p friend)) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (let ((ids (mixi-get-matched-items (mixi-community-list-page friend) @@ -1432,7 +1609,7 @@ Increase this value when unexpected error frequently occurs." (defmacro mixi-search-community-list-page (keyword) `(concat "/search_community.pl?page=%d&&sort=date&type=com&submit=main" - "&keyword=" (mixi-url-encode-and-quote-percent-string keyword) + "&keyword=" (mixi-url-encode-and-quote-percent-string ,keyword) "&category_id=0")) (defconst mixi-search-community-list-regexp @@ -1485,36 +1662,35 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-topic-owner-regexp "") (defconst mixi-event-time-regexp - "") + "") (defconst mixi-event-title-regexp - "") + "") (defconst mixi-event-owner-regexp - " - +") (defconst mixi-event-place-regexp - " - +") (defconst mixi-event-detail-regexp - " -") + " +") (defconst mixi-event-limit-regexp - " -") + " +?") (defconst mixi-event-members-regexp - " -
+\\(.*\\)") (defconst mixi-community-category-regexp - "¥«¥Æ¥´¥ê\\([^<]+\\)¥«¥Æ¥´¥ê\\([^<]+\\)¥á¥ó¥Ð¡¼¿ô\\([0-9]+\\)¿Í
¥á¥ó¥Ð¡¼¿ô\\([0-9]+\\)¿Í
»²²Ã¾ò·ï¤È
¸ø³«¥ì¥Ù¥ë		\\(.+\\)
»²²Ã¾ò·ï¤È
¸ø³«¥ì¥Ù¥ë		\\(.+\\)
¥È¥Ô¥Ã¥¯ºîÀ®¤Î¸¢¸Â\\(.+\\)
¥È¥Ô¥Ã¥¯ºîÀ®¤Î¸¢¸Â\\(.+\\)
\\(.+\\)\\(.+\\)\\(.+\\)([0-9]+)  \\(.*?\\)\\(¤µ¤ó\\)?") (defconst mixi-topic-content-regexp - "
\\(\n\\)*
\\(.+\\)
") + "
\\(\n\\)*
\\(.+\\)
") (defun mixi-realize-topic (topic) "Realize a TOPIC." ;; FIXME: Check a expiration of cache? (unless (mixi-object-realized-p topic) (with-mixi-retrieve (mixi-topic-page topic) - (if (string-match mixi-topic-community-regexp buffer) + (if (re-search-forward mixi-topic-community-regexp nil t) (mixi-community-set-name (mixi-topic-community topic) - (match-string 1 buffer)) - (signal 'error (list 'cannot-find-community topic))) - (if (string-match mixi-topic-time-regexp buffer) + (match-string 1)) + (mixi-realization-error 'cannot-find-community topic)) + (if (re-search-forward mixi-topic-time-regexp nil t) (mixi-topic-set-time - topic (encode-time 0 (string-to-number (match-string 5 buffer)) - (string-to-number (match-string 4 buffer)) - (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)) - (string-to-number (match-string 1 buffer)))) - (signal 'error (list 'cannot-find-time topic))) - (if (string-match mixi-topic-title-regexp buffer) - (mixi-topic-set-title topic (match-string 1 buffer)) - (signal 'error (list 'cannot-find-title topic))) - (if (string-match mixi-topic-owner-regexp buffer) - (mixi-topic-set-owner topic - (mixi-make-friend (match-string 1 buffer) - (match-string 2 buffer))) - (signal 'error (list 'cannot-find-owner topic))) - (if (string-match mixi-topic-content-regexp buffer) - (mixi-topic-set-content topic (match-string 2 buffer)) - (signal 'error (list 'cannot-find-content topic)))) + topic (encode-time 0 (string-to-number (match-string 5)) + (string-to-number (match-string 4)) + (string-to-number (match-string 3)) + (string-to-number (match-string 2)) + (string-to-number (match-string 1)))) + (mixi-realization-error 'cannot-find-time topic)) + (if (re-search-forward mixi-topic-title-regexp nil t) + (mixi-topic-set-title topic (match-string 1)) + (mixi-realization-error 'cannot-find-title topic)) + (if (re-search-forward mixi-topic-owner-regexp nil t) + (mixi-topic-set-owner topic (mixi-make-friend (match-string 1) + (match-string 2))) + (mixi-realization-error 'cannot-find-owner topic)) + (if (re-search-forward mixi-topic-content-regexp nil t) + (mixi-topic-set-content topic (match-string 2)) + (mixi-realization-error 'cannot-find-content topic))) (mixi-object-touch topic))) (defun mixi-topic-community (topic) @@ -1583,6 +1759,34 @@ Increase this value when unexpected error frequently occurs." (signal 'wrong-type-argument (list 'mixi-topic-p topic))) (aset (cdr topic) 6 content)) +(defmacro mixi-post-topic-page (community) + `(concat "/add_bbs.pl?id=" (mixi-community-id community))) + +;; FIXME: Support photos. +(defun mixi-post-topic (community title content) + "Post a topic to COMMUNITY." + (unless (mixi-community-p community) + (signal 'wrong-type-argument (list 'mixi-community-p community))) + (unless (stringp title) + (signal 'wrong-type-argument (list 'stringp title))) + (unless (stringp content) + (signal 'wrong-type-argument (list 'stringp content))) + (let ((fields `(("bbs_title" . ,title) + ("bbs_body" . ,content) + ("submit" . "main"))) + post-key) + (with-mixi-post-form (mixi-post-topic-page community) fields + (if (re-search-forward mixi-post-key-regexp nil t) + (setq post-key (match-string 1)) + (mixi-post-error 'cannot-find-key community))) + (setq fields `(("post_key" . ,post-key) + ("bbs_title" . ,title) + ("bbs_body" . ,content) + ("submit" . "confirm"))) + (with-mixi-post-form (mixi-post-topic-page community) fields + (unless (re-search-forward mixi-post-succeed-regexp nil t) + (mixi-post-error 'cannot-find-succeed community))))) + ;; Event object. (defvar mixi-event-cache (make-hash-table :test 'equal)) (defun mixi-make-event (community id &optional time title owner date place @@ -1613,78 +1817,85 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-event-community-regexp "		\\[\\(.+\\)\\] ¥¤¥Ù¥ó¥È -\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü
-\\([0-9]+\\):\\([0-9]+\\)		 +?\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü
+?\\([0-9]+\\):\\([0-9]+\\)		 \\([^<]+\\) \\([^<]+\\) \\(.*\\)") + " \\(.*\\)") +(defconst mixi-event-owner-seceded-regexp + " \\((mixi Âà²ñºÑ)\\)") (defconst mixi-event-date-regexp - "³«ºÅÆü»þ + "³«ºÅÆü»þ  \\(.+\\) ³«ºÅ¾ì½ê + "³«ºÅ¾ì½ê  \\(.+\\) ¾ÜºÙ
\\(.+\\)
¾ÜºÙ
\\(.+\\)
Ê罸´ü¸Â \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)ÆüÊ罸´ü¸Â \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü»²²Ã¼Ô - + " + - +
»²²Ã¼Ô + +? +? -") + +?") (defun mixi-realize-event (event) "Realize a EVENT." ;; FIXME: Check a expiration of cache? (unless (mixi-object-realized-p event) (with-mixi-retrieve (mixi-event-page event) - (if (string-match mixi-event-community-regexp buffer) + (if (re-search-forward mixi-event-community-regexp nil t) (mixi-community-set-name (mixi-event-community event) - (match-string 1 buffer)) - (signal 'error (list 'cannot-find-title event))) - (if (string-match mixi-event-time-regexp buffer) + (match-string 1)) + (mixi-realization-error 'cannot-find-community event)) + (if (re-search-forward mixi-event-time-regexp nil t) (mixi-event-set-time - event (encode-time 0 (string-to-number (match-string 5 buffer)) - (string-to-number (match-string 4 buffer)) - (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)) - (string-to-number (match-string 1 buffer)))) - (signal 'error (list 'cannot-find-time event))) - (if (string-match mixi-event-title-regexp buffer) - (mixi-event-set-title event (match-string 1 buffer)) - (signal 'error (list 'cannot-find-title event))) - (if (string-match mixi-event-owner-regexp buffer) - (mixi-event-set-owner event - (mixi-make-friend (match-string 1 buffer) - (match-string 2 buffer))) - (signal 'error (list 'cannot-find-owner event))) - (if (string-match mixi-event-date-regexp buffer) - (mixi-event-set-date event (match-string 1 buffer)) - (signal 'error (list 'cannot-find-date event))) - (if (string-match mixi-event-place-regexp buffer) - (mixi-event-set-place event (match-string 1 buffer)) - (signal 'error (list 'cannot-find-place event))) - (if (string-match mixi-event-detail-regexp buffer) - (mixi-event-set-detail event (match-string 1 buffer)) - (signal 'error (list 'cannot-find-detail event))) - (when (string-match mixi-event-limit-regexp buffer) + event (encode-time 0 (string-to-number (match-string 8)) + (string-to-number (match-string 7)) + (string-to-number (match-string 6)) + (string-to-number (match-string 5)) + (string-to-number (match-string 4)))) + (mixi-realization-error 'cannot-find-time event)) + (if (re-search-forward mixi-event-title-regexp nil t) + (mixi-event-set-title event (match-string 2)) + (mixi-realization-error 'cannot-find-title event)) + (if (re-search-forward mixi-event-owner-regexp nil t) + (mixi-event-set-owner event (mixi-make-friend (match-string 2) + (match-string 3))) + (if (re-search-forward mixi-event-owner-seceded-regexp nil t) + (mixi-event-set-owner event + (mixi-make-friend nil (match-string 2))) + (mixi-realization-error 'cannot-find-owner event))) + (if (re-search-forward mixi-event-date-regexp nil t) + (mixi-event-set-date event (match-string 6)) + (mixi-realization-error 'cannot-find-date event)) + (if (re-search-forward mixi-event-place-regexp nil t) + (mixi-event-set-place event (match-string 6)) + (mixi-realization-error 'cannot-find-place event)) + (if (re-search-forward mixi-event-detail-regexp nil t) + (mixi-event-set-detail event (match-string 6)) + (mixi-realization-error 'cannot-find-detail event)) + (when (re-search-forward mixi-event-limit-regexp nil t) (mixi-event-set-limit - event (encode-time 0 0 0 (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)) - (string-to-number (match-string 1 buffer))))) - (if (string-match mixi-event-members-regexp buffer) - (mixi-event-set-members event (match-string 1 buffer)) - (signal 'error (list 'cannot-find-members event)))) + event (encode-time 0 0 0 (string-to-number (match-string 8)) + (string-to-number (match-string 7)) + (string-to-number (match-string 6))))) + (if (re-search-forward mixi-event-members-regexp nil t) + (mixi-event-set-members event (match-string 6)) + (mixi-realization-error 'cannot-find-members event))) (mixi-object-touch event))) (defun mixi-event-community (event) @@ -1809,8 +2020,7 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-bbs-list '(mixi-topic mixi-event)) (defmacro mixi-bbs-p (object) - `(when (memq (mixi-object-class ,object) mixi-bbs-list) - t)) + `(memq (mixi-object-class ,object) mixi-bbs-list)) (defun mixi-bbs-community (object) "Return the community of OBJECT." @@ -1870,7 +2080,7 @@ Increase this value when unexpected error frequently occurs." (defmacro mixi-search-bbs-list-page (keyword) `(concat "/search_topic.pl?page=%d&type=top&submit=search" - "&keyword=" (mixi-url-encode-and-quote-percent-string keyword) + "&keyword=" (mixi-url-encode-and-quote-percent-string ,keyword) "&community_id=0&category_id=0")) (defconst mixi-search-bbs-list-regexp @@ -1947,7 +2157,7 @@ Increase this value when unexpected error frequently occurs."
 \\(.+\\) \\(.+\\)
@@ -2008,9 +2218,12 @@ Increase this value when unexpected error frequently occurs." [^<]+ :\\(.*\\) - +\\(| +ºï½ü + +\\|\\) -\\(\\) +
@@ -2028,16 +2241,7 @@ Increase this value when unexpected error frequently occurs." (regexp (eval (intern (concat mixi-object-prefix name "-comment-list-regexp"))))) (let ((items (mixi-get-matched-items - (funcall list-page parent) regexp))) - (let (list) - (catch 'stop - (mapc (lambda (item) - (when (and (numberp range) - (>= (length list) range)) - (throw 'stop nil)) - (setq list (cons item list))) - (reverse items))) - (setq items (reverse list))) + (funcall list-page parent) regexp range t))) (mapcar (lambda (item) (mixi-make-comment parent (mixi-make-friend (nth 7 item) (nth 8 item)) @@ -2066,12 +2270,55 @@ Increase this value when unexpected error frequently occurs." (mixi-make-diary (mixi-make-friend (nth 1 item)) (nth 0 item))) items))) +(defun mixi-post-diary-comment-page (diary) + (concat "/add_comment.pl?&diary_id=" (mixi-diary-id diary))) + +(defun mixi-post-topic-comment-page (topic) + (concat "/add_bbs_comment.pl?id=" (mixi-topic-id topic) + "&comm_id=" (mixi-community-id (mixi-topic-community topic)))) + +(defun mixi-post-event-comment-page (event) + (concat "/add_event_comment.pl?id=" (mixi-event-id event) + "&comm_id=" (mixi-community-id (mixi-event-community event)))) + +;; FIXME: Support photos. +(defun mixi-post-comment (parent content) + "Post a comment to PARENT." + (unless (mixi-object-p parent) + (signal 'wrong-type-argument (list 'mixi-object-p parent))) + (unless (stringp content) + (signal 'wrong-type-argument (list 'stringp content))) + (let* ((name (mixi-object-name parent)) + (page (intern (concat mixi-object-prefix "post-" name + "-comment-page"))) + fields post-key) + (if (mixi-diary-p parent) + (setq fields + `(("owner_id" . ,(mixi-friend-id (mixi-diary-owner parent))) + ("comment_body" . ,content))) + (setq fields `(("comment" . ,content)))) + (with-mixi-post-form (funcall page parent) fields + (if (re-search-forward mixi-post-key-regexp nil t) + (setq post-key (match-string 1)) + (mixi-post-error 'cannot-find-key parent))) + (if (mixi-diary-p parent) + (setq fields + `(("post_key" . ,post-key) + ("owner_id" . ,(mixi-friend-id (mixi-diary-owner parent))) + ("comment_body" . ,content) + ("submit" . "confirm"))) + (setq fields `(("post_key" . ,post-key) + ("comment" . ,content) + ("submit" . "confirm")))) + (with-mixi-post-form (funcall page parent) fields + (unless (re-search-forward mixi-post-succeed-regexp nil t) + (mixi-post-error 'cannot-find-succeed parent))))) + ;; Message object. (defconst mixi-message-box-list '(inbox outbox savebox thrash)) ; thrash? (defmacro mixi-message-box-p (box) - `(when (memq ,box mixi-message-box-list) - t)) + `(memq ,box mixi-message-box-list)) (defun mixi-message-box-name (box) "Return the name of BOX." @@ -2106,10 +2353,10 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-message-owner-regexp "\\(º¹½Ð¿Í\\|°¸ Àè\\) : \\(.*\\)\\(\\|\\)") -(defconst mixi-message-title-regexp -"·ï\\(¡¡\\| \\)̾ : \\(.+\\)\n?") (defconst mixi-message-time-regexp "Æü\\(¡¡\\| \\)ÉÕ : \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\)»þ\\([0-9]+\\)ʬ  ") +(defconst mixi-message-title-regexp +"·ï\\(¡¡\\| \\)̾ : \\(.+\\)\n?") (defconst mixi-message-content-regexp "") @@ -2117,25 +2364,25 @@ Increase this value when unexpected error frequently occurs." "Realize a MESSAGE." (unless (mixi-object-realized-p message) (with-mixi-retrieve (mixi-message-page message) - (if (string-match mixi-message-owner-regexp buffer) + (if (re-search-forward mixi-message-owner-regexp nil t) (mixi-message-set-owner message - (mixi-make-friend (match-string 2 buffer) - (match-string 3 buffer))) - (signal 'error (list 'cannot-find-owner message))) - (if (string-match mixi-message-title-regexp buffer) - (mixi-message-set-title message (match-string 2 buffer)) - (signal 'error (list 'cannot-find-title message))) - (if (string-match mixi-message-time-regexp buffer) + (mixi-make-friend (match-string 2) + (match-string 3))) + (mixi-realization-error 'cannot-find-owner message)) + (if (re-search-forward mixi-message-time-regexp nil t) (mixi-message-set-time - message (encode-time 0 (string-to-number (match-string 6 buffer)) - (string-to-number (match-string 5 buffer)) - (string-to-number (match-string 4 buffer)) - (string-to-number (match-string 3 buffer)) - (string-to-number (match-string 2 buffer)))) - (signal 'error (list 'cannot-find-time message))) - (if (string-match mixi-message-content-regexp buffer) - (mixi-message-set-content message (match-string 1 buffer)) - (signal 'error (list 'cannot-find-content message)))) + message (encode-time 0 (string-to-number (match-string 6)) + (string-to-number (match-string 5)) + (string-to-number (match-string 4)) + (string-to-number (match-string 3)) + (string-to-number (match-string 2)))) + (mixi-realization-error 'cannot-find-time message)) + (if (re-search-forward mixi-message-title-regexp nil t) + (mixi-message-set-title message (match-string 2)) + (mixi-realization-error 'cannot-find-title message)) + (if (re-search-forward mixi-message-content-regexp nil t) + (mixi-message-set-content message (match-string 1)) + (mixi-realization-error 'cannot-find-content message))) (mixi-object-touch message))) (defun mixi-message-id (message) @@ -2209,17 +2456,17 @@ Increase this value when unexpected error frequently occurs." (defconst mixi-message-list-regexp "") -(defun mixi-get-introductions (&rest args) - "Get introductions." - (when (> (length args) 2) +(defun mixi-get-introductions (&rest friend-or-range) + "Get introductions of FRIEND." + (when (> (length friend-or-range) 2) (signal 'wrong-number-of-arguments - (list 'mixi-get-introduction (length args)))) - (let ((friend (nth 0 args)) - (range (nth 1 args))) + (list 'mixi-get-introduction (length friend-or-range)))) + (let ((friend (nth 0 friend-or-range)) + (range (nth 1 friend-or-range))) (when (or (not (mixi-friend-p friend)) (mixi-friend-p range)) - (setq friend (nth 1 args)) - (setq range (nth 0 args))) + (setq friend (nth 1 friend-or-range)) + (setq range (nth 0 friend-or-range))) (unless (or (null friend) (mixi-friend-p friend)) (signal 'wrong-type-argument (list 'mixi-friend-p friend))) (let* ((regexp (if friend mixi-introduction-list-regexp @@ -2324,6 +2605,207 @@ Increase this value when unexpected error frequently occurs." (nth 2 item))) items)))) +;; News object. +(defvar mixi-news-cache (make-hash-table :test 'equal)) +(defun mixi-make-news (media-id id &optional media time title content) + "Return a news object." + (mixi-make-cache (list media-id id) + (cons 'mixi-news (vector nil media-id id media time title + content)) + mixi-news-cache)) + +(defconst mixi-news-url-regexp + "/view_news\\.pl\\?id=\\([0-9]+\\)&media_id=\\([0-9]+\\)") + +(defun mixi-make-news-from-url (url) + "Return a news object from URL." + (when (string-match mixi-news-url-regexp url) + (let ((id (match-string 1 url)) + (media-id (match-string 2 url))) + (mixi-make-news media-id id)))) + +(defmacro mixi-news-p (news) + `(eq (mixi-object-class ,news) 'mixi-news)) + +(defmacro mixi-news-page (news) + `(concat "http://news.mixi.jp/view_news.pl?id=" (mixi-news-id ,news) + "&media_id=" (mixi-news-media-id ,news))) + +(defconst mixi-news-title-regexp + "") +(defconst mixi-news-media-time-regexp + "") +(defconst mixi-news-content-regexp + "\\|
\\)") + +(defun mixi-realize-news (news) + "Realize a NEWS." + ;; FIXME: Check a expiration of cache? + (unless (mixi-object-realized-p news) + (with-mixi-retrieve (mixi-news-page news) + (if (re-search-forward mixi-news-title-regexp nil t) + (mixi-news-set-title news (match-string 1)) + (mixi-realization-error 'cannot-find-title news)) + (if (re-search-forward mixi-news-media-time-regexp nil t) + (progn + (mixi-news-set-media news (match-string 1)) + (let ((year (nth 5 (decode-time (current-time)))) + (month (nth 4 (decode-time (current-time)))) + (month-of-item (string-to-number (match-string 2)))) + (when (> month-of-item month) + (decf year)) + (mixi-news-set-time + news (encode-time 0 (string-to-number (match-string 5)) + (string-to-number (match-string 4)) + (string-to-number (match-string 3)) + month year)))) + (mixi-realization-error 'cannot-find-media-time news)) + (if (re-search-forward mixi-news-content-regexp nil t) + (mixi-news-set-content news (match-string 1)) + (mixi-realization-error 'cannot-find-content news))) + (mixi-object-touch news))) + +(defun mixi-news-media-id (news) + "Return the media-id of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aref (cdr news) 1)) + +(defun mixi-news-id (news) + "Return the id of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aref (cdr news) 2)) + +(defun mixi-news-media (news) + "Return the media of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (unless (aref (cdr news) 3) + (mixi-realize-news news)) + (aref (cdr news) 3)) + +(defun mixi-news-time (news) + "Return the time of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (unless (aref (cdr news) 4) + (mixi-realize-news news)) + (aref (cdr news) 4)) + +(defun mixi-news-title (news) + "Return the title of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (unless (aref (cdr news) 5) + (mixi-realize-news news)) + (aref (cdr news) 5)) + +(defun mixi-news-content (news) + "Return the content of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (mixi-realize-news news) + (aref (cdr news) 6)) + +(defun mixi-news-set-media (news media) + "Set the media of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aset (cdr news) 3 media)) + +(defun mixi-news-set-time (news time) + "Set the time of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aset (cdr news) 4 time)) + +(defun mixi-news-set-title (news title) + "Set the title of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aset (cdr news) 5 title)) + +(defun mixi-news-set-content (news content) + "Set the content of NEWS." + (unless (mixi-news-p news) + (signal 'wrong-type-argument (list 'mixi-news-p news))) + (aset (cdr news) 6 content)) + +(defconst mixi-news-category-list '(domestic politics economy area abroad + sports entertainment IT)) + +(defmacro mixi-news-category-p (category) + `(memq ,category mixi-news-category-list)) + +(defun mixi-news-category-id (category) + "Return the id of CATEGORY." + (unless (mixi-news-category-p category) + (signal 'wrong-type-argument (list 'mixi-news-category-p category))) + (number-to-string + (1+ (- (length mixi-news-category-list) + (length (memq category mixi-news-category-list)))))) + +(defconst mixi-news-sort-list '(newest pickup)) + +(defmacro mixi-news-sort-p (sort) + `(memq ,sort mixi-news-sort-list)) + +(defun mixi-news-sort-id (sort) + "Return the id of SORT." + (unless (mixi-news-sort-p sort) + (signal 'wrong-type-argument (list 'mixi-news-sort-p sort))) + (number-to-string + (- (length mixi-news-sort-list) + (length (memq sort mixi-news-sort-list))))) + +(defmacro mixi-news-list-page (category sort) + `(concat "http://news.mixi.jp/list_news_category.pl?page=%d" + "&sort=" (mixi-news-sort-id ,sort) + "&id=" (mixi-news-category-id ,category) + "&type=bn")) + +(defconst mixi-news-list-regexp + " + + + +") + +(defun mixi-get-news (category sort &optional range) + "Get news of CATEGORY and SORT." + (unless (mixi-news-category-p category) + (signal 'wrong-type-argument (list 'mixi-news-category-p category))) + (unless (mixi-news-sort-p sort) + (signal 'wrong-type-argument (list 'mixi-news-sort-p sort))) + (let ((items (mixi-get-matched-items (mixi-news-list-page category sort) + mixi-news-list-regexp + range)) + (year (nth 5 (decode-time (current-time)))) + (month (nth 4 (decode-time (current-time))))) + (mapcar (lambda (item) + (let ((month-of-item (string-to-number (nth 6 item)))) + (when (> month-of-item month) + (decf year)) + (setq month month-of-item) + (mixi-make-news (nth 2 item) (nth 1 item) (nth 5 item) + (encode-time + 0 (string-to-number (nth 9 item)) + (string-to-number (nth 8 item)) + (string-to-number (nth 7 item)) + month year) + (nth 3 item)))) + items))) + (provide 'mixi) ;;; mixi.el ends here
\\(.+\\)
\\(.+\\)
") -(defun mixi-get-messages (&rest args) - "Get messages." - (when (> (length args) 2) +(defun mixi-get-messages (&rest box-or-range) + "Get messages of BOX." + (when (> (length box-or-range) 2) (signal 'wrong-number-of-arguments - (list 'mixi-get-messages (length args)))) - (let ((box (nth 0 args)) - (range (nth 1 args))) + (list 'mixi-get-messages (length box-or-range)))) + (let ((box (nth 0 box-or-range)) + (range (nth 1 box-or-range))) (when (or (not (mixi-message-box-p box)) (mixi-message-box-p range)) - (setq box (nth 1 args)) - (setq range (nth 0 args))) + (setq box (nth 1 box-or-range)) + (setq range (nth 0 box-or-range))) (let ((items (mixi-get-matched-items (mixi-message-list-page (when box (mixi-message-box-name box))) @@ -2229,6 +2476,40 @@ Increase this value when unexpected error frequently occurs." (mixi-make-message (nth 0 item) (nth 1 item))) items)))) +(defmacro mixi-post-message-page (friend) + `(concat "/send_message.pl?id=" (mixi-friend-id friend))) + +(defconst mixi-post-message-key-regexp + "") + +(defconst mixi-post-message-succeed-regexp + "Á÷¿®´°Î»¤·¤Þ¤·¤¿¡£") + +(defun mixi-post-message (friend title content) + "Post a message to FRIEND." + (unless (mixi-friend-p friend) + (signal 'wrong-type-argument (list 'mixi-friend-p friend))) + (unless (stringp title) + (signal 'wrong-type-argument (list 'stringp title))) + (unless (stringp content) + (signal 'wrong-type-argument (list 'stringp content))) + (let ((fields `(("subject" . ,title) + ("body" . ,content) + ("submit" . "main"))) + post-key) + (with-mixi-post-form (mixi-post-message-page friend) fields + (if (re-search-forward mixi-post-message-key-regexp nil t) + (setq post-key (match-string 1)) + (mixi-post-error 'cannot-find-key friend))) + (setq fields `(("post_key" . ,post-key) + ("subject" . ,title) + ("body" . ,content) + ("yes" . "¡¡Á÷¡¡¿®¡¡") + ("submit" . "confirm"))) + (with-mixi-post-form (mixi-post-message-page friend) fields + (unless (re-search-forward mixi-post-message-succeed-regexp nil t) + (mixi-post-error 'cannot-find-succeed friend))))) + ;; Introduction object. (defun mixi-make-introduction (parent owner content) "Return a introduction object." @@ -2300,16 +2581,16 @@ Increase this value when unexpected error frequently occurs."
\\(.+\\)(\\(.+\\) - \\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\))
+ +\\(.+\\) + +? + +\\(
¡¦\\(.+\\) +\\(\\|\\) + +\\(.+\\)\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)