diff options
| author | Ben Sima <ben@bsima.me> | 2021-02-15 22:28:46 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-02-15 22:28:46 -0500 |
| commit | e16b01f40e035e3c06e29c2228e99eb1b15ea854 (patch) | |
| tree | a1101f236624088d3b414eb705f5b1becac7e1e5 | |
| parent | 962a3cb6d2f716f8edee70b55cb71bea9f454780 (diff) | |
hledger-overview: decrease msg width
| -rwxr-xr-x | hledger-overview.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index 9f9cf7d..d3cae2c 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -53,7 +53,7 @@ main = do let expectedLevel = fromJust $ Map.lookup (roundTo 2 $ (fromIntegral year + fromIntegral month / 12) - (1992 + 7 / 12)) levelSchedule let expectedNetWorth = unlevel expectedLevel row " in - ex" (Limit 0 $ bal "^in ^ex" / monthsSinceBeginning t) $ Just "keep this negative to make progress" - row "cred load" (Target 0 netCash) $ Just "net cash: credit spending minus USD cash assets. keep it positive" + row "cred load" (Target 0 netCash) $ Just "credit spending minus cash. keep it positive" let monthlyNut = nut t $ balVal "^ex" let thisMonth = balVal "^ex date:thismonth" row "month exp" (Limit monthlyNut thisMonth) $ Just $ "avg: " <> (display $ Diff $ monthlyNut - thisMonth) |