[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sb-slashdot-jp
- From: Tsuyoshi CHO <mfalcon21@xxxxxxxxxxx>
- Date: Sat, 21 Feb 2004 16:42:01 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 06487
長です。
サイエンスセクションもできたので
sb-slashdot-jpをセクション対応にしてみました。
まだあまりEmacs lispに詳しくない上でのQuickHackなので、
おかしかったら、指摘していただきたいです。
==余談
/.Jのユーザーの日記ページが
http://slashdot.jp/journal.pl?op=display&uid= + UserID + &content_type=rss
でRSSを取得できるみたいです。
対応していただけたらうれしいです。
# 私する暇があれば...(w
--
Tsuyoshi CHO <mfalcon21@hotmail.com>
--- /tools/Meadow2/backup_lisp/w3m/sb-slashdot-jp.el 2004-01-23 12:36:21.001000000 +0900
+++ ./sb-slashdot-jp.el 2004-02-21 16:33:08.000000000 +0900
@@ -72,17 +72,32 @@
(luna-define-class shimbun-slashdot-jp (shimbun-rss) ())
-(defvar shimbun-slashdot-jp-url "http://slashdot.jp/slashdot.rdf")
-(defvar shimbun-slashdot-jp-groups '("story"))
-(defvar shimbun-slashdot-jp-from-address "webmaster@slashdot.jp")
+(defvar shimbun-slashdot-jp-group-path-alist
+ '(("story" . "http://slashdot.jp/slashdot.rdf")
+ ("askslashdot" . "http://slashdot.jp/askslashdot.rdf")
+ ("bookreview" . "http://slashdot.jp/books.rdf")
+ ("bsd" . "http://slashdot.jp/bsd.rdf")
+ ("developers" . "http://slashdot.jp/developers.rdf")
+ ("interview" . "http://slashdot.jp/interview.rdf")
+ ("linuxkernel" . "http://slashdot.jp/linuxkernel.rdf")
+ ("mac" . "http://slashdot.jp/mac.rdf")
+ ("mobile" . "http://slashdot.jp/mobile.rdf")
+ ("science" . "http://slashdot.jp/science.rdf")
+ ("security" . "http://slashdot.jp/security.rdf")
+ ("slash" . "http://slashdot.jp/slash.rdf")))
+(defvar shimbun-slashdot-jp-from-address "slashmaster@slashdot.jp")
(defvar shimbun-slashdot-jp-coding-system 'euc-japan)
(defvar shimbun-slashdot-jp-content-start
"\n<!-- start template: ID [0-9]+,.*dispStory.* -->\n")
(defvar shimbun-slashdot-jp-content-end
"\n<!-- end template: ID [0-9]+,.*dispStory.*-->\n")
+(luna-define-method shimbun-groups ((shimbun shimbun-slashdot-jp))
+ (mapcar 'car shimbun-slashdot-jp-group-path-alist))
+
(luna-define-method shimbun-index-url ((shimbun shimbun-slashdot-jp))
- shimbun-slashdot-jp-url)
+ (cdr (assoc (shimbun-current-group-internal shimbun)
+ shimbun-slashdot-jp-group-path-alist)))
(luna-define-method shimbun-rss-build-message-id
((shimbun shimbun-slashdot-jp) url date)