[elpa] externals/disk-usage 7fd6e43 19/26: Add filters to recursive listings

[Pierre Neidhardt]

branch: externals/disk-usage
commit 7fd6e43b3c81688b34fe2a0039936c1b356ea59a
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Add filters to recursive listings
---
 disk-usage.el | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index 12b92e1..e30b245 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -256,21 +256,26 @@ See `disk-usage-add-filters' and 
`disk-usage-remove-filters'.")
   "This is the equivalent of running the shell command
 $ find . -type f -exec du -sb {} +"
   (setq directory (or directory default-directory))
-  ;; TODO: Add filters here.
-  (mapcar (lambda (s)
-            (let ((pair (split-string s "\t")))
-              (disk-usage--file-info-make
-               :name (cadr pair)
-               :size (string-to-number (cl-first pair)))))
-          (split-string (with-temp-buffer
-                          (process-file disk-usage--find-command nil '(t nil) 
nil
-                                        directory
-                                        "-type" "f"
-                                        "-exec"
-                                        disk-usage--du-command
-                                        disk-usage--du-args "{}" "+")
-                                (buffer-string))
-                              "\n" 'omit-nulls)))
+  (delq
+   nil
+   (mapcar (lambda (s)
+             (let* ((pair (split-string s "\t"))
+                    (name (cadr pair))
+                    (attributes (file-attributes name)))
+               (when (cl-loop for filter in disk-usage-filters
+                              always (funcall filter name attributes))
+                 (disk-usage--file-info-make
+                  :name name
+                  :size (string-to-number (cl-first pair))))))
+           (split-string (with-temp-buffer
+                           (process-file disk-usage--find-command nil '(t nil) 
nil
+                                         directory
+                                         "-type" "f"
+                                         "-exec"
+                                         disk-usage--du-command
+                                         disk-usage--du-args "{}" "+")
+                           (buffer-string))
+                         "\n" 'omit-nulls))))
 
 (defcustom disk-usage-list-function #'disk-usage--list
   "Function that returns a list of `disk-usage--file-info'.