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

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



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

中> ううむ。こんな手があったのか。

面白そうな問題を横から取ってしまって、すみません。


土> 	(completing-read "Content-Type: "
土> 			 (mapcar (lambda (x) (cons (car x) (car x)))
土> 				 w3m-content-type-alist)

中> ここの mapcar は不要で、単に w3m-content-type-alist を渡せば良
中> いようです。

あ、そうですね。というわけで改良版です。


(defcustom w3m-default-content-type "text/html"
  "*Default content type of local files."
  :group 'w3m
  :type 'string)

(defun w3m-find-file (file &optional type)
  "w3m Interface function for local file."
  (interactive
   (let* ((f (read-file-name "Filename: "))
	  (ct (if current-prefix-arg
		  (completing-read (format "Input %s's content type (default %s): "
					   (file-name-nondirectory f)
					   w3m-default-content-type)
				   w3m-content-type-alist nil t))))
     (list f (and ct (if (string= "" ct) w3m-default-content-type ct)))))
  (let ((w3m-content-type-alist w3m-content-type-alist))
    (setq file (w3m-expand-file-name-as-url file))
    (when type
      (setq w3m-content-type-alist
	    (cons (copy-sequence (assoc type w3m-content-type-alist))
		  w3m-content-type-alist))
      (setcar (nthcdr 1 (car w3m-content-type-alist))
	      (concat "^" (regexp-quote file) "$")))
    (w3m-goto-url file)))


中> やっぱり reload すると no method になりますね。
中> w3m-current-content-type を入れる変更を考えてみます。

気になりますか。これは arrived DB に記録しておく方向で検討した方が楽で
しょう。

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