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

Add ability to reconcile new account without switching recon buffers

Browse source 
Show cleared balance on command
Update documentation
This commit is contained in:
Craig Earls 2013-01-30 21:50:23 -07:00
parent d9b1258c34
commit 0e16ce75f0
2 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/ledger3.texi
View file

@ -2502,13 +2502,17 @@ all of the uncleared transactions. The reconcile buffer has several functions:
@item C-x C-s
to save changes (to the ledger file as well).
@item q
quite the reconcile mode
quit the reconcile mode
@item n p
next line or previous line
@item A
add entry
@item D
delete entry
@item g
reconcile new account
@item b
show cleared balance in mini-buffer
@item C-l
refresh display
@end table

11
lisp/ldg-reconcile.el
View file

@ -26,6 +26,7 @@
(defun ledger-display-balance ()
"Calculate the cleared balance of the account being reconciled"
(interactive)
(let ((buffer ledger-buf)
(account ledger-acct))
(with-temp-buffer
@ -64,6 +65,11 @@
(forward-line)
(ledger-display-balance)))
(defun ledger-reconcile-new-account (account)
(interactive "sAccount to reconcile: ")
(set (make-local-variable 'ledger-acct) account)
(ledger-reconcile-refresh))
(defun ledger-reconcile-refresh ()
(interactive)
(let ((inhibit-read-only t)
@ -203,10 +209,12 @@
(define-key map [? ] 'ledger-reconcile-toggle)
(define-key map [?a] 'ledger-reconcile-add)
(define-key map [?d] 'ledger-reconcile-delete)
(define-key map [?g] 'ledger-reconcile-new-account)
(define-key map [?n] 'next-line)
(define-key map [?p] 'previous-line)
(define-key map [?s] 'ledger-reconcile-save)
(define-key map [?q] 'ledger-reconcile-quit)
(define-key map [?b] 'ledger-display-balance)
(define-key map [menu-bar] (make-sparse-keymap "ldg-recon-menu"))
(define-key map [menu-bar ldg-recon-menu] (cons "Reconcile" map))
@ -220,6 +228,9 @@
(define-key map [menu-bar ldg-recon-menu add] '("Add Entry" . ledger-reconcile-add))
(define-key map [menu-bar ldg-recon-menu tog] '("Toggle Entry" . ledger-reconcile-toggle))
(define-key map [menu-bar ldg-recon-menu sep3] '("--"))
(define-key map [menu-bar ldg-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
(define-key map [menu-bar ldg-recon-menu sep4] '("--"))
(define-key map [menu-bar ldg-recon-menu rna] '("Reconcile New Account" . ledger-reconcile-new-account))
(define-key map [menu-bar ldg-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
(define-key map [menu-bar ldg-recon-menu sav] '("Save" . ledger-reconcile-save))