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

前の続き

終了コマンド sdic-close-window にアドバイスを追加してみました。

SDIC モードで"q"か"Q" を押すとスクリーンを閉じます。これでそれなりに使えるぐらいになったと思います。あとのバグ出しや足りない機能は使いながら追加していきますねー。

コードは以下の通り。*scratch* にコピペして M-x eval-buffer を実行して使ってくださいね。

エラー時の処理を追加しました。

;; Code
(defadvice sdic-describe-word (around elscreen-sdic-describe-word activate)
  (let ((sdic-screen (elscreen-find-screen-by-buffer sdic-buffer-name)))
    (cond ((numberp sdic-screen)
           (elscreen-goto sdic-screen))
          (t (elscreen-create))))
  ad-do-it
  (delete-other-windows))
;
(defadvice sdic-close-window (around elscreen-sdic-close-window activate)
  ad-do-it
  (elscreen-kill))