gbranden pushed a commit to branch master
in repository groff.
commit 242b23d57c176800df1045a6b1c22d19a19918ca
Author: G. Branden Robinson <[email protected]>
AuthorDate: Wed Jun 12 08:45:57 2024 -0500
[mm]: Fix code style nits.
* contrib/mm/mm/0.MT:
* contrib/mm/mm/4.MT (cov@print-authors, cov@print-firm)
(cov@print-abstract):
* contrib/mm/mm/5.MT (cov@print-date): Fix code style nits. Favor font
selection requests over escape sequences. Employ `nop` request
to clarify control and macro structures.
* contrib/mm/mm/0.MT (cov*print-authors): Drop unnecessary `br` request
adjacently to invoking (with the normal control character) a request
that implies a break.
Also remove trailing white space from control lines.
---
contrib/mm/ChangeLog | 13 +++++++++++++
contrib/mm/mm/0.MT | 29 ++++++++++++++++++++++-------
contrib/mm/mm/4.MT | 11 ++++++-----
contrib/mm/mm/5.MT | 8 +++++---
4 files changed, 46 insertions(+), 15 deletions(-)
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 9afeacafa..31b534daf 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,16 @@
+2024-06-12 G. Branden Robinson <[email protected]>
+
+ * mm/0.MT:
+ * mm/4.MT (cov@print-authors, cov@print-firm)
+ (cov@print-abstract):
+ * mm/5.MT (cov@print-date): Fix code style nits. Favor font
+ selection requests over escape sequences. Employ `nop` request
+ to clarify control and macro structures.
+
+ * mm/0.MT (cov*print-authors): Drop unnecessary `br` request
+ adjacently to invoking (with the normal control character) a
+ request that implies a break.
+
2024-06-12 G. Branden Robinson <[email protected]>
* m.tmac: Define `Litb` string using mixed case instead of full
diff --git a/contrib/mm/mm/0.MT b/contrib/mm/mm/0.MT
index d5f985fe3..65d867262 100644
--- a/contrib/mm/mm/0.MT
+++ b/contrib/mm/mm/0.MT
@@ -39,8 +39,16 @@ subject:
.ft
.ll
.nf
-.if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
-.if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
+.if d cov*title-charge-case \{\
+. ft B
+. nop Work Project No.\& \\*[cov*title-charge-case]
+. ft
+.\}
+.if d cov*title-file-case \{\
+. ft B
+. nop File Case \\*[cov*title-file-case]
+. ft
+.\}
.fi
..
.\"------------
@@ -106,8 +114,9 @@ TM
.S
.sp -1
.in 0.8c
-\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
-.br
+.ft \\*[@sdf_font]
+.nop \\*[cov*new-date]
+.ft
.fi
.PGFORM
..
@@ -132,7 +141,9 @@ TM
. ll -\\n[cov*abstract-indent]u
. \}
. ce
-\fI\\$1\fP
+. ft I
+. nop \\$1
+. ft
. SP 1.5
. fi
. cov*abstract
@@ -164,13 +175,17 @@ TM
. SP 3
. if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
. ce
-\fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
. SP 1.5
+. ft I
+. nop \*[cov*mt0-txt!\*[cov*mt-type]]
+. ft
. \}
. if \*[cov*mt-type]=6 \{\
. ce
-\fI\*[cov*mt-type-text]\fP
. SP 1.5
+. ft I
+. nop \*[cov*mt-type-text]
+. ft
. \}
. pg@enable-top-trap
. pg@enable-trap
diff --git a/contrib/mm/mm/4.MT b/contrib/mm/mm/4.MT
index 99338c50d..3f9a9eed9 100644
--- a/contrib/mm/mm/4.MT
+++ b/contrib/mm/mm/4.MT
@@ -45,9 +45,9 @@ http://savannah.gnu.org/bugs/?group=groff.
.S +1
.nr cov*i 0 1
.while \\n+[cov*i]<=\\n[cov*au] \{\
-.ce
-\\*[cov*au!\\n[cov*i]!1]
-.br
+. ce
+. nop \\*[cov*au!\\n[cov*i]!1]
+. br
.\}
.S
.R
@@ -57,7 +57,7 @@ http://savannah.gnu.org/bugs/?group=groff.
.if d cov*firm \{\
. SP 0.5
. ce
-\\*[cov*firm]
+. nop \\*[cov*firm]
.\}
..
.\"------------
@@ -71,7 +71,8 @@ http://savannah.gnu.org/bugs/?group=groff.
. ll -\\n[cov*abstract-indent]u
. \}
. ce
-\fI\\*[Abstract]\fP
+. ft I
+. nop \\*[Abstract]
. SP 2
. fi
. cov*abstract
diff --git a/contrib/mm/mm/5.MT b/contrib/mm/mm/5.MT
index 10bf41042..74f03025d 100644
--- a/contrib/mm/mm/5.MT
+++ b/contrib/mm/mm/5.MT
@@ -39,15 +39,17 @@ http://savannah.gnu.org/bugs/?group=groff.
.\"------------
.de cov@print-date
.rj 1
-\f[\\*[@sdf_font]]\\*[cov*new-date]\fP
+.ft \\*[@sdf_font]
+.nop \\*[cov*new-date]
+.ft
.br
..
.\"------------
.if !d cov*mt-printed \{\
. SP 1.9c
-. cov@print-title
+. cov@print-title
. SP 1.2c
-. cov@print-date
+. cov@print-date
. SP 3
. pg@enable-top-trap
. pg@enable-trap
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
