[Date Prev][Date Next][Thread Prev][Thread Next][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/