bs-showで「モード名、拡張子、ファイル名(拡張子除く)」要素でソートする

bs-show-sort-extention.el

(defun my-buffer-mode (buffer-or-string)
  "Returns the major mode associated with a buffer.
to see http://stackoverflow.com/questions/2238418/emacs-lisp-how-to-get-buffer-major-mode"
  (with-current-buffer buffer-or-string
     major-mode))

(defun my-dired-directory (buffer-or-string)
	"Dired-modeのpathを取得"
	(with-current-buffer buffer-or-string
		dired-directory))

(defun my-buffer-name (b)
	"拡張子、拡張子を除いたパス、モード名からソート用の文字列を生成"
  (if (buffer-file-name b)
			(let ((path (buffer-file-name b)))
				(concat
				 " " (symbol-name (my-buffer-mode b))
				 " " (file-name-extension path)
				 " " (file-name-sans-extension path)
				 ))
		(concat (symbol-name (my-buffer-mode b))
						" " (buffer-name b)
						)
		))

(defun my-bs-sort-by-filename2 (b1 b2)
  "Compare buffers B1 and B2 by file name and mode-name."
  (string< (upcase (my-buffer-name b1))
		   (upcase (my-buffer-name b2))
		   ))

bs-sort-functionsにmy-bs-sort-by-filename2を適時追加すれば、使えるようになる。