[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-toggle-inline-image
;; emacs を CVS HEAD にしたら、調子が悪くなってしまって返事が遅れてしまい
;; ました^^;
Katsumi Yamaoka <yamaoka@xxxxxxx> writes:
>>>>>> In [emacs-w3m : No.10037] 青田さん wrote:
>
>> 画像まわりに関して二つ提案があります。
>
>> 一つは transient-mark-mode が有効な時に "T" で表示する画像を mark されて
>> いる region 内に限ることです。 画像が多くあるページで一部だけを見てみたい
>> 時にあると便利だと思います。これは "t" のほうがいいかなとも、 両方に導入
>> したほうがいいかなとも思っています。
>
> それ、すごく欲しいです。ぜひお願いします。
とりあえず両方にいれてみました。
>> もう一つは、 w3m-ignored-image-url-regexp という変数を導入してこれにマッ
>> チした画像は、 w3m-display-inline-images が non-nil でも表示しないように
>> することです。 w3m-filter と機能がかぶりそうですが、ロゴなどの普段は見な
>> くていいけれど見たくなったらすぐ見たいようなものや、フィルタでマッチさせ
>> るのが難しいものに使えると思います。
>
> どんな正規表現が有効なのか思いつかないんですが、doc string に例
> が書いてあるとうれしいんじゃないでしょうか?
>
> "*Regexp matching image urls which you don't want to view.
> It is effective even if `w3m-display-inline-images' is non-nil.
> For instance, the value \"正規表現の例\" conceals XXX, YYY, and so on."
ありがとうございます。 "^http://www\\.google\\.com/" とすると、 ロゴと
検索結果の Gooogle なんかの画像を表示しませんが、 YouTube のサンプル表示
は見れるよ。 ということを書いてみたつもりです ^^;
"*Regexp matching image urls which you don't want to view.
It is effective even if `w3m-display-inline-images' is non-nil.
For instance, the value \"^http://www\\.google\\.com/\" conceals
Google's logo and navigation images, but display YouTube's
thumbnail."
;; 前のパッチは、 not をつけ忘れていました…。
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1344
diff -u -r1.1344 w3m.el
--- w3m.el 20 Feb 2008 08:08:23 -0000 1.1344
+++ w3m.el 2 Mar 2008 16:02:38 -0000
@@ -2101,6 +2101,15 @@
:group 'w3m
:type '(choice (string :tag "Format") function))
+(defcustom w3m-ignored-image-url-regexp nil
+ "*Regexp matching image urls which you don't want to view.
+It is effective even if `w3m-display-inline-images' is non-nil.
+For instance, the value \"^http://www\\.google\\.com/\" conceals
+Google's logo and navigation images, but display YouTube's
+thumbnail."
+ :group 'w3m
+ :type '(regexp :format "URL: %v\n" :size 0))
+
(defvar w3m-modeline-process-status-on "<PRC>"
"Modeline control for displaying the status when the process is running.
The value will be modified for displaying the graphic icon.")
@@ -3476,7 +3485,10 @@
(point-max))
iurl (w3m-image start)
size (get-text-property start 'w3m-image-size))
- (when (and (or (not url)
+ (when (and (or (and (not url)
+ (or (not w3m-ignored-image-url-regexp)
+ (not (string-match w3m-ignored-image-url-regexp
+ iurl))))
;; URL is specified and is same as the image URL.
(string= url iurl))
(not (eq (get-text-property start 'w3m-image-status)
ところで、1つめのものについて info に書いていて気がついたのですが、
w3m-toggle-inline-image() は info に載っていないですよね? 追加しようと思っ
たのですが、 info-like-map 使用時の "i" の挙動(画像表示可能な時は、
w3m-toggle-inline-image() 、不可能な時は w3m-view-image()) というのをどう
書いたものか迷ったので保留してあります。
;; emacs-w3m-ja.info にちらほら英語があるけれど、訳してしまっていいもの
;; なのかな。
--
青田