;;; sb-yahoo-auctions.el --- shimbun backend for Yahoo! AUCTIONS ;; Copyright (C) 2005 ARISAWA Akihiro ;; Author: ARISAWA Akihiro ;; Keywords: news ;; This file is a part of shimbun. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, you can either send email to this ;; program's maintainer or write to: The Free Software Foundation, ;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA. ;;; Code: (require 'shimbun) (require 'sb-rss) (luna-define-class shimbun-yahoo-auctions (shimbun-rss) ()) (defcustom shimbun-yahoo-auctions-group-alist nil "*An alist of Yahoo! AUCTIONS group definition. Each element looks like (NAME URL). NAME is a shimbun group name. URL is the URL for category or search result." :group 'shimbun :type '(repeat (cons :format "%v" (string :tag "Group name") (string :tag "URL")))) (defvar shimbun-yahoo-auctions-content-start "

") (defvar shimbun-yahoo-auctions-content-end nil) (luna-define-method shimbun-groups ((shimbun shimbun-yahoo-auctions)) (mapcar 'car shimbun-yahoo-auctions-group-alist)) (luna-define-method shimbun-group-p ((shimbun shimbun-yahoo-auctions) group) t) (luna-define-method shimbun-from-address ((shimbun shimbun-yahoo-auctions)) (format "Yahoo!オークション (%s)" (shimbun-current-group shimbun))) (luna-define-method shimbun-index-url ((shimbun shimbun-yahoo-auctions)) (let* ((group (shimbun-current-group shimbun)) (elem (assoc group shimbun-yahoo-auctions-group-alist))) (if elem (cdr elem) (concat "http://search.auctions.yahoo.co.jp/search_rss?p=" (shimbun-url-encode-string group 'euc-japan))))) (luna-define-method shimbun-rss-build-message-id ((shimbun shimbun-yahoo-auctions) url date) (unless (string-match "\$[^/]+\$$" url) (error "Cannot find message-id base")) (format "<%s@auctions.yahoo.co.jp>" (match-string 1 url))) (luna-define-method shimbun-get-headers ((shimbun shimbun-yahoo-auctions) &optional range) (nreverse (shimbun-rss-get-headers shimbun range t t))) (luna-define-method shimbun-article-url :around ((shimbun shimbun-yahoo-auctions) header) (shimbun-real-url (luna-call-next-method))) (luna-define-method shimbun-make-contents ((shimbun shimbun-yahoo-auctions) header) (let ((case-fold-search t)) (goto-char (point-min)) (when (and (stringp (shimbun-content-start-internal shimbun)) (re-search-forward (shimbun-content-start-internal shimbun) nil t)) (delete-region (point-min) (point)) (insert "\n\n\n\n\n")) (when (and (stringp (shimbun-content-end-internal shimbun)) (re-search-forward (shimbun-content-end-internal shimbun) nil t)) (delete-region (match-beginning 0) (point-max)) (insert (shimbun-footer shimbun header t) "\n\n\n"))) (shimbun-make-mime-article shimbun header) (buffer-string)) (provide 'sb-yahoo-auctions) ;;; sb-yahoo-auctions.el ends here