diff options
| -rwxr-xr-x | hledger-fire.hs | 2 | ||||
| -rwxr-xr-x | hledger-overview.hs | 92 |
2 files changed, 74 insertions, 20 deletions
diff --git a/hledger-fire.hs b/hledger-fire.hs index a3e9443..600c8b0 100755 --- a/hledger-fire.hs +++ b/hledger-fire.hs @@ -71,7 +71,7 @@ targetFund j d = 25 * yearlyExpenses where yearlyExpenses = 4 * quarterlyExpenses quarterlyExpenses = sum $ map aquantity $ total - (query, _) = parseQuery d $ pack "^ex -p thisquarter --forecast cur:USD" + (query, _) = parseQuery d $ pack "^ex -p lastquarter cur:USD" (_, (Mixed total)) = balanceReport opts query j opts = defreportopts diff --git a/hledger-overview.hs b/hledger-overview.hs index 75a3127..02dafc1 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -11,34 +11,88 @@ main = do j <- getJournal today <- getCurrentTime >>= return . utctDay let bal = getTotal j today - say ["simple", show $ bal "^as:me:cash:simple status:! status:*"] - say ["wallet", show $ bal "^as:me:cash:wallet"] - say ["discover", show $ bal "^li:me:cred:discover status:*"] - say ["citi", show $ bal "^li:me:cred:citi status:*"] - say ["simple_save", show $ bal "^as:me:save:simple"] - say ["to_save", show $ bal "^li:me:save --auto"] - say ["btc", show $ bal "^as cur:BTC"] - let netWorth = bal "^as ^li cur:USD" - let netLiquid = bal "^as:me:cash ^li:me:cred cur:USD" - let trivialWorth = 0.0001 * netWorth - let trivialLiquid = 0.0001 * netLiquid - say ["net_worth", show netWorth] - say ["net_liquid", show netLiquid] - say ["trivial_worth", show trivialWorth] - say ["trivial_liquid", show trivialLiquid] - -say = putStrLn . unwords + sec "cash balances" + row "simple" (bal "^as:me:cash:simple status:! status:*") Nothing + row "wallet" (bal "^as:me:cash:wallet") Nothing + row "disc" (bal "^li:me:cred:discover status:*") Nothing + row "citi" (bal "^li:me:cred:citi status:*") Nothing + row "btc" (bal "^as cur:BTC") Nothing + + sec "savings" + row "simple" (bal "^as:me:save:simple") Nothing + row "tosave" (bal "^li:me:save:base --auto") Nothing + + sec "metrics" + row "in - ex" (bal "^in ^ex cur:USD -p thismonth") $ Just "keep this negative to make progress" + let netLiquid = bal "^as:me:cash ^li:me:cred cur:USD --real" + row "cred load" netLiquid $ Just "net liquid: credit spending minus cash assets. keep it positive" + let netWorth = bal "^as ^li cur:USD --real" + let trivialWorth = trivial * netWorth + let trivialLiquid = trivial * netLiquid + row "net worth" netWorth Nothing + + sec "trivials" + row "net" trivialWorth Nothing + row "liquid" trivialLiquid Nothing + +sec label = putStrLn $ "\n" <> label <> ":" +row label value Nothing = putStrLn $ "\t" <> label <> ":\t" <> show value +row label value (Just nb) = putStrLn $ "\t" <> label <> ":\t" <> show value <> "\t\t(" <> nb <> ")" + +-- | A trivial decision is one that is between 0.01% and 0.1% of the total. This +-- uses the upper bound of that range. +-- +-- From <https://ofdollarsanddata.com/climbing-the-wealth-ladder/> +trivial = 0.001 getTotal :: Journal -> Day -> String -> Quantity getTotal j d q = head $ map aquantity $ total where - opts = defreportopts { balancetype_ = CumulativeChange } + opts = defreportopts { balancetype_ = CumulativeChange, real_ = True } (query, _) = parseQuery d $ pack q (_, (Mixed total)) = balanceReport opts query j getJournal :: IO Journal getJournal = do jp <- defaultJournalPath - let opts = definputopts { auto_ = True } + let opts = definputopts { auto_ = True } ej <- readJournalFile opts jp return $ fromRight undefined ej + +-- | Escape velocity: +-- +-- In physics it is basically the movement of an object away from the earth, +-- calculated as: +-- +-- v = sqrt(2 * G * M / r) +-- +-- where: +-- +-- - G :: gravitational constant (inflation rate) +-- - M :: mass to be escaped from (liabilities) +-- - r :: distance from center of M (current net worth) +-- +-- So, to translate that into my finances would be something like: +-- +-- v = sqrt(2 * 3% * li / net_worth) +-- +-- v = sqrt(2 * 3% * 18534.54 / 17580.93) +-- +-- v = 0.25 +-- +-- I don't know what this means... maybe my money must be growing at a 25% rate in +-- order to cover the debt? I need to think about this equation some more. +-- +-- Basically, escape velocity will be when my assets are growing faster than my +-- debts. In order to know this, I need: +-- +-- 1. the accrual of every liability +-- 2. the return on every investment i make +-- 3. accrual rate must be less than return rate +-- 4. my income must always be more than my expenses +-- +-- Once I have all four conditions satisfied, then my finances will be in +-- correct order. The challenge then is to have a system that continually +-- satisfies the 4 conditions. +escapeVelocity :: Journal -> Quantity +escapeVelocity = undefined |