lang/ledger: don't error if ledger isn't installed

This commit is contained in:
Henrik Lissner 2018-08-20 23:33:29 +02:00
parent ce4891ea0d
commit a6f575ab1d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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)