summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorG. Branden Robinson <g.branden.robinson@gmail.com>2021-06-25 08:50:03 +1000
committerG. Branden Robinson <g.branden.robinson@gmail.com>2021-06-25 09:17:37 +1000
commitff741945abde5466d960ccb68935be8415172c1c (patch)
tree84f249556bcaa58d7f0bb08985a10fcf58537f76
parent54874ba6fba5105de48a391ac912263dc6de859f (diff)
downloadgroff-git-ff741945abde5466d960ccb68935be8415172c1c.tar.gz
[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`.
-rw-r--r--ChangeLog7
-rw-r--r--tmac/an-old.tmac11
2 files changed, 13 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index b2e526e69..8fc2b17fb 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 5b52c9dd5..4555758d8 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] \{\