diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-05-25 14:35:14 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-05-25 14:35:14 -0400 |
| commit | f45db7c2b3b6afbe0777858cad59a4a1bf4d9b42 (patch) | |
| tree | 514e523f9b4de8b998af3a318784477158cddcec | |
| parent | 963a604b5077f5f35eb8b3c817b6b0facbbe049e (diff) | |
Add support for directory scoping
| -rw-r--r-- | dired-rmjunk.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/dired-rmjunk.el b/dired-rmjunk.el index 199b6fd..96f9188 100644 --- a/dired-rmjunk.el +++ b/dired-rmjunk.el @@ -62,7 +62,12 @@ patterns in `dired-rmjunk-patterns'." (let ((files-marked-count 0)) (dolist (file (directory-files dired-directory)) (dolist (pattern dired-rmjunk-patterns) - (when (string-match pattern file) + (when (or (and (not (dired-rmjunk--dir-name pattern)) + (string-match pattern file)) + (and (dired-rmjunk--dir-name pattern) + (string-match (dired-rmjunk--dir-name pattern) + (dired-current-directory)) + (string-match (dired-rmjunk--file-name 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)))) |