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

Add tangle expansion and correct menu entry for edit report.

Browse source
This commit is contained in:
Craig Earls 2014-12-06 17:28:03 -07:00
parent 336ff52be2
commit b5fa7d2443
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/ledger-report.el
View file

@ -57,7 +57,8 @@ specifier."
'(("ledger-file" . ledger-report-ledger-file-format-specifier) '(("ledger-file" . ledger-report-ledger-file-format-specifier)
("payee" . ledger-report-payee-format-specifier) ("payee" . ledger-report-payee-format-specifier)
("account" . ledger-report-account-format-specifier) ("account" . ledger-report-account-format-specifier)
("value" . ledger-report-value-format-specifier)) ("tagname") . ledger-report-tagname-format-specifier
("tagvalue" . ledger-report-tagvalue-format-specifier))
"An alist mapping ledger report format specifiers to implementing functions. "An alist mapping ledger report format specifiers to implementing functions.
The function is called with no parameters and expected to return the The function is called with no parameters and expected to return the
@ -118,9 +119,9 @@ text that should replace the format specifier."
"Ledger report menu" "Ledger report menu"
'("Reports" '("Reports"
["Save Report" ledger-report-save] ["Save Report" ledger-report-save]
["Edit Report" ledger-report-edit] ["Edit Current Report" ledger-report-edit-report]
["Edit All Reports" ledger-report-edit-reports]
["Re-run Report" ledger-report-redo] ["Re-run Report" ledger-report-redo]
["Kill Report" ledger-report-kill]
"---" "---"
["Reverse report order" ledger-report-reverse-lines] ["Reverse report order" ledger-report-reverse-lines]
"---" "---"
@ -134,11 +135,17 @@ text that should replace the format specifier."
(define-derived-mode ledger-report-mode text-mode "Ledger-Report" (define-derived-mode ledger-report-mode text-mode "Ledger-Report"
"A mode for viewing ledger reports.") "A mode for viewing ledger reports.")
(defun ledger-report-value-format-specifier () (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 ;; It is intended completion should be available on existing account
;; names, but it remains to be implemented. ;; names, but it remains to be implemented.
(ledger-read-string-with-default "Value: " nil)) (ledger-read-string-with-default "Tag Name: " nil))
(defun ledger-report-tagvalue-format-specifier ()
"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))
(defun ledger-report-read-name () (defun ledger-report-read-name ()
"Read the name of a ledger report to use, with completion. "Read the name of a ledger report to use, with completion.
@ -388,12 +395,6 @@ Optional EDIT the command."
(set-window-configuration ledger-original-window-cfg) (set-window-configuration ledger-original-window-cfg)
(kill-buffer (get-buffer ledger-report-buffer-name))) (kill-buffer (get-buffer ledger-report-buffer-name)))
(defun ledger-report-kill ()
"Kill the ledger report buffer."
(interactive)
(ledger-report-quit)
(kill-buffer (get-buffer ledger-report-buffer-name)))
(defun ledger-report-edit-reports () (defun ledger-report-edit-reports ()
"Edit the defined ledger reports." "Edit the defined ledger reports."
(interactive) (interactive)