[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

sb-wired.el



野宮です。

Hotwired JapanのWeb構成が変わり、読めなくなりましたので、わけも解らず
に手を入れましたところ、以下のパッチで一応読めるようにはなりました。
が、これで良いのか、わけワカメ....(_ _?

お手隙の折にでもお眼通し願えれば幸甚です。m(_ _)m

--- sb-wired.el.orig	2004-10-21 20:28:40.000000000 +0900
+++ sb-wired.el	2004-10-21 20:21:34.000000000 +0900
@@ -35,12 +35,12 @@
 
 (luna-define-class shimbun-wired (shimbun-lump) ())
 
-(defvar shimbun-wired-url "http://www.hotwired.co.jp/")
+(defvar shimbun-wired-url "http://hotwired.goo.ne.jp/")
 (defvar shimbun-wired-groups '("business" "culture" "technology"))
 (defvar shimbun-wired-from-address "webmaster@www.hotwired.co.jp")
 (defvar shimbun-wired-content-start
-  "\\(\n<!-- articles -->\\|<FONT color=\"#ff0000\" size=\"-1\">.*</FONT>\\)\n")
-(defvar shimbun-wired-content-end "\\(\n<!-- /articles -->\n\\|<DIV ALIGN=\"RIGHT\">\\[\\)")
+  "\\(\n<!-- ARTICLE/-->\\|<FONT color=\"#ff0000\" size=\"-1\">.*</FONT>\\)\n")
+(defvar shimbun-wired-content-end "\\(\n<!-- /ARTICLE-->\n\\|<DIV ALIGN=\"RIGHT\">\\[\\)")
 (defvar shimbun-wired-x-face-alist
   '(("default" . "X-Face: \"yhMDxMBowCFKt;5Q$s_Wx)/'L][0@c\"#n\
 2BwH{7mg]5^w1D]\"K^R]&fZ5xtt1Ynu6V;Cv(\n @BcZUf9IV$($6TZ`L)$,c\
@@ -54,18 +54,18 @@
 				    (shimbun-groups-internal shimbun)))
 	(case-fold-search t)
 	(regexp (format
-		 "<a href=\"\\(%s\\|/\\)\\(news/news/\\(%s\\)/story/\\(\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)[0-9]+\\)\\.html\\)[^>]*\">"
+		 "<a href=\"\\(%s\\|/\\)\\(news/\\(%s\\)/story/\\(\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)[0-9]+\\)\\.html\\)[^>]*\">"
 		 (regexp-quote (shimbun-url-internal shimbun))
 		 (shimbun-regexp-opt (shimbun-groups-internal shimbun))))
 	ids)
     (dolist (xover (list (concat (shimbun-url-internal shimbun)
-				 "news/news/index.html")
+				 "news/index.html")
 			 (concat (shimbun-url-internal shimbun)
-				 "news/news/last_seven.html")))
+				 "news/last_seven.html")))
       (with-temp-buffer
 	(shimbun-retrieve-url xover t)
 	(goto-char (point-min))
-	(search-forward "<!-- articles -->" nil t) ; Jump to article list.
+	(search-forward "<!-- ARTICLE/-->" nil t) ; Jump to article list.
 	(while (re-search-forward regexp nil t)
 	  (let* ((url   (concat (shimbun-url-internal shimbun)
 				(match-string 2)))
@@ -82,7 +82,7 @@
 				      (split-string
 				       (buffer-substring
 					(match-end 0)
-					(progn (search-forward "</b>" nil t) (point)))
+					(progn (search-forward "</span>" nil t) (point)))
 				       "<[^>]+>")
 				      ""))
 			  (shimbun-from-address shimbun)

---
  野宮  賢             mail-to: nomiya@ttmy.ne.jp

          "Bill! You married with Computers.
           Not with Me!"
          "No..., with money."