sb-nikkei.el 地域経済面

[野宮 賢 / NOMIYA Masaru <nomiya@xxxxxxxxxx>]

野宮です。

お忙しいところ、度々申し訳ありません。m(_ _)m

shimbunで日経新聞の「地域経済面」を読めないものかと、以前の
sb-nikkei.elの「地域経済面」の部分をを参考にして手を入れてみました。
が、どうやっても最初記事だけしか取り込みことが出来ず、お手上げの状態で
す。^^;;;

お手隙の折にでもご校閲賜れば、幸いです。m(_ _)m
尚、ご参考にはならないとは思いますが、作成したパッチを添付致します。

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

       「eメールや携帯電話に縛られた社会は、自分自身と向き合ったり、
        空想にふけったりする自由を奪う。」
                                                  -- M. Crichton --

--- sb-nikkei.el.orig	2004-12-06 09:55:22.000000000 +0900
+++ sb-nikkei.el	2004-12-26 18:25:18.000000000 +0900
@@ -71,6 +71,9 @@
     ("shakai" "社会" ,(concat shimbun-nikkei-url "news/shakai/")
      shimbun-nikkei-get-headers-default
      shimbun-nikkei-prepare-article-default)
+    ("retto" "地域経済" ,(concat shimbun-nikkei-url "news/retto/")
+     shimbun-nikkei-get-headers-retto
+     shimbun-nikkei-prepare-article-retto)
     ("sports" "スポーツ" "http://sports.nikkei.co.jp/"
      shimbun-nikkei-get-headers-sports
      shimbun-nikkei-prepare-article-sports)
@@ -273,6 +276,50 @@
 	    headers))
     (shimbun-nikkei-get-headers-default group folder headers)))
 
+(defun shimbun-nikkei-get-headers-retto (group folder)
+  "Function used to fetch headers for the `retto' group."
+  (let (headers)
+    (when (re-search-forward
+	   (eval-when-compile
+	     (let ((s0 "[\t\n ]*")
+		   (s1 "[\t\n ]+"))
+             (concat "<AREA21" s1 "HEADLINE=\""
+		;; 1. subject
+		"\\([^\"]+\\)"
+		"\"" s1 "URL=\""
+		;; 2. url
+		"\\("
+		;; 3. serial number
+		"\\(20[0-9][0-9][01][0-9][0-9a-z]+\\)"
+		"\\.html\\)"
+		"\"" s1 "ARTICLE_TIME=\""
+		;; 4. year
+		"\\(20[0-9][0-9]\\)" "/"
+		;; 5. month
+		"\\([01][0-9]\\)" "/"
+		;; 6. day
+		"\\([0-3][0-9]\\)" s1
+		;; 7. hour:minute
+		"\\([012][0-9]:[0-5][0-9]\\)"
+		"\"" s1 "\\([A-Z]+=\"[^\"]*\"" s1 "\\)+BASE_URL=\"/?"
+		;; 9. base-url
+		"\\([^\"]+\\)" "\""))))
+      (push (shimbun-create-header
+	     0
+	     (match-string 1)
+	     shimbun-nikkei-from-address
+	     (shimbun-nikkei-make-date-string
+	      (string-to-number (match-string 4))
+	      (string-to-number (match-string 5))
+	      (string-to-number (match-string 6))
+	      (match-string 7))
+	     (concat "<" (match-string 3) "%" group "."
+		     shimbun-nikkei-top-level-domain ">")
+	     "" 0 0
+	     (shimbun-nikkei-expand-url (match-string 2) folder))
+	    headers))
+    (shimbun-nikkei-get-headers-default group folder headers)))
+
 (defun shimbun-nikkei-get-headers-market (group folder)
   "Function used to fetch headers for the market group."
   (let ((subregexp
@@ -614,6 +661,18 @@
       (goto-char (match-beginning 0))
       (insert shimbun-nikkei-content-end))))
 
+(defun shimbun-nikkei-prepare-article-retto (&rest args)
+  "Function used to prepare contents of an article for the sports group."
+  (when (re-search-forward "\
+<!--[\t\n ]*FJZONE[\t\n ]+START[\t\n ]+NAME=\"HONBUN\"[\t\n ]+-->"
+			   nil t)
+    (insert shimbun-nikkei-content-start)
+    (when (re-search-forward "\
+<!--[\t\n ]*FJZONE[\t\n ]*END[\t\n ]*NAME=\"HONBUN\"[\t\n ]+-->"
+			     nil t)
+      (goto-char (match-beginning 0))
+      (insert shimbun-nikkei-content-end))))
+
 (defun shimbun-nikkei-prepare-article-newpro (&rest args)
   "Function used to prepare contents of an article for the newpro group."
   (let (photo-end body)