Ken Mandelberg:
> I tested the patch. It does indeed fix the single
> author with title case.
>
> However, there still is one difference between
> groff and troff. In troff the signature comes out
> bold and in groff it doesn't. Any thoughts on
> that?
OK, I have modified the patch (attached).
But I am not sure how mm is supposed to handle long
signatures if they spread across the page boundary:
should it treat the .FC + .SG combination as an in-
divisible keep or not, e.t.c.; so I did it the sim-
plest way and with the least changes possible.
Anton
--- m.tmac-old.tmac 2012-01-31 20:11:31.244325100 +0400
+++ m.tmac 2012-01-31 20:10:42.917128000 +0400
@@ -3288,31 +3288,56 @@
.\}
..
.\"------------------------
+.\" Helper macro: assign string $2 to string $1 with separator $3
+.de ASS
+. if !d \\$1 \{\
+. ds sep-\\$1
+. ds \\$1
+. \}
+. if d \\$2 .as \\$1 \\*[sep-\\$1]\\*[\\$2]
+. ds sep-\\$1 \\$3
+..
.\" Memorandum signature
.de let*mt-sign
.df@print-float 3
-.ne \\n[cov*au]u*4v
+.di di-sgn
+.ft B
.ie \\n[.$]>1 .nr let*k 1
.el .nr let*k \\n[cov*au]
-.ds let*tmp \\*[cov*au!\\n[let*k]!3]-\\*[cov*au!\\n[let*k]!4]-
+.\" Concatenate attributes of the last author:
+.ASS let*tmp cov*au!\\n[let*k]!3 -
+.ASS let*tmp 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 /
-. as let*tmp \\*[cov*au!\\n[let*k]!2]
-.\}
+.\" Collect authors' initials:
+.while \\n+[let*i]<=\\n[cov*au] .ASS let*tmp cov*au!\\n[let*i]!2 "/"
.if !''\\$1' .as let*tmp -\\$1
+.nr i-old \\n[.i]u
.in (u;\\n[.l]/2)
.nf
.nr let*i 0 1
+.\" Loop through authors:
.while \\n+[let*i]<=\\n[cov*au] \{\
-. SP 3v
-. if \\n[let*i]=\\n[let*k] \{\
+. SP 3v
+. if \\n[let*i]=\\n[let*k] \{\
\Z'\h'-(u;\\n[.l]/2)'\\*[let*tmp]'\c
-. \}
+. \}
\\*[cov*au!\\n[let*i]!1]
+.\" Print author's titles, one per line:
+. nr cov*j 0 1
+. while \\n+[cov*j]<=9 \{\
+. br
+. if d cov*at!\\n[let*i]!\\n[cov*j] \\*[cov*at!\\n[let*i]!\\n[cov*j]]
+. \}
.\}
+.di
+.ne \\n[dn]u
+.in 0
+.di-sgn
+.ch di-sgn
.fi
-.in
+.in \\n[i-old]u
+.rr i-old
+.ft R
..
.\"------------------------
.\" Approval signature
