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

Added checking for thousands separators in commodity split.

Browse source
This commit is contained in:
Craig Earls 2013-03-20 22:20:00 -07:00
parent 7c6f900592
commit 045c4b19eb
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ldg-commodities.el
View file

@ -34,12 +34,14 @@
(defun ledger-split-commodity-string (str)
"Split a commoditized amount into two parts"
(if (> (length str) 0)
(let (val
comm)
(let (val comm number-regex)
(with-temp-buffer
(insert str)
(goto-char (point-min))
(cond ((re-search-forward "-?[1-9][0-9]*[.,][0-9]*" nil t)
(if (assoc "decimal-comma" ledger-environment-alist)
(setq number-regex "-?[1-9][0-9.]*[,][0-9]*")
(setq number-regex "-?[1-9][0-9,]*[.][0-9]*"))
(cond ((re-search-forward number-regex nil t)
;; found a decimal number
(setq val
(string-to-number