gbranden pushed a commit to branch master
in repository groff.
commit d587cce6ea529f18fc964c3c08ada312a4b854cc
Author: G. Branden Robinson <[email protected]>
AuthorDate: Thu Jun 13 16:05:09 2024 -0500
[mm]: Adjust memorandum type 5 cosmetics.
* contrib/mm/mm/5.MT: Revise to more closely approximate DWB 3.3 troff
output. Initialize `let*sg-suppress-annotation` true. Set document
title (and charging and filing case numbers, if any) closer to where
DWB 3.3 puts it. Put the date where DWB 3.3 does, but let it shift
down if the title et al. are too garrulous, as DWB 3.3 does. Put less
space between the date and the document body.
(cov@print-title): Adjust line length. Stop turning on fill mode
unnecessarily. It should already be on at the start of a document.
Save and restore adjustment mode instead of clobbering it. Use the
"metadata font" for the charging and filing case numbers, not
necessarily bold.
(cov@print-date): Drop unnecessary break request.
---
contrib/mm/ChangeLog | 16 ++++++++++++++++
contrib/mm/mm/5.MT | 37 +++++++++++++++++++++++++++----------
2 files changed, 43 insertions(+), 10 deletions(-)
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index 87908bb84..0302790ba 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,19 @@
+2024-06-13 G. Branden Robinson <[email protected]>
+
+ * mm/5.MT: Revise to more closely approximate DWB 3.3 troff
+ output. Initialize `let*sg-suppress-annotation` true. Set
+ document title (and charging and filing case numbers, if any)
+ closer to where DWB 3.3 puts it. Put the date where DWB 3.3
+ does, but let it shift down if the title et al. are too
+ garrulous, as DWB 3.3 does. Put less space between the date and
+ the document body.
+ (cov@print-title): Adjust line length. Stop turning on fill
+ mode unnecessarily. It should already be on at the start of a
+ document. Save and restore adjustment mode instead of
+ clobbering it. Use the "metadata font" for the charging and
+ filing case numbers, not necessarily bold.
+ (cov@print-date): Drop unnecessary break request.
+
2024-06-13 G. Branden Robinson <[email protected]>
* mm/4.MT: Revise to more closely approximate DWB 3.3 troff
diff --git a/contrib/mm/mm/5.MT b/contrib/mm/mm/5.MT
index ee619bfe0..3753e18bf 100644
--- a/contrib/mm/mm/5.MT
+++ b/contrib/mm/mm/5.MT
@@ -3,6 +3,9 @@
Copyright (C) 1991-2020 Free Software Foundation, Inc.
mm is written by J�rgen H�gg <[email protected]>
+Modified by G. Branden Robinson <[email protected]> to more
+closely approximate DWB 3.3 troff output.
+
mm is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation, either version 3 of the License, or
@@ -25,32 +28,46 @@ http://savannah.gnu.org/bugs/?group=groff.
.\"------------
.de cov@print-title
.if !d cov*title .@error title not defined; call TL and AU before MT
+.nr cov*saved-adjustment \\n[.j]
+.ad l
.ft \\*[@metadata-font]
-.ll 9c
-.fi
+.\" TODO: We might compute this from the horizontal page dimensions
+.\" (W, O). For historical reconstructions, this suffices because the
+.\" AT&T mm product anticipated only U.S. letter paper.
+.ie t .ll 3i
+.el .ll 26n
.cov*title
+.br
.ll
-.nf
+.if d cov*title-charge-case \{\
+. nop Work Project No.\& \\*[cov*title-charge-case]
+.\}
+.br
+.if d cov*title-file-case File Case \\*[cov*title-file-case]
+.br
.ft
-.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
-.fi
+.ad \\n[cov*saved-adjustment]
+.rr cov*saved-adjustment
..
.\"------------
+.\" DWB 3.3 sets the date a little inboard of the right margin. But it
+.\" didn't have an `rj` request, and groff does, so we can flex a bit.
.de cov@print-date
.rj 1
.ft \\*[@metadata-font]
.nop \\*[cov*new-date]
.ft
-.br
..
.\"------------
+.nr let*sg-suppress-annotation 1
+.
.if !d cov*mt-printed \{\
-. SP 1.9c
+. SP |4
. cov@print-title
-. SP 1.2c
+. ie \n(nlu<=13v .SP |14
+. el .SP
. cov@print-date
-. SP 3
+. SP 2
. pg@enable-top-trap
. pg@enable-trap
. ds cov*mt-printed
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
