diff options
Diffstat (limited to 'hledger-overview.hs')
| -rwxr-xr-x | hledger-overview.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index 431099f..bdb807b 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -63,7 +63,7 @@ main = do j <- getJournal t <- today let bal = getTotal j t reportopts - sec "cash balances" + sec "balances" row " cashapp" (cur $ bal "^as:me:cash:cashapp status:! status:*") Nothing row " wallet" (cur $ bal "^as:me:cash:wallet") Nothing row " cse" (cur $ bal "^as:me:cash:cse status:*") Nothing @@ -71,10 +71,10 @@ main = do row " citi" (cur $ bal "^li:me:cred:citi status:*") Nothing sec "allowances" - row " ben" (cur $ bal "^li:me:allowance:ben") Nothing - row " kate" (cur $ bal "^li:me:allowance:kate") Nothing - row " tithe" (cur $ bal "^li:me:church:tithe") Nothing - row "nick rent" (cur $ bal "^li:me:rent:nick") Nothing + row " ben" (cur $ bal "^li:me:allowance:ben cur:USD") Nothing + row " kate" (cur $ bal "^li:me:allowance:kate cur:USD") Nothing + row " tithe" (cur $ bal "^li:me:church:tithe cur:USD") Nothing + row "nick rent" (cur $ bal "^li:me:rent:nick cur:USD") Nothing let (year, month, _) = toGregorian t let expectedLevel = fromJust $ Map.lookup (roundTo 2 $ (fromIntegral year + fromIntegral month / 12) - (1992 + 7 / 12)) $ levelSchedule cur |