diff options
| author | Ben Sima <ben@bsima.me> | 2021-06-01 06:52:04 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-06-01 06:52:04 -0400 |
| commit | 54ebee2c97f37c657997c3b1fa1c5f5f7243ae36 (patch) | |
| tree | 887ff661862575242545c287013755596d3c31fc | |
| parent | 70bbe2f78cb70a5a783c74d31979081b6f22ff11 (diff) | |
stub in:net metric
| -rwxr-xr-x | hledger-overview.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index cae3149..61825e9 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -69,6 +69,8 @@ main = do sec "metrics" row " in-ex" (Limit 0 $ bal "^in ^ex:me:want ^ex:me:need" / monthsSinceBeginning t) $ Just "keep this negative to make progress" row " li:as" (Percent_ $ 100 * (- bal "^li") / bal "^as") Nothing + -- let lastyear = 2020 + -- row " in:net" (- getTotal j t (defreportopts {value_ = value_, period_ = YearPeriod 2020}) "^in:me") Nothing row "cred load" (Target 0 netCash) $ Just "credit spending minus cash. keep it positive" row "month nut" (Limit monthlyNut thisMonth) $ Just $ "avg: " <> (display $ Diff $ monthlyNut - thisMonth) row " bip" (pr $ roundTo 2 $ trivial * netWorth) Nothing |