3

Emacs に標準で搭載されている関数で、 switch-to-buffer でバッファを切り替えるようになっているものの動作をポップアップするように変更したいです。(具体的には eww の動作をポップアップするようにしたい)

そのために、以下のプログラムを試みました。

(defadvice eww (around ad-eww activate)
  (let ((switch-to-buffer 'display-buffer))
   ad-do-it))

これで eww を呼び出したときに、全ての switch-to-bufferdisplay-buffer に置き換わると思ったのですが、しかしこれでは挙動が変更されません。

何かアドバイスの使い方に誤解があるのでしょうか。


コードを質問の回答を参考に修正してみました。

(defadvice switch-to-buffer (around eww-popwin activate)
  (let ((name
         (typecase buffer-or-name
           (string buffer-or-name)
           (buffer (buffer-name buffer-or-name)))))
    (if (string-equal name "*eww*")
        (display-buffer buffer-or-name)
      ad-do-it)))

1 件の回答 1

2

Emacs Lisp や Common Lisp などの Lisp-2 と呼ばれる Lisp 方言では、シンボルに値用のセルと関数用のセルがあります。 let は値用のセルに束縛する特殊フォームですので期待した通りの動作になりません。

関数用のセルを変更するには

(fset 'switch-to-buffer (symbol-function 'display-buffer))

とする必要がありますが、変更が永続するためおすすめできません。

cl.elfletcl-flet ではありません)を利用すると一時的に関数セルを動的スコープで束縛できます。

(flet ((switch-to-buffer (&rest args) (apply 'display-buffer args)))
  ...)

ただ、これもあまりお行儀の良いものとは言えないでしょう。

一つの案は switch-to-buffer 自体を defadvice して渡されたバッファが eww のものであれば代わりに display-buffer を呼ぶというものです。(疑似コードで示します)

(defadvice switch-to-buffer (around eww-popwin ...)
  (if (eww-buffer? buffer)
      (display-buffer buffer)
    ad-do-it))

eww のソースを少し読んでみましたが(eww-setup-buffer)、フックポイントがない以上、回避策を取らざるを得ないと思われます。

更新:

上記の方法はうまくいかないようです。代わりに eww-renderdefadvice する方法を考えました。手元では一応動作しているように見えます。

(defadvice eww-render (around eww-render-popwin activate)
  (save-window-excursion ad-do-it)
  (unless (get-buffer-window "*eww*")
    (pop-to-buffer "*eww*")))

イシューを作っておきました。

https://github.com/m2ym/popwin-el/issues/118

2
  • 回答ありがとうございます。 回答の最後の擬似コードを参考に修正してみました。 おそらくswitch-to-bufferをdisplay-bufferで置き換えることは成功したようですが、他の問題に当たりました。 ewwを呼び出した時、popup-dummyが画面に3つ、上半分と下半分を更に上下に半分に分割した3つのウインドウに表示され、メッセージとして error in process filter: byte-code: Window #<window 17 on *popwin-dummy*> too small for splitting 2 error in process filter: Window #<window 17 on *popwin-dummy*> too small for splitting 2 と表示されるようになりました。popwinの細かい挙動を把握してないのですが、原因がよくわからないです。
    – nomaddo
    Commented 2015年1月24日 20:16
  • display-buffer からさらに switch-to-buffer されて無限にループになるのかもしれません。意外に難しいです。動作コードを作っていますので少々お待ちください。
    – m2ym
    Commented 2015年1月24日 20:38

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。