Re: super shimbun class?

[Yuuichi Teranishi <teranisi@xxxxxxxxxx>]

At Tue, 04 Feb 2003 10:13:11 +0900,
中山さん wrote:
> 
> shimbun を使っていて、どんな新聞があるのかなぁと思った時に、全て
> の新聞の一覧が欲しいと思うことがあります。
> 
> 例えば Wanderlust で @/ なグループを作成するとインストールされて
> いる新聞の一覧が見れる。
> 何か shimbun のリストみたいな変数があって、自分で個人的にインストール
> した sb-*.el があればそれに append すれば一覧に入る。
> 
> こんなのできませんかね？

nnshimbun に既にそれっぽい仕組みがありますね．
これを共通化して，shimbun 側にこんな感じのしくみを用意しておく
というのはどうでしょう?

(defcustom shimbun-ignore-list '("ant" "html" "info" "texinfo"
	   			 "image" "gud" "rmail" "w3") ; speedbar files.
  "A list of shimbun names which should be ignored."
  :type '(repeat string)
  :group 'shimbun)
  
(defun shimbun-servers ()
  "Return a shimbun server list."
  (apply 'nconc
	 (mapcar
	  (lambda (d)
	    (and (stringp d)
		 (file-directory-p d)
		 (delq nil
		       (mapcar
			(lambda (f)
			  (and(string-match "^sb-\\(.*\\)\\.el$" f)
			      (not (member (match-string 1 f)
					   shimbun-ignore-list))
			      (match-string 1 f)))
			(directory-files d)))))
	  load-path)))

--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
GPG Public Key: http://www.gohome.org/gpg/teranisi.asc
"So we sailed out of the sun till we found the see of green..."