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

Improve complete-all and reconcile saving

Browse source
This commit is contained in:
Craig Earls 2013-03-25 13:35:59 -04:00
parent d3fe4c666f
commit e5525130c0
3 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-commodities.el
View file

@ -32,7 +32,8 @@
:group 'ledger-reconcile) :group 'ledger-reconcile)
(defun ledger-split-commodity-string (str) (defun ledger-split-commodity-string (str)
"Split a commoditized amount into two parts" "Split a commoditized string, STR, into two parts.
Returns a list with (value commodity)."
(if (> (length str) 0) (if (> (length str) 0)
(let ((number-regex (if (assoc "decimal-comma" ledger-environment-alist) (let ((number-regex (if (assoc "decimal-comma" ledger-environment-alist)
"-?[1-9][0-9.]*[,]?[0-9]*" "-?[1-9][0-9.]*[,]?[0-9]*"

2
lisp/ldg-complete.el
View file

@ -155,7 +155,7 @@ Does not use ledger xact"
(setq rest-of-name (match-string 3)) (setq rest-of-name (match-string 3))
;; Start copying the postings ;; Start copying the postings
(forward-line) (forward-line)
(while (looking-at "^\\s-+") (while (looking-at ledger-post-account-regex)
(setq xacts (cons (buffer-substring-no-properties (setq xacts (cons (buffer-substring-no-properties
(line-beginning-position) (line-beginning-position)
(line-end-position)) (line-end-position))

3
lisp/ldg-reconcile.el
View file

@ -217,7 +217,8 @@ Return the number of uncleared xacts found."
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(ledger-display-balance) (ledger-display-balance)
(goto-char curpoint) (goto-char curpoint)
(ledger-reconcile-visit t)))) ;; (ledger-reconcile-visit t)
)))
(defun ledger-reconcile-finish () (defun ledger-reconcile-finish ()
"Mark all pending posting or transactions as cleared. "Mark all pending posting or transactions as cleared.