gbranden pushed a commit to branch master
in repository groff.
commit 40a8be66659cbea39ef454e3d426786a33eace20
Author: G. Branden Robinson <[email protected]>
AuthorDate: Wed Jun 12 12:15:06 2024 -0500
[mm]: Trivially refactor (`@metadata-font`).
Rename internal register `@sdf_font` to `@metadata-font` for greater
clarity and (forthcoming) accuracy. In DWB mm, the font style
configured by the `E` register applies not just to the "subject"
(document title), "date", and "from" (author name) metadata, the
signature lines produced by `SG`, and auxiliary author information
optionally present in `AU` macro calls.
* contrib/mm/m.tmac (initialization, AV, let@print-head):
* contrib/mm/mm/0.MT (cov@print-title, cov@print-authors)
(cov@print-date):
* contrib/mm/mm/5.MT (cov@print-date):
* contrib/mm/mm/ms.cov (cov@print-date): Do it.
---
contrib/mm/ChangeLog | 14 ++++++++++++++
contrib/mm/m.tmac | 8 ++++----
contrib/mm/mm/0.MT | 8 ++++----
contrib/mm/mm/5.MT | 2 +-
contrib/mm/mm/ms.cov | 2 +-
5 files changed, 24 insertions(+), 10 deletions(-)
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 202ac5188..dfb6efaee 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,17 @@
+2024-06-12 G. Branden Robinson <[email protected]>
+
+ Rename internal register `@sdf_font` to `@metadata-font` for
+ greater clarity and (forthcoming) accuracy. In DWB mm, the font
+ style configured by the `E` register applies not just to the
+ "subject" (document title), "date", and "from" (author name)
+ metadata, the signature lines produced by `SG`, and auxiliary
+ author information optionally present in `AU` macro calls.
+
+ * m.tmac (initialization, AV, let@print-head):
+ * mm/0.MT (cov@print-title, cov@print-authors, cov@print-date):
+ * mm/5.MT (cov@print-date):
+ * mm/ms.cov (cov@print-date): Do it.
+
2024-06-12 G. Branden Robinson <[email protected]>
* m.tmac: Complete (mostly already existing) support for DWB mm
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index fed827b1f..b68e42d4a 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -176,8 +176,8 @@ Index array!index
.if r C .nr @copy_type \n[C]
.\"
.if !r E .nr E 1
-.ie \n[E] .ds @sdf_font B\"
-.el .ds @sdf_font R\"
+.ie \n[E] .ds @metadata-font B\"
+.el .ds @metadata-font R\"
.\"
.if \n[@copy_type]=4 \{\
. ls 2
@@ -3539,7 +3539,7 @@ undefined
.sp 2
.ie n ______________________________ ______________
.el \D'l 25m 0'\h'4m'\D'l 12m 0'
-\Z'\\$1'\h'29m'\f[\\*[@sdf_font]]\\*[Letdate]\fP
+\Z'\\$1'\h'29m'\f[\\*[@metadata-font]]\\*[Letdate]\fP
.fi
..
.\"------------------------
@@ -3702,7 +3702,7 @@ undefined
. el \{\
. sp
. if '\\*[let*type]'SB' .ti +5m
-\\*[LetSJ] \f[\\*[@sdf_font]]\\*[let*lo-SJ]\fP
+\\*[LetSJ] \f[\\*[@metadata-font]]\\*[let*lo-SJ]\fP
. \}
. sp
.\}
diff --git a/contrib/mm/mm/0.MT b/contrib/mm/mm/0.MT
index 65d867262..ef4d8a86a 100644
--- a/contrib/mm/mm/0.MT
+++ b/contrib/mm/mm/0.MT
@@ -32,7 +32,7 @@ subject:
.sp -1.1
.S
.PGFORM
-.ft \\*[@sdf_font]
+.ft \\*[@metadata-font]
.ll 9c
.fi
.cov*title
@@ -63,7 +63,7 @@ subject:
.S
.sp -1
.in 0.8c
-.ft \\*[@sdf_font]
+.ft \\*[@metadata-font]
.nr cov*i 0 1
.while \\n+[cov*i]<=\\n[cov*au] \{\
. cov@print-au1 \\n[cov*i] 1
@@ -80,7 +80,7 @@ subject:
.if r cov*mt-tm-max \{\
. SP 1
. nr cov*i 0 1
-. ft \\*[@sdf_font]
+. ft \\*[@metadata-font]
TM
. in 1.5c
. sp -1
@@ -114,7 +114,7 @@ TM
.S
.sp -1
.in 0.8c
-.ft \\*[@sdf_font]
+.ft \\*[@metadata-font]
.nop \\*[cov*new-date]
.ft
.fi
diff --git a/contrib/mm/mm/5.MT b/contrib/mm/mm/5.MT
index 74f03025d..6dfdb82d0 100644
--- a/contrib/mm/mm/5.MT
+++ b/contrib/mm/mm/5.MT
@@ -39,7 +39,7 @@ http://savannah.gnu.org/bugs/?group=groff.
.\"------------
.de cov@print-date
.rj 1
-.ft \\*[@sdf_font]
+.ft \\*[@metadata-font]
.nop \\*[cov*new-date]
.ft
.br
diff --git a/contrib/mm/mm/ms.cov b/contrib/mm/mm/ms.cov
index b9019be86..4dd3c7072 100644
--- a/contrib/mm/mm/ms.cov
+++ b/contrib/mm/mm/ms.cov
@@ -91,7 +91,7 @@ http://savannah.gnu.org/bugs/?group=groff.
.\"------------
.de cov@print-date
.SP 2
-\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
+\f[\\*[@metadata-font]]\\*[cov*new-date]\fP
..
.\"-----------------
.de COVEND
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
