lang/ledger: don't error if ledger isn't installed
This commit is contained in:
parent
ce4891ea0d
commit
a6f575ab1d
1 changed files with 7 additions and 0 deletions
|
@ -3,6 +3,13 @@
|
|||
;; `ledger-mode'
|
||||
(setq ledger-clear-whole-transactions 1)
|
||||
|
||||
(defun +ledger*check-version (orig-fn)
|
||||
"Fail gracefully if ledger binary isn't available."
|
||||
(if (executable-find ledger-binary-path)
|
||||
(funcall orig-fn)
|
||||
(message "Couldn't find '%s' executable" ledger-binary-path)))
|
||||
(advice-add #'ledger-check-version :around #'+ledger*check-version)
|
||||
|
||||
;; Restore leader key in ledger reports
|
||||
(after! ledger-mode
|
||||
(define-key! (ledger-report-mode-map ledger-reconcile-mode-map)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue