Completionsバッファでディレクトリに色づけ

C-x C-f(find-file)などでファイルを開くときに、minibuffer でTABキーを押すとCompletionsバッファが開き、補完候補が列挙されます。

このとき、ファイルとディレクトリの区別がつきにくいので、ディレクトリに色を付けるようにしてみました。

ディレクトリがたくさんあるところに行くと、ちょっと重いかもです。