_ [Emacs] sdic の elscreen add-on を作製中

最近 freenode の某 E なチャンネルに入って様子見しています。

IRC ソフトは riece を使っているんですが、 sdic を併合して使うと riece のバッファに検索結果を表示されてしまい、非常に使いづらい。riece のバッファを崩さずに sdic の実行結果を別スクリーンに表示してくれると非常にうれしい。

そんなわけで elscreen-howm.el を参考にしながら sdic 用の elscreen add-on の elscreen-sdic.el を作成中。

まだ作製途中なのでダメダメですが defadvice の便利さに感動したので掲載。

elscreen と sdic の elisp を有効にした後に以下のコードを *scratch* にコピーして、C-x C-e なので eval して、C-c w で単語検索してみてください。とりあえずは別スクリーンが生成されて単語の結果が表示されるはず…です。

sdic 終了時に elscreen を閉じる処理を追加しました。

(defadvice sdic-describe-word (around elscreen-sdic-describe-word activate)
  (let* ((sdic-buffer (elscreen-find-screen-by-buffer "*sdic*")))
    (cond ((numberp sdic-buffer)
           (elscreen-goto sdic-buffer))
          (t (elscreen-create))))
  ad-do-it
  (delete-other-windows))

_ なお、完成した elscreen-sdic.el はこちらにおいてあります。