[groff] 17/23: [mdoc]: Add internal string `doc-Lk-font`.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit e083b3dfd93e092a2dc7bd7d335be23232ab9f6f
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Sep 15 14:09:42 2022 -0500

    [mdoc]: Add internal string `doc-Lk-font`.
    
    ...to manage the typeface in which to render URIs.
    
    * tmac/mdoc/doc-ditroff:
    * tmac/mdoc/doc-nroff: Add it.  Use roman instead of (Courier) bold.
      This is more consistent with man(7)'s `UR` and less with mandoc(1).
    
    * tmac/doc.tmac (Lk): Use it instead of `doc-Sy-font`.
---
 ChangeLog             | 12 ++++++++++++
 tmac/doc.tmac         |  4 +++-
 tmac/mdoc/doc-ditroff |  1 +
 tmac/mdoc/doc-nroff   |  1 +
 4 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 49cc8b4cc..1af112940 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2022-09-15  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [mdoc]: Add internal string `doc-Lk-font` to manage the typeface
+       in which to render URIs.
+
+       * tmac/mdoc/doc-ditroff:
+       * tmac/mdoc/doc-nroff: Add it.  Use roman instead of (Courier)
+       bold.  This is more consistent with man(7)'s `UR` and less with
+       mandoc(1).
+
+       * tmac/doc.tmac (Lk): Use it instead of `doc-Sy-font`.
+
 2022-09-15  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [mdoc]: Fix Savannah #59738.
diff --git a/tmac/doc.tmac b/tmac/doc.tmac
index bc3d4ca47..dabef5371 100644
--- a/tmac/doc.tmac
+++ b/tmac/doc.tmac
@@ -6738,6 +6738,8 @@
 .  \}
 .
 .  \" Format the link text, if any.
+.  \" XXX: The forced use of the emphasis font and a trailing colon
+.  \" seems intrusive.
 .  nr doc-curr-font \n[.f]
 .  if (\n[doc-arg-ptr] <= \n[doc-lasttext-Lk]) \{\
 .    nop \*[doc-Em-font]\c
@@ -6751,7 +6753,7 @@
 .  \}
 .
 .  \" Format the link target.
-.  nop \*[doc-Sy-font]\*[doc-target-Lk]\c
+.  nop \*[doc-Lk-font]\*[doc-target-Lk]\c
 .  nop \f[\n[doc-curr-font]]\c
 .
 .  \" Format trailing arguments, like punctuation, if any.
diff --git a/tmac/mdoc/doc-ditroff b/tmac/mdoc/doc-ditroff
index a9e951aff..7206b3853 100644
--- a/tmac/mdoc/doc-ditroff
+++ b/tmac/mdoc/doc-ditroff
@@ -66,6 +66,7 @@
 .ds doc-Ft-font \f[CO]\s[\n[.ps]u]
 .ds doc-Ic-font \f[CB]\s[\n[.ps]u]
 .ds doc-Li-font \f[C]
+.ds doc-Lk-font \f[R]\"
 .ds doc-Me-font \f[B]\s[\n[.ps]u]
 .ds doc-Nm-font \f[CB]\s[\n[.ps]u]
 .ds doc-No-font \f[R]\s[\n[.ps]u]
diff --git a/tmac/mdoc/doc-nroff b/tmac/mdoc/doc-nroff
index 7411b9b3f..343224ac3 100644
--- a/tmac/mdoc/doc-nroff
+++ b/tmac/mdoc/doc-nroff
@@ -58,6 +58,7 @@
 .ds doc-Ft-font \f[I]
 .ds doc-Ic-font \f[B]
 .ds doc-Li-font \f[R]
+.ds doc-Lk-font \f[R]\"
 .ds doc-Me-font \f[B]
 .ds doc-Nm-font \f[B]
 .ds doc-No-font \f[R]