[groff] 05/10: [man] Refactor: init header/footer env only once.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 8a1477ba4451778c375b714c8c7ba3d2c210a6b1
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Fri Apr 8 05:41:22 2022 +1000

    [man] Refactor: init header/footer env only once.
    
    * tmac/an.tmac: Refactor: initialize header/footer environment only
      once.  Also rename it to `an*env-header-and-footer`.
    
      (TH): Do it here...
      (an-header, an-footer): ...instead of here.
---
 ChangeLog    |  7 +++++++
 tmac/an.tmac | 17 ++++++++---------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ee9147b9..ebbb4dfe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-04-08  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac: Refactor: initialize header/footer environment
+       only once.  Also rename it to `an*env-header-and-footer`.
+       (TH): Do it here...
+       (an-header, an-footer): ...instead of here.
+
 2022-04-08  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/an.tmac: Trivially refactor.
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 91f152ec..49ddfe9f 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -310,7 +310,12 @@
 .    rm an-msg
 .  \}
 .
-.  \" We now have what we need to typeset the (default) page header.
+.  \" Initialize environment for headers and footers.
+.  ev an*env-header-and-footer
+.  ps \\n[PS]u
+.  vs \\n[VS]u
+.  lt \\n[LT]u
+.  ev
 .
 .  \" HTML gets the title without any abbreviation, since it's metadata.
 .  if \\n[an-is-output-html] \{\
@@ -526,10 +531,7 @@
 .\" Prepare the header for a page of the document.
 .de1 an-header
 .  if \\n[an-suppress-header-and-footer] .return
-.  ev an-env-header-or-footer
-.  ps \\n[PS]u
-.  vs \\n[VS]u
-.  lt \\n[LT]u
+.  ev an*env-header-and-footer
 .  an*abbreviate-page-title
 .  PT
 .  ev
@@ -545,10 +547,7 @@
 .\" Prepare the footer for a page of the document.
 .de1 an-footer
 .  if \\n[an-suppress-header-and-footer] .return
-.  ev an-env-header-or-footer
-.  ps \\n[PS]u
-.  vs \\n[VS]u
-.  lt \\n[LT]u
+.  ev an*env-header-and-footer
 .  ie \\n[cR] \
 .    ds an-outer-footer-text "\\*[an-pageref]\"
 .  el \{\