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

sb-slashdot-jp



長です。

サイエンスセクションもできたので
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)