[kansaipm] Re: [Q] M-x perldoc したい

[Kiyoka Nishiyama]

kiyokaです。
前田さん、回答ありがとうございます。

> 前田@Tokyo.pmです。
(snip)
> ……
> 
> あっ、5.6.0付属のpod2manだと可能ですね。
> 
> ……
> 
> こんな関数作ってみましたが、M-! perldoc -t -q localtimeの方がよ
> さそうです。
> 
> (defun perldoc (args)
>   "Refer perldoc"
>   (interactive "sLookup perldoc: \n")
> 
>   (let ((manual-program "perldoc -u ")
> 	(Man-filter-list (append '(("pod2man")
> 				   ("nroff -man"))
> 				 Man-filter-list)))
>     (man args)))
> 
> # 実際に使っているのはActivePerl build 616なので、
> # 普通の5.6.0ではできないかも。そうだったらごめんなさい。

そうです。このような10行くらいのものが欲しかったんです。
私は、perl5.005 を使ってますので、 pod2man を引数なしで使うと
オプションが無いといわれてしまいました。

で、以下のようにして使わせていただいてます。

(1) pod2man_filter というスクリプトを用意した。(このコードきたなすぎますけどね)

    #!/bin/sh
    cat > /tmp/tmpfile
    pod2man  /tmp/tmpfile 

(2) 上記の一行を変更
    (Man-filter-list (append '(("pod2man")             を
    (Man-filter-list (append '(("pod2man_filter")      に変更 


やった!
M-x perldoc perldoc でめでたくドキュエメントが出てきました。

ありがとうございました。
+---
 Kiyoka Nishiyama <kiyoka at netfort.gr.jp>
 http://www.netfort.gr.jp/~kiyoka/