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

Add ledger-mode-should-check-version to disable startup checks.

Browse source 
This is for users who are not using the official Ledger, say maybe hedger…
This commit is contained in:
Craig Earls 2013-07-03 13:57:56 -07:00
parent 63ba45dbaa
commit 64d6ec675d
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ledger-exec.el
View file

@ -35,6 +35,11 @@
"Interface to the Ledger command-line accounting program."
:group 'ledger)
(defcustom ledger-mode-should-check-version t
"Should Ledger-mode verify that the executable is working"
:type 'boolean
:group 'ledger-exec)
(defcustom ledger-binary-path "ledger"
"Path to the ledger executable."
:type 'file
@ -92,9 +97,11 @@
(defun ledger-check-version ()
"Verify that ledger works and is modern enough."
(interactive)
(if (setq ledger-works (ledger-version-greater-p ledger-version-needed))
(message "Good Ledger Version")
(message "Bad Ledger Version")))
(if ledger-mode-should-check-version
(if (setq ledger-works (ledger-version-greater-p ledger-version-needed))
(message "Good Ledger Version")
(message "Bad Ledger Version"))
setq ledger-works t))
(provide 'ledger-exec)