slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

handle multiple account patterns for balance report

Browse Source
This commit is contained in:
Simon Michael 2007-03-10 22:03:48 +00:00
parent 1e1c819f4e
commit dd202d3113
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Account.hs
View File

@ -108,9 +108,8 @@ ledgerAccountTreeMatching l showsubs [] =
ledgerAccountTreeMatching l showsubs [".*"] ledgerAccountTreeMatching l showsubs [".*"]
ledgerAccountTreeMatching l showsubs acctpats = ledgerAccountTreeMatching l showsubs acctpats =
addDataToAccountNameTree l $ addDataToAccountNameTree l $
filterAccountNameTree acctpat $ filterAccountNameTree acctpats $
ledgerAccountNameTree l ledgerAccountNameTree l
where acctpat = head acctpats
showLedgerAccounts :: Ledger -> Bool -> [String] -> String showLedgerAccounts :: Ledger -> Bool -> [String] -> String
showLedgerAccounts l showsubs acctpats = showLedgerAccounts l showsubs acctpats =

9
AccountName.hs
View File

@ -82,7 +82,10 @@ showAccountNameTree t =
where where
topacct = indentAccountName 0 $ root t topacct = indentAccountName 0 $ root t
filterAccountNameTree :: String -> Tree AccountName -> Tree AccountName filterAccountNameTree :: [String] -> Tree AccountName -> Tree AccountName
filterAccountNameTree s = treefilter ((matchAccountName s) . accountLeafName) filterAccountNameTree pats =
--any (flip matchAccountName . accountLeafName) acctpats treefilter matchany
where
matchany a = any (match a) pats
match a pat = matchAccountName pat $ accountLeafName a

3
TODO
View File

@ -75,9 +75,8 @@ algorithm:
2 add subaccounts if -s 2 add subaccounts if -s
3 display account tree, eliding boring accounts 3 display account tree, eliding boring accounts
* include subaccounts include subaccounts
elide boring accounts elide boring accounts
handle multiple patterns