Merge branch 'dev'
This commit is contained in:
commit
0e98e7b9a2
15
sxiv.el
15
sxiv.el
|
@ -2,7 +2,9 @@
|
|||
|
||||
;; Author: contrapunctus <xmpp:contrapunctus@jabber.fr>
|
||||
;; Maintainer: contrapunctus <xmpp:contrapunctus@jabber.fr>
|
||||
;; 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
|
||||
|
|
Reference in New Issue