[groff] 02/05: [man]: Fix Savannah #62933 (`MR` PDF hyperlinks).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 594937c50e0d9fed0c815ac4e3e0c560c6d66c32
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Tue Jan 30 21:02:03 2024 -0600

    [man]: Fix Savannah #62933 (`MR` PDF hyperlinks).
    
    * tmac/an.tmac (MR): Support hyperlinked man page cross references in
      PDF.
    
    Fixes <https://savannah.gnu.org/bugs/?62933>.
---
 ChangeLog    | 7 +++++++
 tmac/an.tmac | 9 +++++++++
 2 files changed, 16 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index c173c5654..cc0d3b5d5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-01-30  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac (MR): Support hyperlinked man page cross
+       references in PDF.
+
+       Fixes <https://savannah.gnu.org/bugs/?62933>.
+
 2024-01-30  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/preproc/tbl/table.cpp (table::add_entry): Recast recently
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 81ad61118..406e9f497 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -1270,6 +1270,11 @@ contains unsupported escape sequence
 .  if \\n[an*do-hyperlink] \{\
 .    if '\*[.T]'html' \
 .      nop \X^html:<a href="\\*[an*url]">^\c
+.    if '\*[.T]'pdf' \{\
+.      ds an*saved-stroke-color \\n[.m]\"
+.      nop \&\m[\\*[PDFHREF.TEXT.COLOUR]]\c
+.      pdfhref W -D \\*[an*url] -- "|"
+.    \}
 .    if \\n[an*is-output-terminal] \
 .      nop \X^tty: link \\*[an*url]^\c
 .  \}
@@ -1277,6 +1282,10 @@ contains unsupported escape sequence
 .  if \\n[an*do-hyperlink] \{\
 .    if '\*[.T]'html' \
 .      nop \X^html:</a>^\c
+.    if '\*[.T]'pdf' \{\
+.      nop \X'pdf: markend'\m[\\*[an*saved-stroke-color]]\c
+.      rm an*saved-stroke-color
+.    \}
 .    if \\n[an*is-output-terminal] \
 .      nop \X^tty: link^\c
 .  \}