From 9597210556e606389bbc082e3dc4b1a7dc99e5f0 Mon Sep 17 00:00:00 2001
From: Dmitry Astapov <dastapov@gmail.com>
Date: Tue, 11 Feb 2025 20:35:44 +0000
Subject: [PATCH] script: balance-as-budget properly applies commodity styles
 now

---
 bin/hledger-balance-as-budget.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/hledger-balance-as-budget.hs b/bin/hledger-balance-as-budget.hs
index 08626e7df..666f2a251 100755
--- a/bin/hledger-balance-as-budget.hs
+++ b/bin/hledger-balance-as-budget.hs
@@ -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)