[bug #62933] [man] produce hyperlinks in PDF output

[G. Branden Robinson]

Update of bug#62933 (group groff):

                  Status:                    None => In Progress            
             Assigned to:                    None => gbranden               
         Planned Release:                    None => 1.24.0                 

    _______________________________________________________

Follow-up Comment #6:

Got the last third.


diff --git a/tmac/an.tmac b/tmac/an.tmac
index 81ad61118..b8160e8aa 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -1270,6 +1270,11 @@ .de1 MR
 .  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 @@ .de1 MR
 .  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
 .  \}




    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?62933>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/