simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-29 05:11:33 +03:00
Code Issues Projects Releases Wiki Activity

when adding, the balancing amount is a more useful default

Browse Source
This commit is contained in:
Simon Michael 2009-04-16 05:45:06 +00:00
parent 468955a563
commit 522a1f4c2a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
AddCommand.hs
View File

@ -112,7 +112,8 @@ getPostings bestmatchps enteredps = do
where Just ps = bestmatchps
defaultaccount = maybe Nothing (Just . paccount) bestmatch
validateaccount = Just $ \s -> not $ null s
defaultamount = maybe Nothing (Just . show . pamount) bestmatch
defaultamount | n==1 = maybe Nothing (Just . show . pamount) bestmatch -- previously used amount
| otherwise = Just $ show $ negate $ sum $ map pamount enteredps -- balancing amount
validateamount = Just $ \s ->
(null s && (not $ null enteredps)) ||
(isRight $ parse (someamount>>many spacenonewline>>eof) "" s)