diff options
| author | Jakob L. Kreuze <jakob@memeware.net> | 2019-02-09 19:33:26 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <jakob@memeware.net> | 2019-02-09 19:33:26 -0500 |
| commit | 5d94726b4e427bb21dcc6f043bc3fcfc98b27b7a (patch) | |
| tree | 45c73ec9bf2cf90737fb56d3e19353d4a3bc886c | |
| parent | 3818c18c3e0fc171cbe45b3cf4dea6a83b2ecd69 (diff) | |
Treat patterns properly, as opposed to exact string matchesv1.0
| -rw-r--r-- | dired-rmjunk.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/dired-rmjunk.el b/dired-rmjunk.el index 353cbaa..8cb6c51 100644 --- a/dired-rmjunk.el +++ b/dired-rmjunk.el @@ -61,10 +61,11 @@ patterns in `dired-rmjunk-patterns'." (save-excursion (let ((files-marked-count 0)) (dolist (file (directory-files dired-directory)) - (when (member file dired-rmjunk-shitty-files) - (setq files-marked-count (1+ files-marked-count)) - (dired-goto-file (concat (expand-file-name dired-directory) file)) - (dired-flag-file-deletion 1))) + (dolist (pattern dired-rmjunk-patterns) + (when (string-match pattern file) + (setq files-marked-count (1+ files-marked-count)) + (dired-goto-file (concat (expand-file-name dired-directory) file)) + (dired-flag-file-deletion 1)))) (message (if (zerop files-marked-count) "No junk files found :)" "Junk files marked.")))))) |