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

Show message when starting sxiv

This commit is contained in:
contrapunctus 2020-02-10 18:14:55 +05:30
parent d6abe6645b
commit 40d5c41a98
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -7,6 +7,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
## Unreleased ## Unreleased
### Added ### Added
* Marking files now works recursively, too. * Marking files now works recursively, too.
* Show message when starting sxiv
## [0.3.0] - 2020-01-14 ## [0.3.0] - 2020-01-14
### Added ### Added

24
sxiv.el
View File

@ -121,17 +121,19 @@ the files listed."
(-> (1+ fn-at-point-index) (-> (1+ fn-at-point-index)
(number-to-string)))) (number-to-string))))
(recurse (if recurse "-r" "")) (recurse (if recurse "-r" ""))
(proc (make-process :name "sxiv" (proc (progn
:buffer "sxiv" (message "Running sxiv...")
:command (make-process :name "sxiv"
(append '("sxiv") :buffer "sxiv"
sxiv-arguments :command
(when fn-at-point-index (append '("sxiv")
(list "-n" fn-at-point-index)) sxiv-arguments
(list recurse "--") (when fn-at-point-index
paths) (list "-n" fn-at-point-index))
:connection-type 'pipe (list recurse "--")
:stderr "sxiv-errors"))) paths)
:connection-type 'pipe
:stderr "sxiv-errors"))))
(setq sxiv--directory default-directory) (setq sxiv--directory default-directory)
(set-process-filter proc #'sxiv-filter))) (set-process-filter proc #'sxiv-filter)))