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

Re: w3m-find-file への要望： method 明示 

>> On Thu, 17 May 2001 16:39:57 +0900 (JST)
>> 「中」== tknakaga@kanagawa.hitachi.co.jp (NAKAGAWA Takayuki) said as follows:

中> さて、w3m-find-file への要望ですが、method（or type? "text/html" と
中> か）をオプションで指定できるようにできないでしょうか。

quick hack で実装してみました。


(defun w3m-find-file (file &optional type)
  "w3m Interface function for local file."
  (interactive
   (list
    (read-file-name "Filename: ")
    (if current-prefix-arg
	(completing-read "Content-Type: "
			 (mapcar (lambda (x) (cons (car x) (car x)))
				 w3m-content-type-alist)
			 nil
			 'require-match))))
  (let ((w3m-content-type-alist w3m-content-type-alist))
    (when type
      (setq w3m-content-type-alist
	    (list (list type
			"."
			(nth 2 (cdr (assoc type w3m-content-type-alist)))))))
    (w3m-goto-url (w3m-expand-file-name-as-url file))))


なんていうか、乱暴な手口ですけど。

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/