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