朝顔日記

xyzzyを使おうと思って使い始めたが、何かしようとするとすぐに窓が分割してどうしたらいいのかわからなくなるという人がいるようなので、なるべく窓を開かないようにしたり、開いてもすぐに戻せるようにするいろいろなTipsが公開されているので覚え書き。

Tips - xyzzy - 各種設定より、ミニバッファの補完候補リストをチップヘルプにする技。

(setq *print-completion-list-hook*
'(lambda (list prefix &optional string)
(popup-string (format nil "Possible completions are ~D
    items:\n~{\n~A~}" (length list) list) (point))))

同じく、Tips - xyzzy - 各種設定より、特殊バッファを削除してウィンドウを１つにする。元々は、２ちゃんのxyzzy関連スレで出ていたものらしい。私は以下のようにしています。

;; *grep*" "*Help*" "*Completion*" "*Shell output*" バッファがあったら削除して、ウィンドウを元に
(defun cleanup-window()
  (interactive)
  (let ((bufl (buffer-list)) buf name)
    (loop
      (setq buf (pop bufl))
      (if (null buf) (return nil))
      (setq name (buffer-name buf))
      (if (member-if
           #'(lambda (str) (string= name str))
           '("*grep*" "*Help*" " *Completion* " "*Shell output*"))
          (delete-buffer buf)))
    (delete-other-windows)))
(global-set-key #\S-F11 'cleanup-window)

以上のlispをSiteinit.lに書いておけば、多少は使い勝手がよくなると思うのですが。どうでしょう？