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

Merge pull request #308 from vanicat/t/dont-use-flatten

Browse source 
Thanks for catching this. I wonder why they took it out?  This is much less readable than 'flatten'.
This commit is contained in:
Craig Earls 2014-07-09 06:29:17 -07:00
commit ed692ee9a8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ledger-reconcile.el
View file

@ -323,9 +323,9 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(let (fields (let (fields
(start 0)) (start 0))
(while (string-match "(\\(.*?\\))" fstr start) (while (string-match "(\\(.*?\\))" fstr start)
(setq fields (list fields (intern (substring fstr (match-beginning 1) (match-end 1))))) (setq fields (cons (intern (match-string 1 fstr)) fields))
(setq start (match-end 0))) (setq start (match-end 0)))
(setq fields (flatten (list 'format (replace-regexp-in-string "(.*?)" "" fstr) (cdr (flatten fields))))) (setq fields (list* 'format (replace-regexp-in-string "(.*?)" "" fstr) (nreverse fields)))
`(lambda (date code status payee account amount) `(lambda (date code status payee account amount)
,fields))) ,fields)))