contrapunctus
/
sxiv
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add support for excluding files

This commit is contained in:
contrapunctus 2020-01-13 18:56:29 +05:30
parent 85a9235f99
commit 76f63afd54
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sxiv.el
View File

@ -21,6 +21,10 @@
It must contain \"-o\" for marking in Dired buffers to function." It must contain \"-o\" for marking in Dired buffers to function."
:type '(repeat string)) :type '(repeat string))
(defcustom sxiv-exclude-strings '()
"Exclude files whose paths match these strings."
:type '(repeat string))
(defvar sxiv--directory nil (defvar sxiv--directory nil
"Directory `sxiv' was called from. "Directory `sxiv' was called from.
Used by `sxiv-filter' to know where to mark files.") Used by `sxiv-filter' to know where to mark files.")
@ -78,7 +82,10 @@ the files listed."
(split-string it "\n"))) (split-string it "\n")))
(t (directory-files default-directory)))) (t (directory-files default-directory))))
(paths (--remove (or (equal it ".") (paths (--remove (or (equal it ".")
(equal it "..")) (equal it "..")
(-find (lambda (exclude)
(string-match-p exclude it))
sxiv-exclude-strings))
paths)) paths))
;; recurse with prefix arg, or if every path is a directory ;; recurse with prefix arg, or if every path is a directory
(recurse (or prefix (recurse (or prefix