0eceeb5542
Preserves most inter-entry comment lines and whitespace (but not yet a comment immediately after an entry, or whitespace/comments after the last entry.) Whitespace and comment lines are stored as part of the following entry. Lines after the last entry are stored as an extra ledger file field. Inspired by Nafai on #ledger.
87 lines
3.3 KiB
Haskell
87 lines
3.3 KiB
Haskell
module LedgerEntry
|
|
where
|
|
import Utils
|
|
import Types
|
|
import LedgerTransaction
|
|
import Amount
|
|
|
|
|
|
instance Show LedgerEntry where show = showEntryDescription
|
|
|
|
-- for register report
|
|
--
|
|
-- a register entry is displayed as two or more lines like this:
|
|
-- date description account amount balance
|
|
-- DDDDDDDDDD dddddddddddddddddddd aaaaaaaaaaaaaaaaaaaaaa AAAAAAAAAAA AAAAAAAAAAAA
|
|
-- aaaaaaaaaaaaaaaaaaaaaa AAAAAAAAAAA AAAAAAAAAAAA
|
|
-- ... ... ...
|
|
-- datewidth = 10
|
|
-- descwidth = 20
|
|
-- acctwidth = 22
|
|
-- amtwidth = 11
|
|
-- balwidth = 12
|
|
|
|
showEntryDescription e = (showDate $ edate e) ++ " " ++ (showDescription $ edescription e) ++ " "
|
|
showDate d = printf "%-10s" d
|
|
showDescription s = printf "%-20s" (elideRight 20 s)
|
|
|
|
-- quick & dirty: checks entry's 0 balance only to 8 places
|
|
isEntryBalanced :: LedgerEntry -> Bool
|
|
isEntryBalanced = ((0::Double)==) . read . printf "%0.8f" . quantity . sumLedgerTransactions . etransactions
|
|
|
|
autofillEntry :: LedgerEntry -> LedgerEntry
|
|
autofillEntry e@(LedgerEntry _ _ _ _ _ ts _) =
|
|
let e' = e{etransactions=autofillTransactions ts} in
|
|
case (isEntryBalanced e') of
|
|
True -> e'
|
|
False -> (error $ "transactions don't balance in " ++ show e)
|
|
|
|
-- the print command shows cleaned up ledger file entries, something like:
|
|
--
|
|
-- yyyy/mm/dd[ *][ CODE] description......... [ ; comment...............]
|
|
-- account name 1..................... ...$amount1[ ; comment...............]
|
|
-- account name 2..................... ..$-amount1[ ; comment...............]
|
|
--
|
|
-- pcodewidth = no limit -- 10
|
|
-- pdescwidth = no limit -- 20
|
|
-- pacctwidth = 35 minimum, no maximum
|
|
-- pamtwidth = 11
|
|
-- pcommentwidth = no limit -- 22
|
|
|
|
showEntry :: LedgerEntry -> String
|
|
showEntry e =
|
|
"\n" ++ precedingcomment ++ description ++ unlines (showtxns $ etransactions e)
|
|
where
|
|
precedingcomment = epreceding_comment_lines e
|
|
description = concat [date, status, code, desc] -- , comment]
|
|
date = showDate $ edate e
|
|
status = if estatus e then " *" else ""
|
|
code = if (length $ ecode e) > 0 then (printf " (%s)" $ ecode e) else ""
|
|
desc = " " ++ edescription e
|
|
comment = if (length $ ecomment e) > 0 then " ; "++(ecomment e) else ""
|
|
showtxns (t1:t2:[]) = [showtxn t1, showtxnnoamt t2]
|
|
showtxns ts = map showtxn ts
|
|
showtxn t = showacct t ++ " " ++ (showamount $ tamount t) ++ (showcomment $ tcomment t)
|
|
showtxnnoamt t = showacct t ++ " " ++ (showcomment $ tcomment t)
|
|
showacct t = " " ++ (showaccountname $ taccount t)
|
|
showamount = printf "%12s" . showAmountRounded
|
|
showaccountname s = printf "%-34s" s
|
|
showcomment s = if (length s) > 0 then " ; "++s else ""
|
|
|
|
showEntries :: [LedgerEntry] -> String
|
|
showEntries = concatMap showEntry
|
|
|
|
entrySetPrecision :: Int -> LedgerEntry -> LedgerEntry
|
|
entrySetPrecision p (LedgerEntry d s c desc comm ts prec) =
|
|
LedgerEntry d s c desc comm (map (ledgerTransactionSetPrecision p) ts) prec
|
|
|
|
|
|
-- modifier & periodic entries
|
|
|
|
instance Show ModifierEntry where
|
|
show e = "= " ++ (valueexpr e) ++ "\n" ++ unlines (map show (m_transactions e))
|
|
|
|
instance Show PeriodicEntry where
|
|
show e = "~ " ++ (periodexpr e) ++ "\n" ++ unlines (map show (p_transactions e))
|
|
|