hledger/LedgerTransaction.hs

38 lines
1.2 KiB
Haskell
Raw Normal View History

module LedgerTransaction
where
import Utils
import Types
import AccountName
import Amount
2007-07-04 14:59:29 +04:00
instance Show LedgerTransaction where show = showLedgerTransaction
2007-07-04 14:59:29 +04:00
showLedgerTransaction :: LedgerTransaction -> String
showLedgerTransaction t = (showaccountname $ taccount t) ++ " " ++ (showamount $ tamount t)
where
showaccountname = printf "%-22s" . elideRight 22
showamount = printf "%12s" . showAmountRoundedOrZero
elideRight width s =
case length s > width of
True -> take (width - 2) s ++ ".."
False -> s
autofillTransactions :: [LedgerTransaction] -> [LedgerTransaction]
autofillTransactions ts =
case (length blanks) of
0 -> ts
1 -> map balance ts
otherwise -> error "too many blank transactions in this entry"
where
(normals, blanks) = partition isnormal ts
balance t = if isnormal t then t else t{tamount = -(sumLedgerTransactions normals)}
isnormal t = (symbol $ currency $ tamount t) /= "AUTO"
2007-07-04 14:59:29 +04:00
sumLedgerTransactions :: [LedgerTransaction] -> Amount
sumLedgerTransactions = sum . map tamount
2007-07-04 14:59:29 +04:00
ledgerTransactionSetPrecision :: Int -> LedgerTransaction -> LedgerTransaction
ledgerTransactionSetPrecision p (LedgerTransaction a amt c) = LedgerTransaction a amt{precision=p} c