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
### Added
* Marking files now works recursively, too.
* Show message when starting sxiv
## [0.3.0] - 2020-01-14
### Added

24
sxiv.el
View File

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