[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sb-asahi.el
野宮です．
>>>>> In the Message: [emacs-w3m ML: No.09107]
>>>>> with the date of Wed, 24 Jan 2007 14:24:00 +0900
>>>>> [山岡さん] == Katsumi Yamaoka <yamaoka@xxxxxxx> has written:
山岡さん> 野宮さんのものを、さらに箍を緩めて commit しました。
何か，変更の途中だったようで，また読めなくなりました．
以下のパッチで読めますが，如何でしょうか？
--- sb-asahi.el.orig 2007-01-24 18:55:34.000000000 +0900
+++ sb-asahi.el 2007-01-24 22:19:30.000000000 +0900
@@ -529,31 +529,34 @@
("politics" "政治" "%s/list.html" ,@default)
("rss" "RSS" "http://www3.asahi.com/rss/index.rdf"
,(concat
- "<title>" s0
- ;; 1. subject
- "\\([^<]+\\)"
- s0 "</title>" s0 "<link>" s0
- ;; 2. url
+ "<item rdf:about=\""
+ ;; 1. url
"\\(http://www\\.asahi\\.com/"
- ;; 3. extra keyword (en)
+ ;; 2. extra keyword (en)
"\\([^/]+\\)"
"/update/"
- ;; 4 and 5. serial number
+ ;; 3 and 3. serial number
"\\([0-9]+\\)/\\([a-z]*[0-9]+\\)"
- "\\.html\\?ref=rss\\)"
+ "\\.html\\?ref=rss\\)" s0 "\">\n" s0
+ "<title>"
+ ;; 5. subject
+ "\\([^<]+\\)"
+ "</title>\n<link>"
+ ;; 6. link
+ "\\([^<]+\\)"
s0 "</link>" s0 "<description" s0 "/>" s0 "<dc:subject>" s0
- ;; 6. extra keyword (ja)
+ ;; 7. extra keyword (ja)
"\\([^<]+\\)"
- s0 "</dc:subject>" s0 "<dc:date>" s0 "20[0-9][0-9]-"
- ;; 7. month
+ "</dc:subject>\n<dc:date>20[0-9][0-9]-"
+ ;; 8. month
"\\([01][0-9]\\)"
"-"
- ;; 8. day
+ ;; 9. day
"\\([0-3][0-9]\\)"
"T"
- ;; 9. hour:min:sec
- "\\([012][0-9]:[0-5][0-9]:[0-5][0-9]\\)")
- 2 4 5 1 nil 7 8 9 3 nil 6)
+ ;; 10. hour:min:sec
+ "\\([012][0-9]:[0-5][0-9]:[0-9][0-9]\\)")
+ 1 3 4 5 nil 8 9 10 2 nil 7)
("science" "サイエンス" "%s/list.html"
,@(shimbun-asahi-make-regexp "science.news"))
("shopping" "ショッピング" "%s/"
---
野宮