[groff] 16/30: [mm]: Refactor reference list formatting.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 3bc376d2ede58cb9f040e380f1ba49bb0c4a51e3
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Oct 9 21:29:46 2024 -0500

    [mm]: Refactor reference list formatting.
    
    * contrib/mm/m.tmac (RS): Drop trailing dot from list item mark.
    
      (ref@start-print): Format list in terms of mm `LB` and `LI` macros
      instead of `in`, `ti`, and `sp` *roff requests.  This includes setting
      `LB`'s "type" argument to "1", putting a trailing dot after the mark.
    
      (ref@stop-print): Call `LE` macro instead of invoking `br` request.
---
 contrib/mm/ChangeLog | 11 +++++++++++
 contrib/mm/m.tmac    | 11 +++++------
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index f99f03ea5..9109e80b3 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,14 @@
+2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac: Refactor reference list formatting.
+       (RS): Drop trailing dot from list item mark.
+       (ref@start-print): Format list in terms of mm `LB` and `LI`
+       macros instead of `in`, `ti`, and `sp` *roff requests.  This
+       includes setting `LB`'s "type" argument to "1", putting a
+       trailing dot after the mark.
+       (ref@stop-print): Call `LE` macro instead of invoking `br`
+       request.
+
 2024-10-09  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        The package no longer superscripts _and_ brackets a reference
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 5c684c6b3..24a581623 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3102,7 +3102,7 @@ exceeds depth of nested lists (\\n[li*lvl])
 .if !''\\$1' .ds \\$1 \*[ref*(]\\n[ref*nr]\*[ref*)]
 .nr ref*flag 1
 .am ref*mac
-.ref@start-print \\n[ref*nr].
+.ref@start-print \\n[ref*nr]
 \\..
 .eo
 .am ref*mac RF
@@ -3117,13 +3117,12 @@ exceeds depth of nested lists (\\n[li*lvl])
 .\"------------
 .de ref@start-print
 .di ref*div
-.in \\n[ref*nr-width]u
-.ti -(\w@\\$1@u+1n)
-\\$1
-.sp -1
+.LB \\n[Li] 0 1 1 "" 0 0
+.LI "\\$1"
 ..
+.\"------------
 .de ref@stop-print
-.br
+.LE
 .di
 .ne \\n[dn]u
 .ev ref*ev2