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>
|
;; Author: contrapunctus <xmpp:contrapunctus@jabber.fr>
|
||||||
;; Maintainer: 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
|
;; Version: 0.1.0
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
@ -14,13 +16,17 @@
|
||||||
|
|
||||||
(defgroup sxiv nil
|
(defgroup sxiv nil
|
||||||
"Run the Simple X Image Viewer."
|
"Run the Simple X Image Viewer."
|
||||||
:group 'external)
|
:group 'multimedia)
|
||||||
|
|
||||||
(defcustom sxiv-arguments '("-a" "-f" "-o")
|
(defcustom sxiv-arguments '("-a" "-f" "-o")
|
||||||
"Arguments to be passed to the sxiv process.
|
"Arguments to be passed to the sxiv process.
|
||||||
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 +84,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
|
||||||
|
|
Reference in New Issue