新PCへの移行に伴いこれまで使っていたall-the-icons-dired(を少し修正したもの)からnerd-icons-diredへ移行したのですが、いくつか気になった点があったので修正。
と、ソースコードを見たら、あれ、これall-the-icons-diredとほとんど同じですね。all-the-icons-diredを元にnerd-iconsを使うように修正した物っぽい？ なのでこれまでall-the-icons-dired向けに修正したのがほとんどのそのまま適用出来ます。
まずはhl-line-mode(現在の行をハイライトしてくれるマイナーモード)でアイコン部分がハイライトされない問題。アイコンの背景が黒いままになってしまいます。これは以前「before-stringに別のオーバーレイのfaceが適用されない」で書いた現象が原因で、そこにも書きましたが回避策はbefore-stringやafter-stringに直接テキスト(アイコン)を書くのではなく、before-stringやafter-stringにdisplayプロパティを指定した文字列を指定して、そのdisplayプロパティでテキスト(アイコン)を表示すると、その部分にはオーバーレイのfaceが適用されるようになります。つまり、次のようにします。
(defun nerd-icons-dired--add-overlay (pos string) "Add overlay to display STRING at POS." (let ((ov (make-overlay (1- pos) pos))) (overlay-put ov 'nerd-icons-dired-overlay t) - (overlay-put ov 'after-string string))) + (overlay-put ov 'after-string (propertize string 'display string))))
次に気がついたのはファイルが消えたのにアイコンが消えない場合があるということです。手っ取り早い対処法の一つはオーバーレイのevaporateプロパティをtにすることです。こうするとファイルの行が削除されたときに一緒にオーバーレイも消えてくれます。上で修正した場所のすぐ下にevaporateプロパティの設定を追加。
(defun nerd-icons-dired--add-overlay (pos string) "Add overlay to display STRING at POS." (let ((ov (make-overlay (1- pos) pos))) (overlay-put ov 'nerd-icons-dired-overlay t) - (overlay-put ov 'after-string (propertize string 'display string)))) + (overlay-put ov 'after-string (propertize string 'display string)) + (overlay-put ov 'evaporate t)))
そもそもDiredバッファの変化を検出するために沢山のadviceを追加していますが、おそらくdired-after-readin-hookでやった方が簡単だと思います。多分。注意点としては、このフックは変更箇所をnarrowingしてから呼び出されるということがあります。なのでこれを使うなら不用意にwidenして全体を処理してはいけません。次のように修正してみました。
"Get nerd-icons-dired overlays at POS." (apply #'nerd-icons-dired--overlays-in `(,pos ,pos))) -(defun nerd-icons-dired--remove-all-overlays () - "Remove all `nerd-icons-dired' overlays." +(defun nerd-icons-dired--remove-all-overlays-from-whole-buffer () + "Remove all `nerd-icons-dired' overlays from the whole buffer." (save-restriction (widen) - (mapc #'delete-overlay - (nerd-icons-dired--overlays-in (point-min) (point-max))))) + (nerd-icons-dired--remove-all-overlays))) + +(defun nerd-icons-dired--remove-all-overlays () + "Remove all `nerd-icons-dired' overlays within the narrowed region." + (mapc #'delete-overlay + (nerd-icons-dired--overlays-in (point-min) (point-max)))) (defun nerd-icons-dired--refresh () - "Display the icons of files in a Dired buffer." + "Display the icons of files within the narrowed region of the Dired buffer." (nerd-icons-dired--remove-all-overlays) (save-excursion (goto-char (point-min)) @@ -110,40 +114,22 @@ (nerd-icons-dired--refresh)) result)) ;; Return the result +(defun nerd-icons-dired--after-readin-hook () + (when nerd-icons-dired-mode + (nerd-icons-dired--refresh))) + (defun nerd-icons-dired--setup () "Setup `nerd-icons-dired'." (when (derived-mode-p 'dired-mode) (setq-local tab-width 1) - (advice-add 'dired-readin :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-revert :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-internal-do-deletions :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-insert-subdir :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-create-directory :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-do-redisplay :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-kill-subdir :around #'nerd-icons-dired--refresh-advice) - (advice-add 'dired-do-kill-lines :around #'nerd-icons-dired--refresh-advice) - (with-eval-after-load 'dired-narrow - (advice-add 'dired-narrow--internal :around #'nerd-icons-dired--refresh-advice)) - (with-eval-after-load 'dired-subtree - (advice-add 'dired-subtree-toggle :around #'nerd-icons-dired--refresh-advice)) - (with-eval-after-load 'wdired - (advice-add 'wdired-abort-changes :around #'nerd-icons-dired--refresh-advice)) + (add-hook 'dired-after-readin-hook #'nerd-icons-dired--after-readin-hook nil t) (nerd-icons-dired--refresh))) (defun nerd-icons-dired--teardown () "Functions used as advice when redisplaying buffer." - (advice-remove 'dired-readin #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-revert #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-internal-do-deletions #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-narrow--internal #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-subtree-toggle #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-insert-subdir #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-do-kill-lines #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-create-directory #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-do-redisplay #'nerd-icons-dired--refresh-advice) - (advice-remove 'dired-kill-subdir #'nerd-icons-dired--refresh-advice) - (advice-remove 'wdired-abort-changes #'nerd-icons-dired--refresh-advice) - (nerd-icons-dired--remove-all-overlays)) + (kill-local-variable 'tab-width) + (remove-hook 'dired-after-readin-hook #'nerd-icons-dired--after-readin-hook t) + (nerd-icons-dired--remove-all-overlays-from-whole-buffer)) ;;;###autoload (define-minor-mode nerd-icons-dired-mode
これで私の使い方では問題が無いのですが、使い方によってはおかしいこともあるかもしれません。
次にリモート(Tramp経由)のディレクトリで使ったときに遅かったので次のように修正(この辺りはall-the-icons-diredを使っているときに気がついて修正したのを移植したもので、nerd-iconsになってからはあまりテストしていません)。ファイル毎にリモートアクセスが必要な処理をしているのでそれを排除しました。
(defun nerd-icons-dired--refresh () "Display the icons of files within the narrowed region of the Dired buffer." (nerd-icons-dired--remove-all-overlays) (save-excursion (goto-char (point-min)) (while (not (eobp)) (when (dired-move-to-filename nil) - (let ((file (dired-get-filename 'relative 'noerror))) + (let ((file (dired-get-filename nil 'noerror))) ;; Full path (when file - (let ((icon (if (file-directory-p file) - (nerd-icons-icon-for-dir file - :face 'nerd-icons-dired-dir-face - :v-adjust nerd-icons-dired-v-adjust) + (let ((icon (if ;; Avoid using `file-directory-p' as it will + ;; cause remote access. + (save-excursion (forward-line 0) + (looking-at-p dired-re-dir)) + (if (file-remote-p file) + ;; Avoid file-*-p functions + (nerd-icons-sucicon "nf-custom-folder_oct" + :face 'nerd-icons-dired-dir-face + :v-adjust nerd-icons-dired-v-adjust) + (nerd-icons-icon-for-dir file + :face 'nerd-icons-dired-dir-face + :v-adjust nerd-icons-dired-v-adjust)) (nerd-icons-icon-for-file file :v-adjust nerd-icons-dired-v-adjust))) (inhibit-read-only t)) - (if (member file '("." "..")) + (if (string-match-p "\\(?:\\`\\|[/\\\\]\\)\\.\\.?\\'" file) ;; . or .. (nerd-icons-dired--add-overlay (dired-move-to-filename) " \t") (nerd-icons-dired--add-overlay (dired-move-to-filename) (concat icon "\t"))))))) (forward-line 1))))
最後にファイル数が多いときにアイコンを表示しないようにしてみました。
+(defcustom nerd-icons-dired-max-lines 1000 + "The maximum number of lines in the buffer in which icons will be displayed. +Performance can be improved by hiding icons when there are a large +number of files." + :group 'nerd-icons + :type '(choice (integer) + (const :tag "No limit" nil))) + (defvar nerd-icons-dired-mode) (defun nerd-icons-dired--add-overlay (pos string) @@ -88,6 +96,13 @@ (nerd-icons-dired--overlays-in (point-min) (point-max)))) (defun nerd-icons-dired--refresh () + (if (and nerd-icons-dired-max-lines + (> (line-number-at-pos (point-max) t) nerd-icons-dired-max-lines)) + ;; If there are many files, it will be very slow, so disable icons. + (nerd-icons-dired--remove-all-overlays-from-whole-buffer) + (nerd-icons-dired--refresh--internal))) + +(defun nerd-icons-dired--refresh--internal () "Display the icons of files within the narrowed region of the Dired buffer." (nerd-icons-dired--remove-all-overlays) (save-excursion
これらを合わせてnerd-icons-dired/nerd-icons-dired.el at misohena · misohena/nerd-icons-diredに置いてあります。
ちなみにall-the-iconsからnerd-iconsへ移行した理由ですが、私はall-the-iconsが使用するフォントの幅をFont Forgeで無理矢理揃えたものを使用していて、Emacs以外の用途で使うときに困るよなぁ……と前々から心配していたからです。新PCに移行したときに、この書き替えたフォントをインストールするのに躊躇しました。フォント名もちゃんと変えてall-the-icons.elも変えれば良いのかもしれませんが、面倒なので今回はnerd-iconsを使ってみることにしたわけです。