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

Compress code a little

This commit is contained in:
contrapunctus 2020-08-03 19:37:22 +05:30
parent a23d1639f8
commit 086bc5ae97
1 changed files with 31 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
sxiv.el
View File

@ -106,8 +106,7 @@ the files listed."
(paths (cond ((sxiv-dired-marked-files-p)
(dired-get-marked-files))
((derived-mode-p 'text-mode)
(--> (buffer-substring-no-properties (point-min)
(point-max))
(--> (buffer-substring-no-properties (point-min) (point-max))
(split-string it "\n")))
(t (directory-files default-directory))))
(paths (--remove (or (equal it ".")
@ -120,20 +119,17 @@ the files listed."
sxiv-exclude-strings))
paths))
;; recurse with prefix arg, or if every path is a directory
(recurse (or prefix
(-every? #'file-directory-p paths)))
(recurse (or prefix (-every? #'file-directory-p paths)))
;; remove directories if not running recursively
(paths (if recurse
paths
(seq-remove #'file-directory-p paths)))
(paths (if recurse paths (seq-remove #'file-directory-p paths)))
(fn-at-point-index (when fn-at-point
(--find-index (equal fn-at-point it)
paths)))
(fn-at-point-index (when fn-at-point-index
(-> (1+ fn-at-point-index)
(number-to-string))))
(recurse (if recurse "-r" ""))
(proc (progn
(recurse (if recurse "-r" "")))
(setq sxiv--directory default-directory)
(message "Running sxiv...")
(make-process :name "sxiv"
:buffer "sxiv"
@ -145,9 +141,8 @@ the files listed."
(list recurse "--")
paths)
:connection-type 'pipe
:stderr "sxiv-errors"))))
(setq sxiv--directory default-directory)
(set-process-filter proc #'sxiv-filter)))
:filter #'sxiv-filter
:stderr "sxiv-errors")))
;; Local Variables:
;; nameless-current-name: "sxiv"