From 76f63afd549927cb23a5b6df7cf5157f10025d9f Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 13 Jan 2020 18:56:29 +0530 Subject: [PATCH] Add support for excluding files --- sxiv.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/sxiv.el b/sxiv.el index a9b64f6..dd640f7 100644 --- a/sxiv.el +++ b/sxiv.el @@ -21,6 +21,10 @@ It must contain \"-o\" for marking in Dired buffers to function." :type '(repeat string)) +(defcustom sxiv-exclude-strings '() + "Exclude files whose paths match these strings." + :type '(repeat string)) + (defvar sxiv--directory nil "Directory `sxiv' was called from. Used by `sxiv-filter' to know where to mark files.") @@ -78,7 +82,10 @@ the files listed." (split-string it "\n"))) (t (directory-files default-directory)))) (paths (--remove (or (equal it ".") - (equal it "..")) + (equal it "..") + (-find (lambda (exclude) + (string-match-p exclude it)) + sxiv-exclude-strings)) paths)) ;; recurse with prefix arg, or if every path is a directory (recurse (or prefix