diff options
Diffstat (limited to 'lisp/ledger-report.el')
| -rw-r--r-- | lisp/ledger-report.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el index 8b6b1c9d..83c287eb 100644 --- a/lisp/ledger-report.el +++ b/lisp/ledger-report.el @@ -25,9 +25,14 @@ ;;; Code: +(declare-function ledger-read-string-with-default "ledger-mode" (prompt default)) +(declare-function ledger-xact-payee "ledger-xact" nil) +(declare-function ledger-read-account-with-prompt "ledger-mode" (prompt)) +(declare-function ledger-navigate-to-line "ledger-navigate" (line-number)) + (require 'easymenu) -(eval-when-compile - (require 'cl)) + +(defvar ledger-buf) (defgroup ledger-report nil "Customization option for the Report buffer" @@ -149,13 +154,13 @@ text that should replace the format specifier." "A mode for viewing ledger reports.") (defun ledger-report-tagname-format-specifier () - "Return a valid meta-data tag name" + "Return a valid meta-data tag name." ;; It is intended completion should be available on existing account ;; names, but it remains to be implemented. (ledger-read-string-with-default "Tag Name: " nil)) (defun ledger-report-tagvalue-format-specifier () - "Return a valid meta-data tag name" + "Return a valid meta-data tag name." ;; It is intended completion should be available on existing account ;; names, but it remains to be implemented. (ledger-read-string-with-default "Tag Value: " nil)) @@ -418,8 +423,8 @@ Optional EDIT the command." (customize-variable 'ledger-reports)) (defun ledger-report-edit-report () + "Edit the current report command in the mini buffer and re-run the report." (interactive) - "Edit the current report command in the mini buffer and re-run the report" (setq ledger-report-cmd (ledger-report-read-command ledger-report-cmd)) (ledger-report-redo)) |