sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ledger-run-ledger): Report better error messages if

Browse source 
`ledger-binary-path' is set to an invalid value.
This commit is contained in:
John Wiegley 2006-02-17 02:59:30 +00:00
parent c1b609d4e5
commit 8d3403fbef
1 changed files with 21 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
ledger.el
View file

@ -569,23 +569,31 @@ dropped."
;; General helper functions
(defvar ledger-delete-after nil)
(defun ledger-run-ledger (buffer &rest args)
"run ledger with supplied arguments"
(let ((buf (current-buffer)))
(with-current-buffer buffer
(apply #'call-process-region
(append (list (point-min) (point-max)
ledger-binary-path nil buf nil "-f" "-")
args)))))
(cond
((null ledger-binary-path)
(error "The variable `ledger-binary-path' has not been set"))
((not (file-exists-p ledger-binary-path))
(error "The file `ledger-binary-path' (\"%s\") does not exist"
ledger-binary-path))
((not (file-executable-p ledger-binary-path))
(error "The file `ledger-binary-path' (\"%s\") cannot be executed"
ledger-binary-path))
(t
(let ((buf (current-buffer)))
(with-current-buffer buffer
(apply #'call-process-region
(append (list (point-min) (point-max)
ledger-binary-path ledger-delete-after
buf nil "-f" "-")
args)))))))
(defun ledger-run-ledger-and-delete (buffer &rest args)
"run ledger with supplied arguments"
(let ((buf (current-buffer)))
(with-current-buffer buffer
(apply #'call-process-region
(append (list (point-min) (point-max)
ledger-binary-path t buf nil "-f" "-")
args)))))
(let ((ledger-delete-after t))
(apply #'ledger-run-ledger buffer args)))
(defun ledger-set-year (newyear)
"Set ledger's idea of the current year to the prefix argument."