Show message when starting sxiv
This commit is contained in:
parent
d6abe6645b
commit
40d5c41a98
|
@ -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
24
sxiv.el
|
@ -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)))
|
||||
|
||||
|
|
Reference in New Issue