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

Add ability to edit report command temporarily

Browse source
This commit is contained in:
Craig Earls 2014-09-18 19:56:34 -07:00
parent 61c3c19cf7
commit 3144ca87f4
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ledger-report.el
View file

@ -98,7 +98,8 @@ text that should replace the format specifier."
(define-key map [(shift ?r)] 'ledger-report-reverse-lines) (define-key map [(shift ?r)] 'ledger-report-reverse-lines)
(define-key map [?s] 'ledger-report-save) (define-key map [?s] 'ledger-report-save)
(define-key map [?k] 'ledger-report-kill) (define-key map [?k] 'ledger-report-kill)
(define-key map [?e] 'ledger-report-edit) (define-key map [?e] 'ledger-report-edit-report)
(define-key map [( shift ?e)] 'ledger-report-edit-reports)
(define-key map [?q] 'ledger-report-quit) (define-key map [?q] 'ledger-report-quit)
(define-key map [?g] 'ledger-report-redo) (define-key map [?g] 'ledger-report-redo)
(define-key map [(control ?c) (control ?l) (control ?r)] (define-key map [(control ?c) (control ?l) (control ?r)]
@ -393,11 +394,17 @@ Optional EDIT the command."
(ledger-report-quit) (ledger-report-quit)
(kill-buffer (get-buffer ledger-report-buffer-name))) (kill-buffer (get-buffer ledger-report-buffer-name)))
(defun ledger-report-edit () (defun ledger-report-edit-reports ()
"Edit the defined ledger reports." "Edit the defined ledger reports."
(interactive) (interactive)
(customize-variable 'ledger-reports)) (customize-variable 'ledger-reports))
(defun ledger-report-edit-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))
(defun ledger-report-read-new-name () (defun ledger-report-read-new-name ()
"Read the name for a new report from the minibuffer." "Read the name for a new report from the minibuffer."
(let ((name "")) (let ((name ""))