From a6f575ab1d51362f7aa99fe43ce1b1fbbf7d817c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 20 Aug 2018 23:33:29 +0200 Subject: [PATCH] lang/ledger: don't error if ledger isn't installed --- modules/lang/ledger/config.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/modules/lang/ledger/config.el b/modules/lang/ledger/config.el index 7c8690de3..b53d9ae81 100644 --- a/modules/lang/ledger/config.el +++ b/modules/lang/ledger/config.el @@ -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)