[groff] 05/17: [man]: Write possibly capitalized HTML page title.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit ff741945abde5466d960ccb68935be8415172c1c
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Jun 25 08:50:03 2021 +1000

    [man]: Write possibly capitalized HTML page title.
    
    * tmac/an-old.tmac (TH): When outputting HTML, write the possibly
      case-transformed (but not yet abbreviated) page title as the `title`
      element instead of the unaltered first argument to `TH`.
---
 ChangeLog        |  7 +++++++
 tmac/an-old.tmac | 11 ++++++-----
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b2e526e..8fc2b17 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2021-06-25  G. Branden Robinson <g.branden.robinson@gmail.com>
 
+       * tmac/an-old.tmac (TH): When outputting HTML, write the
+       possibly case-transformed (but not yet abbreviated) page title
+       as the `title` element instead of the unaltered first argument
+       to `TH`.
+
+2021-06-25  G. Branden Robinson <g.branden.robinson@gmail.com>
+
        * tmac/an-old.tmac (an-abbreviate-title): Define with `de`, not
        `de1`, since it is not intended for call by traps or users.
 
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index 5b52c9d..4555758 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -172,11 +172,6 @@
 .    nr an-is-first-page-of-document 1
 .  \}
 .
-.  if \\n[an-is-output-html] \{\
-.    DEVTAG-TL
-.    nop \\$1
-.    DEVTAG-EO-TL
-.  \}
 .  \" Set up rendering parameters.  We do this in TH instead of only
 .  \" once when initializing the package because when rendering multiple
 .  \" pages, a previous page might have changed them.
@@ -263,6 +258,12 @@
 .    rm an-msg
 .  \}
 .
+.  if \\n[an-is-output-html] \{\
+.    DEVTAG-TL
+.    nop \\*[an-title]
+.    DEVTAG-EO-TL
+.  \}
+.
 .  an-header
 .
 .  if !\\n[cR] \{\