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

Ensure that the reconcile buffer is shown when ledger-reconcile is called.

Browse source
This commit is contained in:
Rémi Vanicat 2013-02-13 17:03:48 +01:00
parent 24a9e422eb
commit 6967374801
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/ldg-reconcile.el
View file

@ -297,6 +297,15 @@
(save-excursion (save-excursion
(ledger-reconcile-visit t))))) (ledger-reconcile-visit t)))))
(defun ledger-reconcile-open-windows (buf rbuf)
"Ensure that the reconcile buffer has its windows
Spliting the windows of BUF if needed"
(if ledger-reconcile-force-window-bottom
;;create the *Reconcile* window directly below the ledger buffer.
(set-window-buffer (split-window (get-buffer-window buf) nil nil) rbuf)
(pop-to-buffer rbuf)))
(defun ledger-reconcile (account) (defun ledger-reconcile (account)
(interactive "sAccount to reconcile: ") (interactive "sAccount to reconcile: ")
(let ((buf (current-buffer)) (let ((buf (current-buffer))
@ -315,6 +324,8 @@
(if ledger-fold-on-reconcile (if ledger-fold-on-reconcile
(ledger-occur-change-regex account ledger-buf)) (ledger-occur-change-regex account ledger-buf))
(set-buffer (get-buffer ledger-recon-buffer-name)) (set-buffer (get-buffer ledger-recon-buffer-name))
(unless (get-buffer-window rbuf)
(ledger-reconcile-open-windows buf rbuf))
(ledger-reconcile-refresh)) (ledger-reconcile-refresh))
(progn ;; no recon-buffer, starting from scratch. (progn ;; no recon-buffer, starting from scratch.
@ -322,15 +333,8 @@
(if ledger-fold-on-reconcile (if ledger-fold-on-reconcile
(ledger-occur-mode account buf)) (ledger-occur-mode account buf))
(with-current-buffer (with-current-buffer (get-buffer-create ledger-recon-buffer-name)
(if ledger-reconcile-force-window-bottom (ledger-reconcile-open-windows buf (current-buffer))
;create the *Reconcile* window directly below the ledger buffer.
(progn
(set-window-buffer
(split-window (get-buffer-window buf) nil nil)
(get-buffer-create ledger-recon-buffer-name))
(get-buffer ledger-recon-buffer-name))
(pop-to-buffer (get-buffer-create ledger-recon-buffer-name)))
(ledger-reconcile-mode) (ledger-reconcile-mode)
(set (make-local-variable 'ledger-buf) buf) (set (make-local-variable 'ledger-buf) buf)
(set (make-local-variable 'ledger-acct) account) (set (make-local-variable 'ledger-acct) account)