gbranden pushed a commit to branch master
in repository groff.
commit 529608ea8caa5e42fbc03e4d7aa0aa49b97f5a16
Author: G. Branden Robinson <[email protected]>
AuthorDate: Thu Jun 13 08:47:45 2024 -0500
[mm]: Trivially refactor.
* contrib/mm/m.tmac (let*mt-sign): Rename string `let*tmp` to
`let*anno`, reflecting its purpose as collector of the "secretarial
annotation" used by some letter and memorandum types. Use `nop` to
maintain logical indentation when formatting output. Break long lines
for clarity. Add comments to illuminate material laden with syntax.
---
contrib/mm/ChangeLog | 9 +++++++++
contrib/mm/m.tmac | 22 +++++++++++++---------
2 files changed, 22 insertions(+), 9 deletions(-)
diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index eca202d62..8e56ea1de 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,12 @@
+2024-06-13 G. Branden Robinson <[email protected]>
+
+ * m.tmac: Trivially refactor.
+ (let*mt-sign): Rename string `let*tmp` to `let*anno`, reflecting
+ its purpose as collector of the "secretarial annotation" used by
+ some letter and memorandum types. Use `nop` to maintain logical
+ indentation when formatting output. Break long lines for
+ clarity. Add comments to illuminate material laden with syntax.
+
2024-06-12 G. Branden Robinson <[email protected]>
* mm/4.MT (cov*print-title):
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index b68e42d4a..11c9321e4 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3498,18 +3498,20 @@ undefined
.ne \\n[cov*au]u*4v
.ie \\n[.$]>1 .nr let*k 1
.el .nr let*k \\n[cov*au]
-.ds let*tmp \" empty
+.ds let*anno \" secretarial annotation
.if d cov*au!\\n[let*k]!3 \{\
-. as let*tmp \\*[cov*au!\\n[let*k]!3]\"
+. as let*anno \\*[cov*au!\\n[let*k]!3]\"
. if d cov*au!\\n[let*k]!4 \
-. as let*tmp -\\*[cov*au!\\n[let*k]!4]-\"
+. as let*anno -\\*[cov*au!\\n[let*k]!4]-\"
.\}
.nr let*i 0 1
.while \\n+[let*i]<=\\n[cov*au] \{\
-. if \\n[let*i]>1 .as let*tmp /\"
-. if d cov*au!\\n[let*i]!2 .as let*tmp \\*[cov*au!\\n[let*i]!2]\"
+. if \\n[let*i]>1 .as let*anno /\"
+. if d cov*au!\\n[let*i]!2 \{\
+. as let*anno \\*[cov*au!\\n[let*i]!2]\"
+. \}
.\}
-.if !''\\$1' .as let*tmp -\\$1
+.if !''\\$1' .as let*anno -\\$1
.in (u;\\n[.l]/2)
.nf
.nr let*i 0 1
@@ -3517,12 +3519,14 @@ undefined
. ne 3v+\\n[cov*at!\\n[let*i]]v
. SP 3v
. if \\n[let*i]=\\n[let*k] \{\
-\Z'\h'-(u;\\n[.l]/2)'\\*[let*tmp]'\c
+. \" Set annotation at left margin of last author's name.
+. nop \Z'\h'-(u;\\n[.l]/2)'\\*[let*anno]'\c
. \}
-\\*[cov*au!\\n[let*i]!1]
+. nop \\*[cov*au!\\n[let*i]!1]
+. \" Set author's title(s).
. nr let*j 0 1
. while \\n+[let*j]<=\\n[cov*at!\\n[let*i]] \{\
-\\*[cov*at!\\n[let*i]!\\n[let*j]]
+. nop \\*[cov*at!\\n[let*i]!\\n[let*j]]
. \}
.\}
.fi
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
