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
|
#!/usr/bin/env runhaskell
-- | Calculates and displays an overview of my finances.
module Main where
import Hledger
import Data.Either (fromRight)
import Data.Time.Calendar (Day)
import Data.Time.Clock (UTCTime(utctDay), getCurrentTime)
import Data.Text (pack)
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
getTotal :: Journal -> Day -> String -> Quantity
getTotal j d q = head $ map aquantity $ total
where
opts = defreportopts { balancetype_ = CumulativeChange }
(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
|
