diff --git a/sxiv.el b/sxiv.el index a9b64f6..fd1fc9e 100644 --- a/sxiv.el +++ b/sxiv.el @@ -2,7 +2,9 @@ ;; Author: contrapunctus ;; Maintainer: contrapunctus -;; Package-Requires: (dash (emacs "25.1")) +;; Keywords: multimedia +;; Homepage: https://notabug.org/contrapunctus/sxiv.el/src/master/sxiv.el +;; Package-Requires: ((dash "2.16.0") (emacs "25.1")) ;; Version: 0.1.0 ;;; Commentary: @@ -14,13 +16,17 @@ (defgroup sxiv nil "Run the Simple X Image Viewer." - :group 'external) + :group 'multimedia) (defcustom sxiv-arguments '("-a" "-f" "-o") "Arguments to be passed to the sxiv process. 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 +84,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