Skip to content

Commit

Permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
create *-advices and use it
Browse files Browse the repository at this point in the history
conao3 committed Mar 17, 2020
1 parent d076367 commit 5ef3fdf
Showing 1 changed file with 17 additions and 16 deletions.
33 changes: 17 additions & 16 deletions all-the-icons-dired.el
Original file line number Diff line number Diff line change
@@ -95,27 +95,28 @@
(when all-the-icons-dired-mode
(all-the-icons-dired--refresh)))

(defvar all-the-icons-dired-advices
'((dired-readin . all-the-icons-dired--refresh-advice)
(dired-revert . all-the-icons-dired--refresh-advice)
(dired-insert-subdir . all-the-icons-dired--refresh-advice)
(dired-do-create-files . all-the-icons-dired--refresh-advice)
(dired-create-directory . all-the-icons-dired--refresh-advice)
(dired-internal-do-deletions . all-the-icons-dired--refresh-advice)
(dired-narrow--internal . all-the-icons-dired--refresh-advice))
"Alist of advice and advice functions.")

(defun all-the-icons-dired--setup ()
"Setup `all-the-icons-dired'."
(setq-local tab-width 1)
(advice-add 'dired-readin :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-revert :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-do-create-files :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-create-directory :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-internal-do-deletions :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-insert-subdir :around #'all-the-icons-dired--refresh-advice)
(advice-add 'dired-narrow--internal :around #'all-the-icons-dired--refresh-advice)
(all-the-icons-dired--refresh))
(when (derived-mode-p 'dired-mode)
(setq-local tab-width 1)
(pcase-dolist (`(,sym . ,fn) all-the-icons-dired-advices)
(advice-add sym :around fn))
(all-the-icons-dired--refresh)))

(defun all-the-icons-dired--teardown ()
"Functions used as advice when redisplaying buffer."
(advice-remove 'dired-readin #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-revert #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-do-create-files #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-create-directory #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-internal-do-deletions #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-narrow--internal #'all-the-icons-dired--refresh-advice)
(advice-remove 'dired-insert-subdir #'all-the-icons-dired--refresh-advice)
(pcase-dolist (`(,sym . ,fn) all-the-icons-dired-advices)
(advice-remove sym fn))
(all-the-icons-dired--remove-all-overlays))

;;;###autoload

0 comments on commit 5ef3fdf

Please sign in to comment.