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

More reconcile restructuring.

Browse source
This commit is contained in:
Craig Earls 2013-03-13 10:57:43 -07:00
parent 3b5316486a
commit 027c03858d
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/ldg-reconcile.el
View file

@ -318,11 +318,13 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(toggle-read-only t) (toggle-read-only t)
;; this next piece of code ensures that the last of the visible (ledger-reconcile-ensure-xacts-visible)))
;; transactions in the ledger buffer is at the bottom of the main
;; window. The key to this is to ensure the window is selected (defun ledger-reconcile-ensure-xacts-visible ()
;; when the buffer point is moved and recentered. If they aren't "Ensures that the last of the visible transactions in the
;; strange things happen. ledger buffer is at the bottom of the main window. The key to
this is to ensure the window is selected when the buffer point is
moved and recentered. If they aren't strange things happen."
(let ((recon-window (get-buffer-window (get-buffer ledger-recon-buffer-name)))) (let ((recon-window (get-buffer-window (get-buffer ledger-recon-buffer-name))))
(when recon-window (when recon-window
@ -335,10 +337,10 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(recenter -1)) (recenter -1))
(select-window recon-window) (select-window recon-window)
(ledger-reconcile-visit t)) (ledger-reconcile-visit t))
(add-hook 'post-command-hook 'ledger-reconcile-track-xact nil t)))) (add-hook 'post-command-hook 'ledger-reconcile-track-xact nil t)))
(defun ledger-reconcile-track-xact () (defun ledger-reconcile-track-xact ()
"Force the ledger buffer to recenter on the transactionat point in the reconcile buffer." "Force the ledger buffer to recenter on the transaction at point in the reconcile buffer."
(if (member this-command (list 'next-line (if (member this-command (list 'next-line
'previous-line 'previous-line
'mouse-set-point 'mouse-set-point
@ -388,11 +390,12 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(set (make-local-variable 'ledger-acct) account)))) (set (make-local-variable 'ledger-acct) account))))
;; Fold the ledger buffer ;; Fold the ledger buffer
(if ledger-fold-on-reconcile
(ledger-occur-mode account buf))
;; Now, actually run the reconciliation ;; Now, actually run the reconciliation
(with-current-buffer rbuf (with-current-buffer rbuf
(save-excursion
(if ledger-fold-on-reconcile
(ledger-occur-mode account ledger-buf)))
(ledger-reconcile-refresh) (ledger-reconcile-refresh)
(goto-char (point-min)) (goto-char (point-min))
(ledger-reconcile-change-target) (ledger-reconcile-change-target)