diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-03 15:09:14 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-03 15:09:14 -0500 |
| commit | f7b01f88ec969bd1a51c8cfe7511ffb0b79d51db (patch) | |
| tree | 47d8c470aa295b7c582b5343caf753f49658d6d4 /hledger-overview.hs | |
| parent | 2e3948008f89d63203d17d0be79f8b3a0539548b (diff) | |
rename net liquid to net cash
Diffstat (limited to 'hledger-overview.hs')
| -rwxr-xr-x | hledger-overview.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index bc3718c..ecbfe92 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -41,10 +41,10 @@ main = do row " btc" (prn $ btcBal "^as cur:BTC") (Just $ prn $ btcBalUSD "^as cur:BTC") sec "metrics" - let netLiquid = bal "^as:me:cash ^li:me:cred cur:USD" + let netCash = bal "^as:me:cash ^li:me:cred cur:USD" let netWorth = balVal "^as ^li" 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 "cred load" (prn netCash) $ Just "net cash: credit spending minus USD 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))) let levelup n = level netWorth & (+n) & roundTo' floor 1 & unlevel & \target -> target - netWorth @@ -54,9 +54,9 @@ main = do sec "trivials" let trivialWorth = roundTo 2 $ trivial * netWorth - let trivialLiquid = roundTo 2 $ trivial * netLiquid + let trivialCash = roundTo 2 $ trivial * netCash row " net" (pr trivialWorth) Nothing - row "liquid" (pr trivialLiquid) Nothing + row " cash" (pr trivialCash) Nothing sec "fire" let (thisyear, _, _) = toGregorian t |