[groff] 03/05: tmac/an-ext.tmac: Migrate from HTML-NS to \X.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit cd82f9aee11bb1d9d184072e3a0ffa01aab06f11
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun May 23 01:34:22 2021 +1000

    tmac/an-ext.tmac: Migrate from HTML-NS to \X.
    
    * tmac/an-ext.tmac (UE, ME): Replace calls to HTML-NS macro (from
      www.tmac) for emission of HTML 'A' tags with direct usage of \X device
      control escapes.
---
 ChangeLog        |  6 ++++++
 tmac/an-ext.tmac | 12 ++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0c5638c..5b2b024 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-05-23  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an-ext.tmac (UE, ME): Replace calls to HTML-NS macro for
+       emissions of HTML 'A' tags with direct usage of \X device
+       control escapes.
+
 2021-05-22  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/preproc/html/pre-html.cpp (main): Call `scanArguments()`
diff --git a/tmac/an-ext.tmac b/tmac/an-ext.tmac
index f8a6089..1a7abf0 100644
--- a/tmac/an-ext.tmac
+++ b/tmac/an-ext.tmac
@@ -114,15 +114,15 @@
 .
 .    \" Has there been one or more input lines for the link text?
 .    ie \\n(dn \{\
-.      do HTML-NS "<a href=""\\*(m1"">"
+.      nop \X^html:<a href="\\*(m1">^\c
 .      \" Yes, strip off final newline of diversion and emit it.
 .      do chop link-text-div
 .      do link-text-div
 \c
-.      do HTML-NS </a>
+.      nop \X^html:</a>^\c
 .    \}
 .    el \
-.      do HTML-NS "<a href=""\\*(m1"">\\*(m1</a>"
+.      nop \X^html:<a href="\\*(m1">\\*(m1</a>^\c
 \&\\$*\"
 .  \}
 .  el \{\
@@ -155,15 +155,15 @@
 .
 .    \" Has there been one or more input lines for the link text?
 .    ie \\n(dn \{\
-.      do HTML-NS "<a href=""mailto:\\*(m1"">"
+.      nop \X^html:<a href="mailto:\\*(m1">^\c
 .      \" Yes, strip off final newline of diversion and emit it.
 .      do chop link-text-div
 .      do link-text-div
 \c
-.      do HTML-NS </a>
+.      nop \X^html:</a>^\c
 .    \}
 .    el \
-.      do HTML-NS "<a href=""mailto:\\*(m1"">\\*(m1</a>"
+.      nop \X^html:<a href="mailto:\\*(m1">\\*(m1</a>^\c
 \&\\$*\"
 .  \}
 .  el \{\