Re: dired で w3m-find-file

[Hideyuki SHIRAI ( 白井秀行 ) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: SUGITA Toshinori <sugita@d-pad.co.jp> さん曰く
Subject: [emacs-w3m:02909] dired で w3m-find-file
Message-ID: <20020308.121310.846954287.sugita@d-pad.co.jp>
Date: Fri, 08 Mar 2002 12:13:10 +0900 (JST)

杉田> 最近、ローカルにあるHTMLファイルをemacs-w3mで開きたいと思うことが
杉田> よくあるので、diredモードからファイルをポイントした状態で
杉田> w3m-find-file [filename] みたいなことがやりたくて、調べてみたのですが
杉田> よくわかりません。

杉田> diredモードのキーマップに追加すればいいと言うことはわかるのですが、
杉田> diredモードのキーマップが何という名前で、どういう関数を使って
杉田> 追加すればいいのかすらわかりません。

杉田> ポインタでも結構ですので教えていただけるとありがたいです。

# う〜ん、ちょっと悲しい ;_;

TIPS(.ja) をどうぞ。

ぼくは最近は octet も使うのでこうしています。

(defvar dired-w3m-octet-find-file-use-dtree t)

(defun dired-w3m-octet-find-file (&optional arg)
  "w3m か octet を立ち上げる。
directory => w3m-dtree
html or C-u => w3m
other => octet"
  (interactive "P")
  (require 'w3m)
  (let ((file (dired-get-filename)))
    (when (y-or-n-p (format "Open \"%s\" with 'w3m/octet' ? "
			    (file-name-nondirectory file)))
      (cond
       ((and dired-w3m-octet-find-file-use-dtree
	     (file-directory-p file)
	     (not arg))
	(w3m-dtree arg file))
       ((or arg
	    (string-match "s?html?$" file)
	    (and (not dired-w3m-octet-find-file-use-dtree)
		 (file-directory-p file)))
	(w3m-find-file file))
       ((featurep 'octet)
	(octet-find-file file))))))

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)