gbranden pushed a commit to branch master
in repository groff.
commit e2b15aa15ebcd0beb2a19a712b68f3addbd47886
Author: G. Branden Robinson <[email protected]>
AuthorDate: Sat Jun 22 14:28:44 2024 -0500
contrib/mm/m.tmac: Use whitespace constructively.
Continues commit dbbd88a857, 14 June.
---
contrib/mm/m.tmac | 104 +++++++++++++++++++++++++++---------------------------
1 file changed, 52 insertions(+), 52 deletions(-)
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index ce2f7a7d7..76da67d8e 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -162,7 +162,7 @@ http://savannah.gnu.org/bugs/?group=groff.
.if r L .pl \n[L]u
.
.ie r O .po \n[O]u
-.el \{\
+.el \{\
. ie n .po .75i
. el .po .963i
.\}
@@ -316,18 +316,18 @@ http://savannah.gnu.org/bugs/?group=groff.
.\" Letter section
.\" Formal closing (.FC)
.ds Letfc Yours very truly,
-.\"
+.
.\" Approval line
.ds Letapp APPROVED:
.\" Approval date-string
.ds Letdate Date
-.\"
+.
.ds LetCN CONFIDENTIAL\" Confidential default
.ds LetSA To Whom It May Concern:\" Salutation default
.ds LetAT ATTENTION:\" Attention string
.ds LetSJ SUBJECT:\" Subject string
.ds LetRN In reference to:\" Reference string
-.\"
+.
.\" Copy to (.NS)
.ds Letnsdef 0
.ds Letns!copy Copy \" space!
@@ -347,13 +347,13 @@ http://savannah.gnu.org/bugs/?group=groff.
.ds Letns!12 Abstract Only to
.ds Letns!13 Complete Memorandum to
.ds Letns!14 CC:
-.\" Max lines in return address
+.\" maximum number of productive input lines read into `WA` information
.nr Letwam 14
-.\"
+.
.\"---------------------------------------------
-.\" set local variables.
+.\" Localize package.
.ie d @country .msoquiet mm/\*[@country]_locale
-.el .msoquiet mm/locale
+.el .msoquiet mm/locale
.\"---------------------------------------------
.\" ####### module init ######
.\" reset all things
@@ -737,7 +737,7 @@ in=\\n[.i] fi=\\n[.u] .d=\\n[.d] nl=\\n[nl] pg=\\n[%]
.nf
.if (0\\n[misc*verb]%16)/8 .nm \\*[Verbnm]
.ie !'\\$3'' .if F \\$3 .ft \\$3
-.el .if F CR .ft CR
+.el .if F CR .ft CR
.ie 0\\$2 \{\
. ss \\$2
. ps \\$2
@@ -1078,8 +1078,8 @@ numeric; got '\\$1'
.if \\n[hd*level]<=\\n[Hb] .nr hd*htype 1
.if \\n[hd*level]<=\\n[Hs] .nr hd*htype 2
. \" two spaces if hd*htype == 0
-.ie (\\n[hd*htype]=0)&(\w@\\$2@) .ds hd*suf-space " \"
-.el .ds hd*suf-space \" empty
+.ie (\\n[hd*htype]=0)&(\w@\\$2@) .ds hd*suf-space " \" 2 spaces
+.el .ds hd*suf-space \" empty
.nr hd*need 2v \" hd*need = header need space
.\"---------- user macro HX ------------
.\" User exit macro to override numbering.
@@ -1089,7 +1089,7 @@ numeric; got '\\$1'
.\"--------------------------------------
.\" pre-space
.ie \\n[hd*level]<=\\n[Hps] .SP (u;\\n[Hps2])
-.el .SP (u;\\n[Hps1])
+.el .SP (u;\\n[Hps1])
.\"
.par@reset-num \\n[hd*level]\" reset numbered paragraph
.\" start diversion to measure size of header
@@ -1189,7 +1189,7 @@ numeric; got '\\$1'
.de hd@set-page
.\"
.ie \\n[.$]>0 .nr P \\$1
-.el .nr P +1
+.el .nr P +1
.\" Set section-page-string
.ds hd*sect-pg \\n[H1]-\\n[P]
.if \\n[Sectp]>1 .if '\\n[H1]'0' .ds hd*sect-pg "
@@ -1630,9 +1630,9 @@ active
.br
.nr pg*head-mark \\n[nl]u
.ie ''\\$1' .nr pg*column-size \\n[.l]
-.el .nr pg*column-size (n;\\$1)
+.el .nr pg*column-size (n;\\$1)
.ie ''\\$2' .nr pg*column-sep \\n[pg*column-size]/15
-.el .nr pg*column-sep (n;\\$2)
+.el .nr pg*column-sep (n;\\$2)
.\"
.\" calculate the number of columns/page
.nr pg*cols-per-page 0 \" temporarily invalid!
@@ -1770,7 +1770,7 @@ breaking page
.de FD
.if \\n[.$]=0 .@error \\$0: expected 1 or 2 arguments, got \\n[.$]
.ie \\n[.$]=2 .nr ft*clear-at-header 1
-.el .nr ft*clear-at-header 0
+.el .nr ft*clear-at-header 0
.\"
.if !'\\$1'' \{\
. ie \\$1>11 .nr ft*format 0
@@ -1835,7 +1835,7 @@ breaking page
.sp \\n[ft*space]u
.\" print mark
.ie \\n[.$] .ds ft*mark \\$1
-.el .ds ft*mark \\n[ft*nr].
+.el .ds ft*mark \\n[ft*nr].
\\*[ft*mark]
.in +.75c
.sp -1
@@ -1924,7 +1924,7 @@ breaking page
.\"--------------------------------------------
.de DE
.ie \\n[df*float] .df@end \\$@
-.el .ds@end \\$@
+.el .ds@end \\$@
..
.\"--------------------------------------------
.\" floating display start
@@ -2057,12 +2057,12 @@ breaking page
.nr df*f \\n[df*format!\\n[df*i]]
.\"
.in \\n[df*old-in]u
-.if \\n[df*f]=1 'in +\\n[Si]n
+.if \\n[df*f]=1 'in +\\n[Si]n
.if \\n[df*f]>=2 'in 0
-.if \\n[df*f]=2 'ce 9999
-.if \\n[df*f]=3 'in (u;(\\n[.l]-\\n[df*width!\\n[df*i]])/2)
-.if \\n[df*f]=4 'rj 9999
-.if \\n[df*f]=5 'in (u;\\n[.l]-\\n[df*width!\\n[df*i]])
+.if \\n[df*f]=2 'ce 9999
+.if \\n[df*f]=3 'in (u;(\\n[.l]-\\n[df*width!\\n[df*i]])/2)
+.if \\n[df*f]=4 'rj 9999
+.if \\n[df*f]=5 'in (u;\\n[.l]-\\n[df*width!\\n[df*i]])
.\"
.\"
.df*fdiv!\\n[df*o-fnr]
@@ -2143,7 +2143,7 @@ breaking page
.\}
.\"
.ie \\n[ds*fill] 'fi
-.el 'nf
+.el 'nf
..
.\"--------------------------------------------------------
.nr ds*format 0\" dummy value for .En/.EQ
@@ -2229,12 +2229,12 @@ breaking page
.\" check if pending equation label
.eq@check \\n[ds*need]
'in \\n[ds*old-in]u
-.if \\n[ds*format]=1 'in \\n[ds*old-in]u+\\n[Si]n
+.if \\n[ds*format]=1 'in \\n[ds*old-in]u+\\n[Si]n
.if \\n[ds*format]>=2 'in 0
-.if \\n[ds*format]=2 'ce 9999
-.if \\n[ds*format]=3 'in (u;(\\n[.l]-\\n[ds*width])/2)
-.if \\n[ds*format]=4 'rj 9999
-.if \\n[ds*format]=5 'in (u;\\n[.l]-\\n[ds*width])
+.if \\n[ds*format]=2 'ce 9999
+.if \\n[ds*format]=3 'in (u;(\\n[.l]-\\n[ds*width])/2)
+.if \\n[ds*format]=4 'rj 9999
+.if \\n[ds*format]=5 'in (u;\\n[.l]-\\n[ds*width])
.\" **********
.\"
.ds*div!\\n[ds*snr]
@@ -2261,7 +2261,7 @@ breaking page
.nr li*cur-vpos 0
.\"--------------------------
.\" the major list-begin macro.
-.\" If type == -1 a 'break' will occur.
+.\" If type is -1, a break occurs.
.de LB
.if \\n[.$]<4 .@error \\$0: expected at least 4 arguments, got \\n[.$]
.misc@push cind \\n[.i]
@@ -2279,9 +2279,9 @@ breaking page
.nr li*type 0\\$4\" type
.ds li*mark \\$5\" mark
.ie !'\\$6'' .nr li*li-spc \\$6\" LI-space
-.el .nr li*li-spc 1
+.el .nr li*li-spc 1
.ie !'\\$7'' .nr li*lb-spc \\$7\" LB-space
-.el .nr li*lb-spc 0
+.el .nr li*lb-spc 0
.\" init listcounter
.nr li*cnt!\\n[li*lvl] 0 1
.\" assign format
@@ -2323,7 +2323,7 @@ ML, RL, VL, or LB first
.\"
.\" determine where the mark begin
.ie !\\n[li*c-pad] .nr li*mark-begin \\n[li*mind]
-.el .nr li*mark-begin \\n[li*text-begin]-\\n[li*c-pad]-\w@\\*[li*c-mark]@
+.el .nr li*mark-begin
\\n[li*text-begin]-\\n[li*c-pad]-\w@\\*[li*c-mark]@
.if !\\n[li*mark-begin] .nr li*mark-begin 0
.\"
.ti -\\n[li*tind]u
@@ -2721,10 +2721,10 @@ exceeds depth of nested lists (\\n[li*lvl])
.ds lix*text "\\$4
.\"
.ie \\n[Sectf] .ds lix*numb \\n[H1]-\\$3
-.el .ds lix*numb \\$3
+.el .ds lix*numb \\$3
.\"
.ie !\\n[Of] .ds lix*ds-form .\ \ \"
-.el .ds lix*ds-form "\ \[em]\ \"
+.el .ds lix*ds-form "\ \[em]\ \"
.nr lix*in \\n[.i]
.ds lix*label \\*[Li\\$1]\ \\*[lix*numb]\\*[lix*ds-form]
.if !'\\$5'' \{\
@@ -2745,7 +2745,7 @@ exceeds depth of nested lists (\\n[li*lvl])
.\" label text type stringvar refname
.de lix@print-text
.ie \\n[Sectp] .ds lix*pgnr \\*[hd*sect-pg]
-.el .ds lix*pgnr \\n[%]
+.el .ds lix*pgnr \\n[%]
.SP \\n[Lsp]u
.misc@ev-keep lix
.init@reset
@@ -2858,15 +2858,15 @@ exceeds depth of nested lists (\\n[li*lvl])
.\"-----------
.de B
.ie \\n[.$] .fnt@switch \f3 \f[\\n[.f]] \\$@
-.el .ft 3
+.el .ft 3
..
.de I
.ie \\n[.$] .fnt@switch \f2 \f[\\n[.f]] \\$@
-.el .ft 2
+.el .ft 2
..
.de R
.ie \\n[.$] .fnt@switch \f1 \f[\\n[.f]] \\$@
-.el .ft 1
+.el .ft 1
..
.de IB
.if \\n[.$] .fnt@switch \f2 \f3 \\$@
@@ -2985,7 +2985,7 @@ exceeds depth of nested lists (\\n[li*lvl])
. return
.\}
.ie !''\\$2' .nr ref*i 0\\$2
-.el .nr ref*i \\n[Rpe]
+.el .nr ref*i \\n[Rpe]
.if \\n[ref*i]<2 .SK
.SP 2
.ref@print-refs
@@ -3042,7 +3042,7 @@ exceeds depth of nested lists (\\n[li*lvl])
.ds Apptxt \\$2
.\"
.ie \\n[Aph] .app@header \\*[app*ind] "\\$2"
-.el .bp
+.el .bp
.app@index "\\*[app*ind]" "\\$2"
..
.\"------------
@@ -3056,7 +3056,7 @@ exceeds depth of nested lists (\\n[li*lvl])
.ds Apptxt \\$3
.\"
.ie \\n[Aph] .app@header \\*[app*ind] "\\$3"
-.el .bp
+.el .bp
.app@index "\\*[app*ind]" "\\$3"
.pn +\\$2
..
@@ -3233,17 +3233,17 @@ exceeds depth of nested lists (\\n[li*lvl])
.ds cov*mt-addressee "\\$2
.ds cov*mt-type-text "\\$1
.ie d @country .ds cov*str mm/\\*[@country]_
-.el .ds cov*str mm/
+.el .ds cov*str mm/
.mso \\*[cov*str]\\*[cov*mt-file!\\*[cov*mt-type]]
..
.de COVER
.ds @cover \\$0
.@disable IA IE WA WE LO LT MT
.ie !\\n[.$] .ds cov*cov-type ms
-.el .ds cov*cov-type \\$1
+.el .ds cov*cov-type \\$1
.pg@disable-top-trap
.ie d @country .ds cov*str mm/\\*[@country]_\\*[cov*cov-type].cov
-.el .ds cov*str mm/\\*[cov*cov-type].cov
+.el .ds cov*str mm/\\*[cov*cov-type].cov
.mso \\*[cov*str]
..
.\"########################### module qrf ############################
@@ -3460,9 +3460,9 @@ exceeds depth of nested lists (\\n[li*lvl])
.de FC
.df@print-float 3
.ie \\n[.$] .ds let*i \\$1
-.el .ds let*i \\*[Letfc]
+.el .ds let*i \\*[Letfc]
.ie d let*type .let@fc_\\*[let*type] "\\*[let*i]" \\$@
-.el .let@formal-closing "\\*[let*i]" \\$@
+.el .let@formal-closing "\\*[let*i]" \\$@
..
.\"-------
.de let@formal-closing
@@ -3501,7 +3501,7 @@ undefined
.df@print-float 3
.ne \\n[cov*au]u*4v
.ie \\n[.$]>1 .nr let*k 1
-.el .nr let*k \\n[cov*au]
+.el .nr let*k \\n[cov*au]
.ds let*anno \" secretarial annotation
.if d cov*au!\\n[let*k]!3 \{\
. as let*anno \\*[cov*au!\\n[let*k]!3]\"
@@ -3548,10 +3548,10 @@ undefined
.nf
.sp
.ie \\n[.$]<2 \\*[Letapp]
-.el .sp
+.el .sp
.sp 2
.ie n ______________________________ ______________
-.el \D'l 25m 0'\h'4m'\D'l 12m 0'
+.el \D'l 25m 0'\h'4m'\D'l 12m 0'
\Z'\\$1'\h'29m'\f[\\*[@metadata-font]]\\*[Letdate]\fP
.fi
..
@@ -3562,7 +3562,7 @@ undefined
.nf
.sp 3
.ie n ______________________________
-.el \D'l 25m 0'
+.el \D'l 25m 0'
\Z'\\$1'
.fi
..
@@ -3668,7 +3668,7 @@ undefined
.if '1'\\$1' .in (u;\\n[.l]/2)
.\" ---- WA
.ie d let@wa-div .let@wa-div
-.el .sp 3
+.el .sp 3
.\" ---- datum
\\*[cov*new-date]
.sp
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
