From 2e3948008f89d63203d17d0be79f8b3a0539548b Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 2 Jan 2021 15:45:01 -0500 Subject: fix in - ex metric by dividing for monthly rate --- hledger-overview.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.3