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

w3m-weather



杉山です。

いつの頃からか定かではないのですが、
w3m-weather が動かなくなってました。
調べてみると、北海道を除いて都府県
単位での html に変更になったようです。

こんな patch で動くようになりますが、
元々の動きとあってますでしょうか?

-- 
杉山 武信

--- w3m-weather.el~	Fri Aug 10 14:32:04 2001
+++ w3m-weather.el	Fri Aug 10 16:24:28 2001
@@ -48,156 +48,66 @@
   (eval-when-compile
     (let ((format "http://channel.goo.ne.jp/weather/area/%s.html")
 	  (alist
-	   '(("北海道・宗谷地方" . "011")
-	     ("北海道・網走地方" . "021")
-	     ("北海道・北見地方" . "022")
-	     ("北海道・紋別地方" . "023")
-	     ("北海道・上川地方" . "031")
-	     ("北海道・留萌地方" . "032")
-	     ("北海道・釧路地方" . "041")
-	     ("北海道・根室地方" . "042")
-	     ("北海道・十勝地方" . "043")
-	     ("北海道・胆振地方" . "051")
-	     ("北海道・日高地方" . "052")
-	     ("北海道・石狩地方" . "061")
-	     ("北海道・空知地方" . "062")
-	     ("北海道・後志地方" . "063")
-	     ("北海道・渡島地方" . "071")
-	     ("北海道・檜山地方" . "072")
-	     ("青森県・津軽地方" . "081")
-	     ("青森県・下北地方" . "082")
-	     ("青森県・三八上北地方" . "083")
-	     ("秋田県・沿岸部" . "091")
-	     ("秋田県・内陸部" . "092")
-	     ("岩手県・内陸部" . "101")
-	     ("岩手県・沿岸北部" . "102")
-	     ("岩手県・沿岸南部" . "103")
-	     ("山形県・村山地方" . "111")
-	     ("山形県・置賜地方" . "112")
-	     ("山形県・庄内地方" . "113")
-	     ("山形県・最上地方" . "114")
-	     ("宮城県・平野部" . "121")
-	     ("宮城県・山沿い" . "122")
-	     ("福島県・中通り" . "131")
-	     ("福島県・浜通り" . "132")
-	     ("福島県・会津地方" . "133")
-	     ("新潟県・下越地方" . "141")
-	     ("新潟県・中越地方" . "142")
-	     ("新潟県・上越地方" . "143")
-	     ("新潟県・佐渡島" . "144")
-	     ("富山県・東部" . "151")
-	     ("富山県・西部" . "152")
-	     ("石川県・加賀地方" . "161")
-	     ("石川県・能登地方" . "162")
-	     ("福井県・嶺北" . "171")
-	     ("福井県・嶺南" . "172")
-	     ("栃木県・南部" . "181")
-	     ("栃木県・北部" . "182")
-	     ("群馬県・南部" . "191")
-	     ("群馬県・北部" . "192")
-	     ("埼玉県・南部" . "201")
-	     ("埼玉県・北部" . "202")
-	     ("埼玉県・秩父地方" . "203")
-	     ("茨城県・北部" . "211")
-	     ("茨城県・南部" . "212")
-	     ("千葉県・北西部" . "221")
-	     ("千葉県・北東部" . "222")
-	     ("千葉県・南部" . "223")
-	     ("東京都" . "231")
-	     ("東京都・伊豆諸島北部" . "232")
-	     ("東京都・伊豆諸島南部" . "233")
-	     ("東京都・小笠原" . "234")
-	     ("神奈川県・東部" . "261")
-	     ("神奈川県・西部" . "262")
-	     ("長野県・北部" . "271")
-	     ("長野県・中部" . "272")
-	     ("長野県・南部" . "273")
-	     ("山梨県・中西部" . "281")
-	     ("山梨県・東部富士五湖" . "282")
-	     ("静岡県・中部" . "291")
-	     ("静岡県・西部" . "292")
-	     ("静岡県・東部" . "293")
-	     ("静岡県・伊豆地方" . "294")
-	     ("岐阜県・美濃地方" . "301")
-	     ("岐阜県・飛騨地方" . "302")
-	     ("三重県・北中部" . "311")
-	     ("三重県・南部" . "312")
-	     ("愛知県・西部" . "321")
-	     ("愛知県・東部" . "322")
-	     ("京都府・南部" . "331")
-	     ("京都府・北部" . "332")
-	     ("兵庫県・南部" . "341")
-	     ("兵庫県・北部" . "342")
-	     ("奈良県・北部" . "351")
-	     ("奈良県・南部" . "352")
-	     ("滋賀県・南部" . "361")
-	     ("滋賀県・北部" . "362")
-	     ("和歌山県・北部" . "371")
-	     ("和歌山県・南部" . "372")
-	     ("大阪府" . "381")
-	     ("鳥取県・東部" . "391")
-	     ("鳥取県・西部" . "392")
-	     ("島根県・東部" . "401")
-	     ("島根県・西部" . "402")
-	     ("島根県・隠岐諸島" . "403")
-	     ("岡山県・南部" . "411")
-	     ("岡山県・北部" . "412")
-	     ("広島県・南部" . "421")
-	     ("広島県・北部" . "422")
-	     ("山口県・西部" . "431")
-	     ("山口県・中部" . "432")
-	     ("山口県・東部" . "433")
-	     ("山口県・北部" . "434")
-	     ("香川県" . "441")
-	     ("愛媛県・中予地方" . "451")
-	     ("愛媛県・東予地方" . "452")
-	     ("愛媛県・南予地方" . "453")
-	     ("徳島県・北部" . "461")
-	     ("徳島県・南部" . "462")
-	     ("高知県・中部" . "471")
-	     ("高知県・東部" . "472")
-	     ("高知県・西部" . "473")
-	     ("福岡県・福岡地方" . "481")
-	     ("福岡県・北九州地方" . "482")
-	     ("福岡県・筑豊地方" . "483")
-	     ("福岡県・筑後地方" . "484")
-	     ("大分県・中部" . "491")
-	     ("大分県・北部" . "492")
-	     ("大分県・西部" . "493")
-	     ("大分県・南部" . "494")
-	     ("佐賀県・南部" . "501")
-	     ("佐賀県・北部" . "502")
-	     ("熊本県・熊本地方" . "511")
-	     ("熊本県・阿蘇地方" . "512")
-	     ("熊本県・天草芦北地方" . "513")
-	     ("熊本県・球磨地方" . "514")
-	     ("宮崎県・南部平野" . "521")
-	     ("宮崎県・南部山沿い" . "522")
-	     ("宮崎県・北部平野" . "523")
-	     ("宮崎県・北部山沿い" . "524")
-	     ("長崎県・南部" . "531")
-	     ("長崎県・北部" . "532")
-	     ("長崎県・壱岐対馬地方" . "533")
-	     ("長崎県・五島地方" . "534")
-	     ("鹿児島県・薩摩地方" . "561")
-	     ("鹿児島県・大隅地方" . "562")
-	     ("鹿児島県・種子島" . "563")
-	     ("鹿児島県・屋久島" . "563")
-	     ("奄美諸島" . "564")
-	     ("沖縄県・中南部" . "591")
-	     ("沖縄県・北部" . "592")
-	     ("沖縄県・久米島" . "593")
-	     ("沖縄県・大東島" . "594")
-	     ("沖縄県・宮古島" . "595")
-	     ("沖縄県・石垣島" . "596")
-	     ("沖縄県・与那国島" . "597"))))
+	   '(("北海道・稚内" . "1")
+	     ("北海道・網走" . "2")
+	     ("北海道・旭川" . "3")
+	     ("北海道・釧路" . "4")
+	     ("北海道・室蘭" . "5")
+	     ("北海道・札幌" . "6")
+	     ("北海道・函館" . "7")
+	     ("青森県" . "8")
+	     ("秋田県" . "9")
+	     ("岩手県" . "10")
+	     ("山形県" . "11")
+	     ("宮城県" . "12")
+	     ("福島県" . "13")
+	     ("新潟県" . "14")
+	     ("富山県" . "15")
+	     ("石川県" . "16")
+	     ("福井県" . "17")
+	     ("栃木県" . "18")
+	     ("群馬県" . "19")
+	     ("埼玉県" . "20")
+	     ("茨城県" . "21")
+	     ("千葉県" . "22")
+	     ("東京都" . "23")
+	     ("神奈川県" . "26")
+	     ("長野県" . "27")
+	     ("山梨県" . "28")
+	     ("静岡県" . "29")
+	     ("岐阜県" . "30")
+	     ("三重県" . "31")
+	     ("愛知県" . "32")
+	     ("京都府" . "33")
+	     ("兵庫県" . "34")
+	     ("奈良県" . "35")
+	     ("滋賀県" . "36")
+	     ("和歌山県" . "37")
+	     ("大阪府" . "38")
+	     ("鳥取県" . "39")
+	     ("島根県" . "40")
+	     ("岡山県" . "41")
+	     ("広島県" . "42")
+	     ("山口県" . "43")
+	     ("香川県" . "44")
+	     ("愛媛県" . "45")
+	     ("徳島県" . "46")
+	     ("高知県" . "47")
+	     ("福岡県" . "48")
+	     ("大分県" . "49")
+	     ("佐賀県" . "50")
+	     ("熊本県" . "51")
+	     ("宮崎県" . "52")
+	     ("長崎県" . "53")
+	     ("鹿児島県" . "56")
+	     ("沖縄県" . "59"))))
       (mapcar (lambda (area)
 		(cons (car area) (format format (cdr area))))
 	      alist)))
   "Associative list of regions and urls.")
 
 (defcustom w3m-weather-default-area
-  "京都府・南部"
+  "京都府"
   "Default region to check weateher."
   :group 'w3m
   :type (cons 'radio
@@ -265,7 +175,7 @@
   "Remove images which stand for weather forecasts."
   (let ((case-fold-search t) start end)
     (goto-char (point-min))
-    (and (re-search-forward
+    (while (re-search-forward
 	  "\\(<td[^>]*>天気</td>\\)[ \t\r\f\n]*<td[^>]*><img src=\"/weather/images/"
 	  nil t)
 	 (setq start (match-beginning 1)