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

Re: 要望:リンクを新しいバ ッファで開く機能



早速試させていただきました。グーです。

気づいたところ一点だけ。
http://emacs-w3m.namazu.org/
のように href=# でページ内に飛ぶケースでは tab のタイトルが
同じバッファが二つできる訳ですが、tab のクリックによる切り替えが
効かなくなります。おそらく XEmacs 側で同名タブを想定していない
のが原因だと思うのですが、 emacs-w3m 側でうまくするとすれば
同名タイトル | 同名タイトル <2> | ... という感じでしょうか。

  > Katsumi Yamaoka <yamaoka@namazu.org>
  > wrote in [emacs-w3m:01887] ...

> XEmacs で gutter の buffer tab にタイトルを表示するようにしてみ
> ました。まだ CVS commit していませんが、たぶん今日中に実施します。

> (setq w3m-pop-up-windows nil
>       w3m-pop-up-frames nil)

> の条件で以下を使うと、なかなかカッチョいいです。

> (defadvice format-buffers-tab-line
>   (around w3m-xmas-show-current-title-in-buffer-tab (buffer) activate)
>   "Advised by Emacs-W3M.
> Show the current title string in the buffer tab.  Unfortunately,
> existing XEmacs does not support showing non-ascii characters.  When a
> title contains non-ascii characters, show a url name by default."
>   (with-current-buffer buffer
>     (if (eq 'w3m-mode major-mode)
> 	(let ((len (specifier-instance buffers-tab-default-buffer-line-length))
> 	      (name (if (string-match "^[ -~]+$" w3m-current-title)
> 			w3m-current-title
> 		      (if (string-match "^[^/:]+:/+" w3m-current-url)
> 			  (substring w3m-current-url (match-end 0))
> 			w3m-current-url))))
> 	  (setq ad-return-value
> 		(if (and (> len 0)
> 			 (> (length name) len))
> 		    (concat (substring name 0 (- len 3)) "...")
> 		  name)))
>       ad-do-it)))

> (add-hook 'w3m-display-hook
> 	  (lambda (&rest args)
> 	    (update-tab-in-gutter (selected-frame))))
> -- 
> Katsumi Yamaoka <yamaoka@namazu.org>