blob: c97dee698d5bde39e9dc270a1b59aa2934964916 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
#!/usr/bin/env runhaskell
-- | Calculates and displays an overview of my finances.
module Main where
import Data.Decimal (Decimal)
import Data.Either (fromRight)
import Data.Text (pack)
import Data.Time.Calendar (Day)
import Data.Time.Clock (UTCTime (utctDay), getCurrentTime)
import Hledger
main = do
j <- getJournal
today <- getCurrentTime >>= return . utctDay
let bal = getTotal j today Nothing
let balUSD = getTotal j today $ Just $ pack "USD"
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 "metrics"
let netLiquid = bal "^as:me:cash ^li:me:cred cur:USD"
let netWorth = balUSD "^as ^li"
row " in - ex" (bal "^in ^ex cur:USD -p thismonth") $ Just "keep this negative to make progress"
row "cred load" netLiquid $ Just "net liquid: credit spending minus cash assets. keep it positive"
row "net worth" netWorth Nothing
row " level" (level netWorth) Nothing
sec "trivials"
let trivialWorth = trivial * netWorth
let trivialLiquid = trivial * netLiquid
row " net" trivialWorth Nothing
row "liquid" trivialLiquid Nothing
sec label = putStrLn $ "\n" <> label <> ":"
row label value Nothing = putStrLn $ gap <> label <> ":" <> gap <> show value
row label value (Just nb) = putStrLn $ gap <> label <> ":" <> gap <> show value <> gap <> "\t(" <> nb <> ")"
gap = " "
level :: Decimal -> Integer
level = floor . logBase 10 . realToFrac
-- | 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 -> Maybe CommoditySymbol -> String -> Quantity
getTotal j d commodity q = sum $ map aquantity $ total
where
value = case commodity of
Nothing -> Nothing
Just txt -> Just $ AtNow $ Just txt
opts =
defreportopts
{ balancetype_ = CumulativeChange,
real_ = True,
today_ = Just d,
value_ = value
}
(query, _) = parseQuery d $ pack q
(_, (Mixed total)) = balanceReport opts query j
getJournal :: IO Journal
getJournal = do
jp <- defaultJournalPath
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
|
