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