[Date Prev][Date Next][Thread Prev][][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 にちらほら英語があるけれど、訳してしまっていいもの
;; なのかな。

--
青田