ec95b0723c
With this change, Transactions and Postings reference each other co-recursively. This makes constructing them more tedious, but it may also allow LedgerPostings to be dropped and code to be simplified. Time and space performance of register and balance is as before.
68 lines
2.4 KiB
Haskell
68 lines
2.4 KiB
Haskell
{-|
|
|
|
|
A 'Posting' represents a 'MixedAmount' being added to or subtracted from a
|
|
single 'Account'. Each 'Transaction' contains two or more postings
|
|
which should add up to 0.
|
|
|
|
Generally, we use these with the ledger transaction's date and description
|
|
added, which we call a 'LedgerPosting'.
|
|
|
|
-}
|
|
|
|
module Ledger.Posting
|
|
where
|
|
import Ledger.Utils
|
|
import Ledger.Types
|
|
import Ledger.Amount
|
|
import Ledger.AccountName
|
|
|
|
|
|
instance Show Posting where show = showPosting
|
|
|
|
nullrawposting = Posting False "" nullmixedamt "" RegularPosting Nothing
|
|
|
|
showPosting :: Posting -> String
|
|
showPosting (Posting{paccount=a,pamount=amt,pcomment=com,ptype=t}) =
|
|
concatTopPadded [showaccountname a ++ " ", showamount amt, comment]
|
|
where
|
|
ledger3ishlayout = False
|
|
acctnamewidth = if ledger3ishlayout then 25 else 22
|
|
showaccountname = printf ("%-"++(show acctnamewidth)++"s") . bracket . elideAccountName width
|
|
(bracket,width) = case t of
|
|
BalancedVirtualPosting -> (\s -> "["++s++"]", acctnamewidth-2)
|
|
VirtualPosting -> (\s -> "("++s++")", acctnamewidth-2)
|
|
_ -> (id,acctnamewidth)
|
|
showamount = padleft 12 . showMixedAmountOrZero
|
|
comment = if null com then "" else " ; " ++ com
|
|
-- XXX refactor
|
|
showPostingWithoutPrice (Posting{paccount=a,pamount=amt,pcomment=com,ptype=t}) =
|
|
concatTopPadded [showaccountname a ++ " ", showamount amt, comment]
|
|
where
|
|
ledger3ishlayout = False
|
|
acctnamewidth = if ledger3ishlayout then 25 else 22
|
|
showaccountname = printf ("%-"++(show acctnamewidth)++"s") . bracket . elideAccountName width
|
|
(bracket,width) = case t of
|
|
BalancedVirtualPosting -> (\s -> "["++s++"]", acctnamewidth-2)
|
|
VirtualPosting -> (\s -> "("++s++")", acctnamewidth-2)
|
|
_ -> (id,acctnamewidth)
|
|
showamount = padleft 12 . showMixedAmountOrZeroWithoutPrice
|
|
comment = if null com then "" else " ; " ++ com
|
|
|
|
isReal :: Posting -> Bool
|
|
isReal p = ptype p == RegularPosting
|
|
|
|
isVirtual :: Posting -> Bool
|
|
isVirtual p = ptype p == VirtualPosting
|
|
|
|
isBalancedVirtual :: Posting -> Bool
|
|
isBalancedVirtual p = ptype p == BalancedVirtualPosting
|
|
|
|
hasAmount :: Posting -> Bool
|
|
hasAmount = (/= missingamt) . pamount
|
|
|
|
postingTypeFromAccountName a
|
|
| head a == '[' && last a == ']' = BalancedVirtualPosting
|
|
| head a == '(' && last a == ')' = VirtualPosting
|
|
| otherwise = RegularPosting
|
|
|