bs-showの拡張

bsのファイル一覧表示を使っていましたが、ディレクトリも表示したくなったので調べてみました。

(when (load "bs")
  (defun my-visits-non-file-or-dir (buffer)
    (and (not (buffer-file-name buffer))                                  ; ファイルパスが入っていない
         (not (eq (buffer-local-value 'major-mode buffer) 'dired-mode))   ; diredバッファでもない
         )
    )
  (add-to-list 'bs-configurations
               '("files-and-dirs" nil nil nil my-visits-non-file-or-dir
                                  bs-sort-buffer-interns-are-last))
  (setq bs-default-configuration
        "files-and-dirs")
  (global-set-key "\C-x\C-b" 'bs-show);;; バッファリストを使いやすく
  )

標準の絞込み"files"を拡張してdired-modeのバッファも絞込みのときに削らないようにしました。
いい感じ。