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

After reconciling, save all buffer that need to be saved.

Browse source
This commit is contained in:
Rémi Vanicat 2013-02-08 18:35:14 +01:00
parent 0b63dc0f84
commit e304cdfdbb
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ldg-reconcile.el
View file

@ -22,6 +22,7 @@
;; Reconcile mode ;; Reconcile mode
(defvar ledger-buf nil) (defvar ledger-buf nil)
(defvar ledger-bufs nil)
(defvar ledger-acct nil) (defvar ledger-acct nil)
(defcustom ledger-recon-buffer-name "*Reconcile*" (defcustom ledger-recon-buffer-name "*Reconcile*"
"Name to use for reconciliation window" "Name to use for reconciliation window"
@ -135,8 +136,9 @@
(defun ledger-reconcile-save () (defun ledger-reconcile-save ()
(interactive) (interactive)
(with-current-buffer ledger-buf (dolist (buf (cons ledger-buf ledger-bufs))
(save-buffer)) (with-current-buffer buf
(save-buffer)))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(ledger-display-balance)) (ledger-display-balance))
@ -199,12 +201,14 @@
(unless (looking-at "(") (unless (looking-at "(")
(error (buffer-string))) (error (buffer-string)))
(read (current-buffer)))))) (read (current-buffer))))))
(setq ledger-bufs ())
(if (> (length items) 0) (if (> (length items) 0)
(dolist (item items) (dolist (item items)
(let ((index 1)) (let ((index 1))
(dolist (xact (nthcdr 5 item)) (dolist (xact (nthcdr 5 item))
(let ((beg (point)) (let ((beg (point))
(where (ledger-marker-where-xact-is item))) (where (ledger-marker-where-xact-is item)))
(add-to-list 'ledger-bufs (car where))
(insert (format "%s %-4s %-30s %-30s %15s\n" (insert (format "%s %-4s %-30s %-30s %15s\n"
(format-time-string "%Y/%m/%d" (nth 2 item)) (format-time-string "%Y/%m/%d" (nth 2 item))
(if (nth 3 item) (if (nth 3 item)