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

improve C-c C-a (ledger-xact-insert-transaction) behaviour

Browse source 
When the right place to add a transaction is after all existing
transactions, add it just after the last transaction rather than at the
end of the buffer.  (Otherwise the transactions get added after Local
Variables blocks and any other endmatter.)
This commit is contained in:
Christophe Rhodes 2014-04-23 17:07:23 +01:00
parent 4707122eed
commit 9c3535823a
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/ledger-xact.el
View file

@ -89,12 +89,20 @@ within the transaction."
(defun ledger-xact-find-slot (moment)
"Find the right place in the buffer for a transaction at MOMENT.
MOMENT is an encoded date"
(catch 'found
(ledger-xact-iterate-transactions
(function
(lambda (start date mark desc)
(if (ledger-time-less-p moment date)
(throw 'found t)))))))
(let (last-xact-start)
(catch 'found
(ledger-xact-iterate-transactions
(function
(lambda (start date mark desc)
(setq last-xact-start start)
(if (ledger-time-less-p moment date)
(throw 'found t))))))
(when (and (eobp) last-xact-start)
(let ((end (cadr (ledger-find-xact-extents last-xact-start))))
(goto-char end)
(if (eobp)
(insert "\n")
(forward-line))))))
(defun ledger-xact-iterate-transactions (callback)
"Iterate through each transaction call CALLBACK for each."