diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-07-12 22:38:31 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-07-12 22:38:31 -0700 |
| commit | eb9604464746455e6dbea24fb34f3500cc884e7b (patch) | |
| tree | acca4c828f958be588e28bd21fc42d2ef69ca183 /lisp | |
| parent | 2f9240ae00d04dc469df76334fd44e78212246d0 (diff) | |
| download | ledger-eb9604464746455e6dbea24fb34f3500cc884e7b.tar.gz ledger-eb9604464746455e6dbea24fb34f3500cc884e7b.tar.bz2 ledger-eb9604464746455e6dbea24fb34f3500cc884e7b.zip | |
Added ledger-report-auto-refresh customization variable.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-report.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el index cf7da31a..22f31394 100644 --- a/lisp/ledger-report.el +++ b/lisp/ledger-report.el @@ -65,6 +65,11 @@ text that should replace the format specifier." :type 'alist :group 'ledger-report) +(defcustom ledger-report-auto-refresh t + "If t then automatically rerun the report when the ledger buffer is saved." + :type 'boolean + :group 'ledger-report) + (defvar ledger-report-buffer-name "*Ledger Report*") (defvar ledger-report-name nil) @@ -361,8 +366,9 @@ Optional EDIT the command." "Redo the report in the current ledger report buffer." (interactive) (let ((cur-buf (current-buffer))) - (if (and (string= mode-name "Ledger") - (get-buffer ledger-report-buffer-name)) + (if (and ledger-report-auto-refresh + (string= mode-name "Ledger") + (get-buffer ledger-report-buffer-name)) (progn (pop-to-buffer (get-buffer ledger-report-buffer-name)) |