[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 朝日新聞
野宮です。
「AERA発マネー」、「ロイターニュース」、「東洋経済ニュース」を読むこと
が出来るようにしました。
お手数をお掛けして申し訳けないのですが、ご確認・コミットを宜しくお願い致し
ます。m(_ _)m
2006-0404 Masaru Nomiya <nomiyac360@xxxxxxxxxxxxxx>
*shimbun/sb-asahi.el (shimbun-asahi.group-table): Add
business.aera, business.reuter, and business.toyo
--- sb-asahi.el.orig 2006-04-04 13:44:53.000000000 +0900
+++ sb-asahi.el 2006-04-04 13:45:48.000000000 +0900
@@ -230,6 +230,83 @@
("business" "ビジネス" "%s/list.html" ,@default)
;; The url should be ended with "index.html".
("business.column" "経済気象台" "business/column/index.html" ,@default2)
+ ("business.aera" "AERA発マネー" "business/aera/index.html"
+ ,(concat
+ "<a" s1 "href=\""
+ ;; 1. url
+ "\\(/business/aera/TKY"
+ ;; 2. serial number
+ "\\("
+ ;; 3. year
+ "\\(20[0-9][0-9]\\)"
+ ;; 4. month
+ "\\([01][0-9]\\)"
+ ;; 5. day
+ "\\([0-3][0-9]\\)"
+ "\\([0-9]+\\)"
+ "\\.html\\)\\)"
+ "\"" s0 ">" s0
+ ;; 7. subject
+ "\\(" no-nl "\\)"
+ "</a><span class=\"f80\">"
+ )
+ 1 2 nil 7 3 4 5 nil)
+ ("business.reuter" "ロイターニュース" "business/list_reuters.html"
+ ,(concat
+ "<a" s1 "href=\""
+ ;; 1. url
+ "\\(/business/reuters/RTR"
+ ;; 2. serial number
+ "\\("
+ ;; 3. year
+ "\\(20[0-9][0-9]\\)"
+ ;; 4. month
+ "\\([01][0-9]\\)"
+ ;; 5. day
+ "\\([0-3][0-9]\\)"
+ "\\([0-9]+\\)"
+ "\\.html\\)\\)"
+ "\"" s0 ">" s0
+ ;; 7. subject
+ "\\(" no-nl "\\)"
+ "</a><span class=\"f80\">" s0 "("
+ ;; 8 month
+ "\\([01][0-9]\\)"
+ "/"
+ ;; 9.day
+ "\\([0-3][0-9]\\)" s1
+ ;; 10. hour:min:sec
+ "\\([012][0-9]:[0-5][0-9]\\)"
+ ")")
+ 1 2 nil 7 3 4 5 10)
+ ("business.toyo" "東洋経済ニュース" "business/list_toyo.html"
+ ,(concat
+ "<a" s1 "href=\""
+ ;; 1. url
+ "\\(/business/toyo/[a-z]+/TKZ"
+ ;; 2. serial number
+ "\\("
+ ;; 3. year
+ "\\(20[0-9][0-9]\\)"
+ ;; 4. month
+ "\\([01][0-9]\\)"
+ ;; 5. day
+ "\\([0-3][0-9]\\)"
+ "\\([0-9]+\\)"
+ "\\.html\\)\\)"
+ "\"" s0 ">" s0
+ ;; 7. subject
+ "\\(" no-nl "\\)"
+ "</a><span class=\"f80\">" s0 "("
+ ;; 8 month
+ "\\([01][0-9]\\)"
+ "/"
+ ;; 9.day
+ "\\([0-3][0-9]\\)" s1
+ ;; 10. hour:min:sec
+ "\\([012][0-9]:[0-5][0-9]\\)"
+ ")")
+ 1 2 nil 7 3 4 5 10)
("car" "愛車" "%s/news/" ,@(shimbun-asahi-make-regexp "car.news"))
("car.italycolumn" "イタリア発アモーレ!モトーレ!" nil ,@default2)
("car.motorsports" "モータースポーツ" nil ,@default2)
---
野宮 賢 mail-to: nomiyac360 @ mg.point.ne.jp
- References:
- 朝日新聞
- From: 野宮 賢 / NOMIYA Masaru