branch: externals/disk-usage
commit c7f4597817f899dae51c033281bf82595a337b7e
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Customize default filters
---
disk-usage.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/disk-usage.el b/disk-usage.el
index 22ed325..585ecf5 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -182,6 +182,10 @@ See `disk-usage-add-filters' and
`disk-usage-remove-filters'.
You can add custom filters to this list."
:type '(repeat 'symbol))
+(defcustom disk-usage-default-filters '()
+ "Filters to enable in new `disk-usage' buffers."
+ :type '(repeat 'symbol))
+
(defvar-local disk-usage-filters nil
"List of `disk-usage' filters in current buffer.
See `disk-usage-add-filters' and `disk-usage-remove-filters'.")
@@ -486,6 +490,7 @@ If DIRECTORY is nil, use current directory."
(get-buffer-create (format "*%s<%s>*" disk-usage-buffer-name
(directory-file-name directory))))
(disk-usage-mode)
+ (setq disk-usage-filters disk-usage-default-filters)
(setq default-directory directory)
(tabulated-list-revert))
@@ -725,6 +730,7 @@ If nil, LISTING is taken from the entry in the
(switch-to-buffer
(get-buffer-create (format "*%s*" disk-usage-files-buffer-name)))
(disk-usage-mode)
+ (setq disk-usage-filters disk-usage-default-filters)
(set (make-local-variable 'disk-usage-list-function)
(lambda (_) (disk-usage--list nil listing-with-attributes)))
(tabulated-list-revert)))
