imp:cli:aregister: --title now sets the report heading

aregister's "Transactions in ACCT and subaccounts:" heading was
hardcoded; it is now the default for --title, so it can be replaced
with --title=TEXT or suppressed with --title=. --heading=no still
suppresses it as before.

AI usage: Claude Opus 5, ~15k output tokens

Author: simonmichael

hledger/Hledger/Cli/Commands/Aregister.hs

@@ -121,7 +121,7 @@ aregister opts@CliOpts{rawopts_=rawopts,reportspec_=rspec} j = do
       (if empty_ ropts' then id else filter (not . mixedAmountLooksZero . fifth6)) $
       reverse items
     -- select renderer
-    render | fmt=="txt"  = withTitle ropts' . accountTransactionsReportAsText opts (_rsQuery rspec') thisacctq
+    render | fmt=="txt"  = accountTransactionsReportAsText opts (_rsQuery rspec') thisacctq
            | fmt=="html" = accountTransactionsReportAsHTML opts (_rsQuery rspec') thisacctq
             | fmt=="csv"  = printCSV . accountTransactionsReportAsCsv opts hd wd (_rsQuery rspec') thisacctq
             | fmt=="tsv"  = printTSV . accountTransactionsReportAsCsv opts hd wd (_rsQuery rspec') thisacctq
@@ -208,7 +208,7 @@ accountTransactionsReportAsHTML copts reportq thisacctq items =
 -- | Render a register report as plain text suitable for console output.
 accountTransactionsReportAsText :: CliOpts -> Query -> Query -> AccountTransactionsReport -> TL.Text
 accountTransactionsReportAsText copts reportq thisacctq items = TB.toLazyText $
-    (optional (headingopt copts) $ acctHeading <> TB.singleton '\n')
+    titleBuilder
     <>
     postingsOrTransactionsReportAsText alignAll copts itemAsText itemamt itembal items
   where
@@ -217,8 +217,12 @@ accountTransactionsReportAsText copts reportq thisacctq items = TB.toLazyText $
     itemamt (_,_,_,_,a,_) = a
     itembal (_,_,_,_,_,a) = a
 
+    title = effectiveTitle (_rsReportOpts $ reportspec_ copts) defaultTitle
+    titleBuilder | not (headingopt copts) || T.null title = mempty
+                 | otherwise = TB.fromText title <> TB.singleton '\n'
+
     -- show a heading indicating which account was picked, which can be confusing otherwise
-    acctHeading = maybe mempty (\s -> foldMap TB.fromText ["Transactions in ", s, " and subaccounts", qmsg, ":"]) macct
+    defaultTitle = maybe "" (\s -> T.concat ["Transactions in ", s, " and subaccounts", qmsg, ":"]) macct
       where
         -- XXX temporary hack ? recover the account name from the query
         macct = case filterQuery queryIsAcct thisacctq of

hledger/hledger.m4.md

@@ -5678,7 +5678,7 @@ Examples:
 
 # Report titles
 
-Some reports (`balancesheet`, `balancesheetequity`, `cashflow`, `incomestatement`) are displayed with
+Some reports (`aregister`, `balance` (multi-period), `balancesheet`, `balancesheetequity`, `cashflow`, `holdings`, `incomestatement`) are displayed with
 a title by default, and others are not.  For most reports you can set a title with `--title='Some Text'`,
 or suppress the title with `--title=`.
 

hledger/test/aregister.test

@@ -142,3 +142,20 @@ Transactions in a and subaccounts:
 $ hledger -f - areg d --drop 1
 Transactions in d and subaccounts:
 2025-06-12                      b, c                           $-2           $-2
+
+# ** 10. --title replaces the default heading.
+<
+2025-06-12
+  (a)   $1
+
+$ hledger -f - areg a --title 'My Title'
+My Title
+2025-06-12                      a                               $1            $1
+
+# ** 11. An empty --title suppresses the heading.
+<
+2025-06-12
+  (a)   $1
+
+$ hledger -f - areg a --title=
+2025-06-12                      a                               $1            $1