[groff] 08/12: tmac/an-old.tmac: Enable bold italics in headings.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 5ea945c8720ba102bbd30b3e36ca0a03d3149bb0
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu May 6 14:35:31 2021 +1000

    tmac/an-old.tmac: Enable bold italics in headings.
    
    If \*[HF] is a bold style, substitute bold italics for italics in
    section and subsection headings, keeping the font weight consistent.
    
    * tmac/an-old.tmac (initialization): Set a flag for this based on the
      interpolation of \*[HF] matching "B" as its last character.
    
      (SH, SS): Apply and reverse font remapping based on this flag.
---
 ChangeLog        | 11 +++++++++++
 tmac/an-old.tmac | 11 ++++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 3ea2058..14f6717 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 2021-05-06  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       If \*[HF] is a bold style, substitute bold italics for italics
+       in section and subsection headings, keeping the font weight
+       consistent.
+
+       * tmac/an-old.tmac (initialization): Set a flag for this based
+       on the interpolation of \*[HF] matching "B" as its last
+       character.
+       (SH, SS): Apply and reverse font remapping based on this flag.
+
+2021-05-06  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * tmac/an-ext.tmac (EX): Work around Savannah #59522 by changing
        fonts differently on DVI output, avoiding a font warning.
 
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index ad13147..e6594b5 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -1,6 +1,6 @@
 .\" an-old.tmac
 .\"
-.\" Copyright (C) 1989-2020 Free Software Foundation, Inc.
+.\" Copyright (C) 1989-2021 Free Software Foundation, Inc.
 .\"      Written by James Clark (jjc@jclark.com)
 .\"
 .\" This file is part of groff.
@@ -323,12 +323,14 @@
 .  nr an-break-flag 1
 .  ps \\n[PS-SH]u
 .  ft \\*[HF]
+.  if \\n[an-HF-remap-I-style] .ftr I BI
 .  ne (2v + 1u)
 .  if \\n[.$] \{\
 .    ds an-section-heading \\$*\"
 .    if \\n[CS] .stringup an-section-heading
 \&\\*[an-section-heading]
 .  \}
+.  if \\n[an-HF-remap-I-style] .ftr I I
 ..
 .
 .de1 SS
@@ -344,8 +346,10 @@
 .  nr an-break-flag 1
 .  ps \\n[PS-SS]u
 .  ft \\*[HF]
+.  if \\n[an-HF-remap-I-style] .ftr I BI
 .  ne (2v + 1u)
 .  if \\n[.$] \&\\$*
+.  if \\n[an-HF-remap-I-style] .ftr I I
 ..
 .
 .de1 B
@@ -826,6 +830,11 @@
 .if !d HF \
 .  ds HF B\"
 .
+.\" If HF is a bold style, use bold italics for italics in headings.
+.ds an-heading-style \*[HF]
+.substring an-heading-style -1 -1
+.if '\*[an-heading-style]'B' .nr an-HF-remap-I-style 1
+.
 .if \n[cR] \
 .  an-set-up-continuous-rendering
 .