emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
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
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/lang/ledger/config.el
View file

@ -3,6 +3,13 @@
;; `ledger-mode' ;; `ledger-mode'
(setq ledger-clear-whole-transactions 1) (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 ;; Restore leader key in ledger reports
(after! ledger-mode (after! ledger-mode
(define-key! (ledger-report-mode-map ledger-reconcile-mode-map) (define-key! (ledger-report-mode-map ledger-reconcile-mode-map)