the --format option shall be known as "line format"

This commit is contained in:
Simon Michael 2014-10-20 13:03:44 -07:00
parent 7f6cf1f849
commit 301f506486
4 changed files with 10 additions and 10 deletions

View File

@ -284,7 +284,7 @@ balance :: CliOpts -> Journal -> IO ()
balance CliOpts{reportopts_=ropts} j = do
d <- getCurrentDay
let output =
case formatFromOpts ropts of
case lineFormatFromOpts ropts of
Left err -> [err]
Right _ ->
case (intervalFromOpts ropts, balancetype_ ropts) of
@ -298,7 +298,7 @@ balance CliOpts{reportopts_=ropts} j = do
balanceReportAsText :: ReportOpts -> BalanceReport -> [String]
balanceReportAsText opts ((items, total)) = concat lines ++ t
where
lines = case formatFromOpts opts of
lines = case lineFormatFromOpts opts of
Right f -> map (balanceReportItemAsText opts f) items
Left err -> [[err]]
t = if no_total_ opts

View File

@ -38,7 +38,7 @@ balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) {
-- | Print a simple balance sheet.
balancesheet :: CliOpts -> Journal -> IO ()
balancesheet CliOpts{reportopts_=ropts} j = do
-- let lines = case formatFromOpts ropts of Left err, Right ...
-- let lines = case lineFormatFromOpts ropts of Left err, Right ...
d <- getCurrentDay
let q = queryFromOpts d (withoutBeginDate ropts)
assetreport@(_,assets) = balanceReport ropts (And [q, journalAssetAccountQuery j]) j

View File

@ -40,7 +40,7 @@ cashflowmode = (defCommandMode ["cashflow","cf"]) {
-- | Print a simple cashflow statement.
cashflow :: CliOpts -> Journal -> IO ()
cashflow CliOpts{reportopts_=ropts} j = do
-- let lines = case formatFromOpts ropts of Left err, Right ...
-- let lines = case lineFormatFromOpts ropts of Left err, Right ...
d <- getCurrentDay
let q = queryFromOpts d ropts
cashreport@(_,total) = balanceReport ropts (And [q, journalCashAccountQuery j]) j

View File

@ -44,7 +44,7 @@ module Hledger.Cli.Options (
defaultWidthWithFlag,
widthFromOpts,
-- | For balance:
formatFromOpts,
lineFormatFromOpts,
-- * Other utils
hledgerAddons,
@ -284,7 +284,7 @@ rawOptsToCliOpts rawopts = do
-- | Do final validation of processed opts, raising an error if there is trouble.
checkCliOpts :: CliOpts -> IO CliOpts -- or pure..
checkCliOpts opts@CliOpts{reportopts_=ropts} = do
case formatFromOpts ropts of
case lineFormatFromOpts ropts of
Left err -> optserror $ "could not parse format option: "++err
Right _ -> return ()
case widthFromOpts opts of
@ -351,12 +351,12 @@ rulesFilePathFromOpts opts = do
-- | Parse the format option if provided, possibly returning an error,
-- otherwise get the default value.
formatFromOpts :: ReportOpts -> Either String [OutputFormat]
formatFromOpts = maybe (Right defaultBalanceFormat) parseStringFormat . format_
lineFormatFromOpts :: ReportOpts -> Either String [OutputFormat]
lineFormatFromOpts = maybe (Right defaultBalanceLineFormat) parseStringFormat . format_
-- | Default line format for balance report: "%20(total) %2(depth_spacer)%-(account)"
defaultBalanceFormat :: [OutputFormat]
defaultBalanceFormat = [
defaultBalanceLineFormat :: [OutputFormat]
defaultBalanceLineFormat = [
FormatField False (Just 20) Nothing TotalField
, FormatLiteral " "
, FormatField True (Just 2) Nothing DepthSpacerField