slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bs/bse/cf/is: show overall report span in title

Browse Source
This commit is contained in:
Simon Michael 2018-01-18 12:00:16 -08:00
parent e9624486b6
commit 6210613f76
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli/CompoundBalanceCommand.hs
View File

@ -133,9 +133,10 @@ compoundBalanceCommand CompoundBalanceCommandSpec{..} opts@CliOpts{command_=cmd,
"change":_ -> Just PeriodChange "change":_ -> Just PeriodChange
_ -> Nothing _ -> Nothing
balancetype = fromMaybe cbctype mBalanceTypeOverride balancetype = fromMaybe cbctype mBalanceTypeOverride
-- when user overrides, add an indication to the report title title = cbctitle ++ " " ++ showDateSpan requestedspan ++ maybe "" (' ':) mtitleclarification
title = cbctitle ++ maybe "" (' ':) mtitleclarification
where where
requestedspan = queryDateSpan (date2_ ropts) userq `spanDefaultsFrom` journalDateSpan (date2_ ropts) j
-- when user overrides, add an indication to the report title
mtitleclarification = flip fmap mBalanceTypeOverride $ \t -> mtitleclarification = flip fmap mBalanceTypeOverride $ \t ->
case t of case t of
PeriodChange -> "(Balance Changes)" PeriodChange -> "(Balance Changes)"