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

script: balance-as-budget properly applies commodity styles now

Browse Source
This commit is contained in:
Dmitry Astapov 2025-02-11 20:35:44 +00:00 committed by Simon Michael
parent b12d7cb05b
commit 9597210556
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bin/hledger-balance-as-budget.hs
View File

@ -11,6 +11,7 @@
import Data.Text.Lazy.IO as TL
import System.Environment (getArgs)
import Hledger.Cli.Script
import Hledger.Cli.Commands.Balance
------------------------------------------------------------------------------
cmdmode = hledgerCommandMode
@ -37,10 +38,11 @@ main = do
(opts,_,_,report1) <- mbReport report1args
(_,ropts2,j,report2) <- mbReport report2args
let pastAsBudget = combineBudgetAndActual ropts2 j report1{prDates=prDates report2} report2
writeOutputLazyText opts $ budgetReportAsText ropts2 pastAsBudget
styles = journalCommodityStylesWith HardRounding j
writeOutputLazyText opts $ budgetReportAsText ropts2 $ styleAmounts styles $ pastAsBudget
where
mbReport args = do
opts@CliOpts{reportspec_=rspec} <- getHledgerCliOpts' cmdmode args
opts@CliOpts{reportspec_=rspec} <- getHledgerCliOpts' balancemode args
d <- getCurrentDay
(report,j) <- withJournalDo opts $ \j -> return (multiBalanceReport rspec j, j)
return (opts, _rsReportOpts rspec,j,report)