diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-02 15:45:01 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-02 15:46:20 -0500 |
| commit | 2e3948008f89d63203d17d0be79f8b3a0539548b (patch) | |
| tree | cb5378bdfbd41c89604397515bb0374f84f1293d | |
| parent | 2b1e970aec7f9a2f833170f32e2bce0755de6c27 (diff) | |
fix in - ex metric by dividing for monthly rate
| -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 2ba5e03..bc3718c 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -43,7 +43,7 @@ main = do sec "metrics" let netLiquid = bal "^as:me:cash ^li:me:cred cur:USD" let netWorth = balVal "^as ^li" - row " in - ex" (prn $ bal "^in ^ex cur:USD") $ Just "keep this negative to make progress" + row " in - ex" (prn $ bal "^in ^ex" / monthsSinceBeginning t) $ Just "keep this negative to make progress" row "cred load" (prn netLiquid) $ Just "net liquid: credit spending minus puren cash assets. keep it positive" row "net worth" (prn netWorth) Nothing row " level" (pr $ level netWorth) (Just $ "+" <> (prn $ netWorth - (unlevel $ roundTo' floor 1 $ level netWorth))) |