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

Re: Emacs 21 as a tab browser



>>>>> <20011030.145057.09103021.shirai@rdmg.mgcs.mei.co.jp> にて、
>>>>> "白井" = <shirai@rdmg.mgcs.mei.co.jp> さんは書きました:

寺> emacs-w3m on XEmacs がタブブラウザになってくやしいので(?)、
寺> Emacs 21 もタブブラウザ(もどき) にしてみました。

白井> 試しました。おもしろいです。

御反応ありがとうございます。

寺> これだと header-line をタブ領域としてのっとってしまうので、

白井> これはちょっと寂しいけど、しょうがないですね。

w3m-use-tab が nil かつ、w3m-use-header-line が non-nil の場合には
header-line は URL 表示のほうがいいんでしょうね...。

>>>>> <m3n129ixfw.wl@gohome.org> にて、
>>>>> "寺" = <teranisi@gohome.org> は書きました:

寺> 問題点として、header-line でクリックした位置のテキストプロパティを
寺> 取り出す方法がわからなかったので、あやしげな方法をとっているのが
寺> 気になっています。
寺> ;; 微妙に当たり判定がおかしい気もします...。

column と length を混同してました。こうかな?

(defun w3m-tab-select (event)
  (interactive "e")
  (with-temp-buffer 
    (insert (w3m-tab-line))
    (move-to-column (car (posn-col-row (event-start event))))
    (let ((buf (get-text-property (point) 'w3m-tab-buffer)))
      (when buf (switch-to-buffer buf)))))

でも、まだ微妙にずれてます。
もっとまっとうな方法がありそうな気がするんですが...。

--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Love is needing to be loved..."