7a13934968
When posting amounts or the running total contain more than one commodity, register-csv now prints them comma-separated on one line, instead of on multiple lines breaking the CSV output. This is may not be ideal for CSV consumers; alternatives include failing with an error, adding columns for additional commodities, ignoring all but one commodity.
60 lines
1.9 KiB
Haskell
Executable File
60 lines
1.9 KiB
Haskell
Executable File
#!/usr/bin/env runhaskell
|
|
{-|
|
|
hledger-register-csv [OPTIONS] [ARGS]
|
|
|
|
Show a register report as CSV.
|
|
-}
|
|
|
|
module Main
|
|
where
|
|
|
|
import Hledger.Cli
|
|
import Text.CSV
|
|
|
|
|
|
argsmode :: Mode RawOpts
|
|
argsmode = (defCommandMode ["register-csv"]) {
|
|
modeHelp = "show matched postings and running total as CSV"
|
|
,modeGroupFlags = Group {
|
|
groupUnnamed = [ -- copied from Register.hs:
|
|
flagNone ["historical","H"] (\opts -> setboolopt "historical" opts) "include prior postings in the running total"
|
|
,flagNone ["average","A"] (\opts -> setboolopt "average" opts) "show a running average instead of the running total (implies --empty)"
|
|
,flagNone ["related","r"] (\opts -> setboolopt "related" opts) "show postings' siblings instead"
|
|
]
|
|
,groupNamed = [
|
|
("Input",inputflags)
|
|
,("Reporting",reportflags)
|
|
,("Misc",helpflags)
|
|
]
|
|
,groupHidden = []
|
|
}
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts <- getCliOpts argsmode
|
|
withJournalDo opts $
|
|
\CliOpts{reportopts_=ropts} j -> do
|
|
d <- getCurrentDay
|
|
putStrLn $ printCSV $ postingsReportAsCsv $ postingsReport ropts (queryFromOpts d ropts) j
|
|
|
|
postingsReportAsCsv :: PostingsReport -> CSV
|
|
postingsReportAsCsv (_,is) =
|
|
["date","description","account","amount","running total or balance"]
|
|
:
|
|
map postingsReportItemAsCsvRecord is
|
|
|
|
postingsReportItemAsCsvRecord :: PostingsReportItem -> Record
|
|
postingsReportItemAsCsvRecord (_, _, _, p, b) = [date,desc,acct,amt,bal]
|
|
where
|
|
date = showDate $ postingDate p
|
|
desc = maybe "" tdescription $ ptransaction p
|
|
acct = bracket $ paccount p
|
|
where
|
|
bracket = case ptype p of
|
|
BalancedVirtualPosting -> (\s -> "["++s++"]")
|
|
VirtualPosting -> (\s -> "("++s++")")
|
|
_ -> id
|
|
amt = showMixedAmountOneLineWithoutPrice $ pamount p
|
|
bal = showMixedAmountOneLineWithoutPrice b
|