mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-10 05:39:31 +03:00
47 lines
1.5 KiB
Haskell
Executable File
47 lines
1.5 KiB
Haskell
Executable File
#!/usr/bin/env runhaskell
|
|
{-
|
|
|
|
Like ledger's equity command, print a journal entry posting the total
|
|
balance of all accounts (or the specified account and its subaccounts)
|
|
in the default journal.
|
|
|
|
An entry like this is useful in the transition to a new journal file,
|
|
to zero out asset/liability balances in the old file and initialise
|
|
them in the new one. This way you get correct balances when reporting
|
|
on either file, and when including both files at once.
|
|
|
|
Usage: hledger-equity [ACCTPAT]
|
|
-}
|
|
|
|
import Hledger.Cli
|
|
import System.Environment
|
|
|
|
argsmode :: Mode RawOpts
|
|
argsmode = (defCommandMode ["equity"])
|
|
{ modeHelp = "print a journal entry posting the total balance of all accounts"
|
|
++ " (or the specified account and its subaccounts)"
|
|
, modeGroupFlags = Group
|
|
{ groupNamed =
|
|
[ ("Input",inputflags)
|
|
, ("Reporting",reportflags)
|
|
, ("Misc",helpflags)
|
|
]
|
|
, groupUnnamed = []
|
|
, groupHidden = []
|
|
}
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts <- getCliOpts argsmode
|
|
withJournalDo opts $
|
|
\CliOpts{reportopts_=ropts} j -> do
|
|
d <- getCurrentDay
|
|
let ropts_ = ropts{flat_=True}
|
|
let (acctbals,_) = balanceReport ropts_ (queryFromOpts d ropts_) j
|
|
let balancingamt = negate $ sum $ map (\((_,_,_),b) -> b) acctbals
|
|
let ps = [posting{paccount=a, pamount=b} | ((a,_,_),b) <- acctbals]
|
|
++ [posting{paccount="equity:opening balances", pamount=balancingamt}]
|
|
let txn = nulltransaction{tdate=d, tpostings=ps}
|
|
putStr $ showTransactionUnelided txn
|