From eb9604464746455e6dbea24fb34f3500cc884e7b Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sat, 12 Jul 2014 22:38:31 -0700 Subject: [PATCH] Added ledger-report-auto-refresh customization variable. --- lisp/ledger-report.el | 10 ++++++++-- 1 file 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))