[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Groff-commit] groff/contrib/mom om.tmac
|
From: |
Peter Schaffter |
|
Subject: |
[Groff-commit] groff/contrib/mom om.tmac |
|
Date: |
Tue, 22 Feb 2011 19:48:54 +0000 |
CVSROOT: /sources/groff
Module name: groff
Changes by: Peter Schaffter <PTPi> 11/02/22 19:48:54
Modified files:
contrib/mom : om.tmac
Log message:
Sub-subheads added to om.tmac.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/mom/om.tmac?cvsroot=groff&r1=1.62&r2=1.63
Patches:
Index: om.tmac
===================================================================
RCS file: /sources/groff/groff/contrib/mom/om.tmac,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- om.tmac 11 Feb 2011 20:38:23 -0000 1.62
+++ om.tmac 22 Feb 2011 19:48:53 -0000 1.63
@@ -2,7 +2,7 @@
.ig
Mom -- a typesetting/document-processing macro set for groff.
-Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
Free Software Foundation, Inc.
Written by Peter Schaffter (address@hidden)
@@ -21,8 +21,8 @@
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
-Version 1.6
------------
+Version 1.6-a
+-------------
Antoine de St-Exupéry asserted that elegance in engineering is
achieved not when there is nothing left to add, but when there is
nothing left to take away.
@@ -41,6 +41,8 @@
"<anything>" in the description of arguments that can be passed
to a macro means that any argument turns the feature off.
+
+Thanks to everyone who has contributed suggestions and patches.
..
.\" %beginstrip%
\#
@@ -5107,6 +5109,7 @@
. if '\\$0'PARAHEAD_FAMILY' .ds $PH_FAM \\$1
. if '\\$0'QUOTE_FAMILY' .ds $QUOTE_FAM \\$1
. if '\\$0'SUBHEAD_FAMILY' .ds $SH_FAM \\$1
+. if '\\$0'SUBSUBHEAD_FAMILY' .ds $SSH_FAM \\$1
. if '\\$0'SUBTITLE_FAMILY' .ds $SUBTITLE_FAM \\$1
. if '\\$0'TITLE_FAMILY' .ds $TITLE_FAM \\$1
. if '\\$0'TOC_FAMILY' .ds $TOC_FAM \\$1
@@ -5116,6 +5119,7 @@
. if '\\$0'TOC_PARAHEAD_FAMILY' .ds $TOC_PH_FAM \\$1
. if '\\$0'TOC_PN_FAMILY' .ds $TOC_PN_FAM \\$1
. if '\\$0'TOC_SUBHEAD_FAMILY' .ds $TOC_SH_FAM \\$1
+. if '\\$0'TOC_SUBSUBHEAD_FAMILY' .ds $TOC_SSH_FAM \\$1
. if '\\$0'TOC_TITLE_FAMILY' .ds $TOC_TITLE_FAM \\$1
.END
\#
@@ -5159,6 +5163,7 @@
. if '\\$0'PARAHEAD_FONT' .ds $PH_FT \\$1
. if '\\$0'QUOTE_FONT' .ds $QUOTE_FT \\$1
. if '\\$0'SUBHEAD_FONT' .ds $SH_FT \\$1
+. if '\\$0'SUBSUBHEAD_FONT' .ds $SSH_FT \\$1
. if '\\$0'SUBTITLE_FONT' .ds $SUBTITLE_FT \\$1
. if '\\$0'TITLE_FONT' .ds $TITLE_FT \\$1
. if '\\$0'TOC_HEADER_FONT' .ds $TOC_HEADER_FT \\$1
@@ -5166,6 +5171,7 @@
. if '\\$0'TOC_PARAHEAD_FONT' .ds $TOC_PH_FT \\$1
. if '\\$0'TOC_PN_FONT' .ds $TOC_PN_FT \\$1
. if '\\$0'TOC_SUBHEAD_FONT' .ds $TOC_SH_FT \\$1
+. if '\\$0'TOC_SUBSUBHEAD_FONT' .ds $TOC_SSH_FT \\$1
. if '\\$0'TOC_TITLE_FONT' .ds $TOC_TITLE_FT \\$1
.END
\#
@@ -5208,6 +5214,7 @@
. if '\\$0'PARAHEAD_SIZE' .ds $PH_SIZE_CHANGE \\$1
. if '\\$0'QUOTE_SIZE' .ds $QUOTE_SIZE_CHANGE \\$1
. if '\\$0'SUBHEAD_SIZE' .ds $SH_SIZE_CHANGE \\$1
+. if '\\$0'SUBSUBHEAD_SIZE' .ds $SSH_SIZE_CHANGE \\$1
. if '\\$0'SUBTITLE_SIZE' .ds $SUBTITLE_SIZE_CHANGE \\$1
. if '\\$0'TITLE_SIZE' .ds $TITLE_SIZE_CHANGE \\$1
. if '\\$0'TOC_HEADER_SIZE' .ds $TOC_HEADER_SIZE_CHANGE \\$1
@@ -5215,6 +5222,7 @@
. if '\\$0'TOC_PARAHEAD_SIZE' .ds $TOC_PH_SIZE_CHANGE \\$1
. if '\\$0'TOC_PN_SIZE' .ds $TOC_PN_SIZE_CHANGE \\$1
. if '\\$0'TOC_SUBHEAD_SIZE' .ds $TOC_SH_SIZE_CHANGE \\$1
+. if '\\$0'TOC_SUBSUBHEAD_SIZE' .ds $TOC_SSH_SIZE_CHANGE \\$1
. if '\\$0'TOC_TITLE_SIZE' .ds $TOC_TITLE_SIZE_CHANGE \\$1
.END
\#
@@ -5329,6 +5337,10 @@
. nr #DOCTYPE_COLOR 1
. ds $DOCTYPE_COLOR \\$1
. \}
+. if '\\$0'ENDNOTE_STRING_COLOR' \{\
+. nr #ENDNOTE_STRING_COLOR 1
+. ds $ENDNOTE_STRING_COLOR \\$1
+. \}
. if '\\$0'EPIGRAPH_COLOR' \{\
. nr #EPI_COLOR 1
. ds $EPI_COLOR \\$1
@@ -5393,6 +5405,10 @@
. nr #SH_COLOR 1
. ds $SH_COLOR \\$1
. \}
+. if '\\$0'SUBSUBHEAD_COLOR' \{\
+. nr #SSH_COLOR 1
+. ds $SSH_COLOR \\$1
+. \}
. if '\\$0'SUBTITLE_COLOR' \{\
. nr #SUBTITLE_COLOR 1
. ds $SUBTITLE_COLOR \\$1
@@ -5434,6 +5450,7 @@
. if '\\$0'ENDNOTE_TITLE_QUAD' .ds $EN_TITLE_QUAD \\$1
. if '\\$0'EPIGRAPH_QUAD' .ds $EPI_QUAD \\$1
. if '\\$0'FOOTNOTE_QUAD' .ds $FN_QUAD \\$1
+. if '\\$0'SUBSUBHEAD_QUAD' .ds $SSH_QUAD \\$1
. if '\\$0'HEAD_QUAD' .ds $HEAD_QUAD \\$1
. if '\\$0'SUBHEAD_QUAD' .ds $SH_QUAD \\$1
. if '\\$0'TOC_HEADER_QUAD' .ds $TOC_HEADER_QUAD \\$1
@@ -5538,6 +5555,7 @@
. nr #DONE_ONCE 0 1
. RESET_HEAD_NUMBER
. RESET_SUBHEAD_NUMBER
+. RESET_SUBSUBHEAD_NUMBER
. RESET_PARAHEAD_NUMBER
.\" General style defaults for both PRINTSTYLEs
. nr #PP_STYLE 1
@@ -5557,6 +5575,7 @@
. if !r#HEAD_CAPS \{ .HEAD_CAPS \}
. if !r#HEAD_UNDERLINE \{ .HEAD_UNDERLINE \}
. if !d$SH_QUAD \{ .SUBHEAD_QUAD LEFT \}
+. if !d$SSH_QUAD \{ .SUBSUBHEAD_QUAD LEFT \}
. if !r#HDRFTR_RIGHT_CAPS \{ .HDRFTR_RIGHT_CAPS \}
. if \\n[#HDRFTR_RIGHT_CAPS]=0 \{\
. if !d$HDRFTR_RIGHT_SIZE_CHANGE \{ .HDRFTR_RIGHT_SIZE +0 \}
@@ -5669,6 +5688,10 @@
.\" +Footnotes
. if !d$FN_SIZE_CHANGE \{ .FOOTNOTE_SIZE +0 \}
. if !r#FN_RULE_LENGTH \{ .FOOTNOTE_RULE_LENGTH 2i \}
+.\" +Subheads
+. if !r#SH_BASELINE_ADJ \{ .SUBHEAD_BASELINE_ADJUST \\n[#LEAD]u/5 \}
+.\" +Subsubheads
+. if !r#SSH_BASELINE_ADJ \{ .SUBSUBHEAD_BASELINE_ADJUST \\n[#LEAD]u/5 \}
.\" +Paragraph heads
. if !r#PH_INDENT \{ .PARAHEAD_INDENT \\n[#PP_INDENT]u/2u \}
.\" +Endnotes
@@ -5848,6 +5871,12 @@
. if !d$SH_FAM \{ .SUBHEAD_FAMILY \\*[$DOC_FAM]
\}
. if !d$SH_FT \{ .SUBHEAD_FONT B
\}
. if !d$SH_SIZE_CHANGE \{ .SUBHEAD_SIZE +.5
\}
+. if !r#SH_BASELINE_ADJ \{ .SUBHEAD_BASELINE_ADJUST
\\n[#LEAD]u/8 \}
+.\" +SubSubheads
+. if !d$SSH_FAM \{ .SUBSUBHEAD_FAMILY \\*[$DOC_FAM]
\}
+. if !d$SSH_FT \{ .SUBSUBHEAD_FONT I
\}
+. if !d$SSH_SIZE_CHANGE \{ .SUBSUBHEAD_SIZE +.5
\}
+. if !r#SSH_BASELINE_ADJ \{ .SUBSUBHEAD_BASELINE_ADJUST
\\n[#LEAD]u/8 \}
.\" +Paragraph heads
. if !d$PH_FAM \{ .PARAHEAD_FAMILY \\*[$DOC_FAM]
\}
. if !d$PH_FT \{ .PARAHEAD_FONT BI
\}
@@ -5912,16 +5941,19 @@
. if !d$TOC_PN_FAM \{ .TOC_PN_FAMILY \\*[$TOC_FAM]
\}
. if !d$TOC_HEAD_FAM \{ .TOC_HEAD_FAMILY \\*[$TOC_FAM]
\}
. if !d$TOC_SH_FAM \{ .TOC_SUBHEAD_FAMILY \\*[$TOC_FAM]
\}
+. if !d$TOC_SSH_FAM \{ .TOC_SUBSUBHEAD_FAMILY
\\*[$TOC_FAM] \}
. if !d$TOC_PH_FAM \{ .TOC_PARAHEAD_FAMILY \\*[$TOC_FAM]
\}
. if !d$TOC_TITLE_FT \{ .TOC_TITLE_FONT BI
\}
. if !d$TOC_PN_FT \{ .TOC_PN_FONT R
\}
. if !d$TOC_HEAD_FT \{ .TOC_HEAD_FONT B
\}
. if !d$TOC_SH_FT \{ .TOC_SUBHEAD_FONT R
\}
-. if !d$TOC_PH_FT \{ .TOC_PARAHEAD_FONT I
\}
-. if !d$TOC_TITLE_SIZE_CHANGE \{ .TOC_TITLE_SIZE +.5
\}
+. if !d$TOC_SSH_FT \{ .TOC_SUBSUBHEAD_FONT I
\}
+. if !d$TOC_PH_FT \{ .TOC_PARAHEAD_FONT BI
\}
+. if !d$TOC_TITLE_SIZE_CHANGE \{ .TOC_TITLE_SIZE +1.5
\}
. if !d$TOC_PN_SIZE_CHANGE \{ .TOC_PN_SIZE +0
\}
. if !d$TOC_HEAD_SIZE_CHANGE \{ .TOC_HEAD_SIZE +.5
\}
. if !d$TOC_SH_SIZE_CHANGE \{ .TOC_SUBHEAD_SIZE +0
\}
+. if !d$TOC_SSH_SIZE_CHANGE \{ .TOC_SUBSUBHEAD_SIZE +0
\}
. if !d$TOC_PH_SIZE_CHANGE \{ .TOC_PARAHEAD_SIZE +0
\}
. ps \\n[#TOC_PS]u\\*[$TOC_TITLE_SIZE_CHANGE]
. if !r#TOC_HEAD_INDENT \{ .TOC_HEAD_INDENT \w'\0\0.'
\}
@@ -5930,7 +5962,10 @@
. if !r#TOC_SH_INDENT \{ .TOC_SUBHEAD_INDENT
\\n[#TOC_HEAD_INDENT]+\w'\0\0.' \}
. ps
. ps \\n[#TOC_PS]u\\*[$TOC_SH_SIZE_CHANGE]
-. if !r#TOC_PH_INDENT \{ .TOC_PARAHEAD_INDENT
\\n[#TOC_SH_INDENT]+\w'\0\0.' \}
+. if !r#TOC_SSH_INDENT \{ .TOC_SUBSUBHEAD_INDENT
\\n[#TOC_SH_INDENT]+\w'\0\0.' \}
+. ps
+. ps \\n[#TOC_PS]u\\*[$TOC_SSH_SIZE_CHANGE]
+. if !r#TOC_PH_INDENT \{ .TOC_PARAHEAD_INDENT
\\n[#TOC_SSH_INDENT]+\w'\0\0.' \}
. ps
. \}
.\" +Refer support
@@ -7995,6 +8030,7 @@
. PARAHEAD_FAMILY \\*[$DOC_FAM]
. QUOTE_FAMILY \\*[$DOC_FAM]
. SUBHEAD_FAMILY \\*[$DOC_FAM]
+. SUBSUBHEAD_FAMILY \\*[$DOC_FAM]
. SUBTITLE_FAMILY \\*[$DOC_FAM]
. TITLE_FAMILY \\*[$DOC_FAM]
.END
@@ -10201,11 +10237,13 @@
. ie '\\$1'' \{\
. nr #HEAD_NUM 0 1
. nr #SH_NUM 0 1
+. nr #SSH_NUM 0 1
. nr #PH_NUM 0 1
. \}
. el \{\
. nr #HEAD_NUM \\$1-1 1
. nr #SH_NUM 0 1
+. nr #SSH_NUM 0 1
. nr #PH_NUM 0 1
. \}
.END
@@ -10237,19 +10275,60 @@
\# Resets incrementing register #SH_NUM to 1 or, if there's
\# an argument, to user supplied number.
\# *Notes:
-\# When the subhead number is reset, it resets the parahead number as
-\# well. If this behaviour is not what's wanted, RESET_SUBHEAD_NUMBER
-\# allows the user to set the parahead number to whatever s/he desires.
+\# When the subhead number is reset, it resets the subsubhead and
+\# parahead numbers as well. If this behaviour is not what's
+\# wanted, RESET_SUBSUBHEAD_NUMBER and RESET_PARAHEAD_NUMBER
+\# allow the user to set the subsubhead and parahead number(s) to
+\# whatever s/he desires.
\#
.MAC RESET_SUBHEAD_NUMBER END
. ie '\\$1'' \{ .nr #SH_NUM 0 1 \}
. el \{\
. nr #SH_NUM \\$1-1 1
+. nr #SSH_NUM 0 1
. nr #PH_NUM 0 1
. \}
.END
\#
\#
+\# NUMBER SUBSUBHEADS
+\# ---------------
+\# *Arguments:
+\# <none> | <anything>
+\# *Function:
+\# Toggles register #NUMBER_SSH; sets incrementing register #SSH_NUM.
+\# *Notes:
+\# Default is OFF.
+\#
+.MAC NUMBER_SUBSUBHEADS END
+. ie '\\$1'' \{\
+. nr #NUMBER_SSH 1
+. if !\\n[#SSH_NUM] \{ .nr #SSH_NUM 0 1 \}
+. \}
+. el \{ .rr #NUMBER_SSH \}
+.END
+\#
+\#
+\# RESET SUBSUBHEAD NUMBER
+\# --------------------
+\# *Arguments:
+\# <none> | <desired subsubhead number>
+\# *Function:
+\# Resets incrementing register #SSH_NUM to 1 or, if there's
+\# an argument, to user supplied number.
+\# *Notes:
+\# When the subsubhead number is reset, it resets the parahead number as
+\# well. If this behaviour is not what's wanted, RESET_PARAHEAD_NUMBER
+\# allows the user to set the parahead number to whatever s/he desires.
+\#
+.MAC RESET_SUBSUBHEAD_NUMBER END
+. ie '\\$1'' \{ .nr #SSH_NUM 0 1 \}
+. el \{\
+. nr #SSH_NUM \\$1-1 1
+. nr #PH_NUM 0 1
+. \}
+.END
+\#
\# NUMBER PARAHEADS
\# ----------------
\# *Arguments:
@@ -10436,7 +10515,7 @@
\!. TRAP OFF
\!. PAD_MARKER ^
. ie \\n[#PRINT_STYLE]=1 \{\
-\!. PAD "\\h'2m'\\*[$TOC_HEAD_ITEM]\\*[$TOC_PN_TYPEWRITE]"
+\!. PAD "\\h'\w'\0\0.'u'\\*[$TOC_HEAD_ITEM]\\*[$TOC_PN_TYPEWRITE]"
. \}
. el \{\
\!. PAD "\\h'\\n[#TOC_HEAD_INDENT]u'\\*[$TOC_HEAD_ITEM]\\*[$TOC_PN]"
@@ -10585,7 +10664,8 @@
. ev
. ALD \\n[#DOC_LEAD]u
. if \\n[#NUMBER_HEAD] \{ .RESET_SUBHEAD_NUMBER \}
-. if \\n[#NUMBER_SH] \{ .RESET_PARAHEAD_NUMBER \}
+. if \\n[#NUMBER_SH] \{ .RESET_SUBSUBHEAD_NUMBER \}
+. if \\n[#NUMBER_SSH] \{ .RESET_PARAHEAD_NUMBER \}
. if r#START \{ .rr #START \}
. if r#EPIGRAPH \{ .rr #EPIGRAPH \}
. if r#QUOTE \{ .rr #QUOTE \}
@@ -10603,6 +10683,17 @@
\#
\# ---Subheads---
\#
+\# SUBHEAD BASELINE ADJUSTMENT
+\# ---------------------------
+\# *Arguments:
+\# <amount to raise subhead>
+\# *Function:
+\# Creates or modifies register #SH_BASELINE_ADJ
+\#
+.MAC SUBHEAD_BASELINE_ADJUST END
+. nr #SH_BASELINE_ADJ \\$1
+.END
+\#
\# SUBHEAD
\# -------
\# *Arguments:
@@ -10663,7 +10754,7 @@
\!. TRAP OFF
\!. PAD_MARKER ^
. ie \\n[#PRINT_STYLE]=1 \{\
-\!. PAD "\\h'4m'\\*[$TOC_SH_ITEM]\\*[$TOC_PN_TYPEWRITE]"
+\!. PAD "\\h'\w'\0\0.'u*2u'\\*[$TOC_SH_ITEM]\\*[$TOC_PN_TYPEWRITE]"
. \}
. el \{\
\!. PAD "\\h'\\n[#TOC_SH_INDENT]u'\\*[$TOC_SH_ITEM]\\*[$TOC_PN]"
@@ -10710,8 +10801,6 @@
. LS \\n[#DOC_LEAD]u
. QUAD \\*[$SH_QUAD]
. \}
-. if \\n[#PRINT_STYLE]=1 \{ .nr #SH_LEAD_ADJUST \\n[#LEAD]/5 \}
-. if \\n[#PRINT_STYLE]=2 \{ .nr #SH_LEAD_ADJUST \\n[#LEAD]/8 \}
. ie \\n[#START] \{ .RLD 1v \}
. el \{\
. ie \\n[#HEAD]=1 \{ . \}
@@ -10743,24 +10832,24 @@
. \}
. ie \\n[#NUMBER_HEAD] \{\
. br
-. UNDERSCORE
"\v'-\\n[#SH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]"
+. UNDERSCORE
"\v'-\\n[#SH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]"
. br
. \}
. el \{\
. br
-. UNDERSCORE
"\v'-\\n[#SH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]"
+. UNDERSCORE
"\v'-\\n[#SH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]"
. br
. \}
. \}
. el \{\
. br
-. UNDERSCORE "\v'-\\n[#SH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]"
+. UNDERSCORE "\v'-\\n[#SH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]"
. br
. \}
. \}
. el \{\
. br
-. UNDERSCORE "\v'-\\n[#SH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]"
+. UNDERSCORE "\v'-\\n[#SH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]"
. br
. \}
.\}
@@ -10782,24 +10871,24 @@
. \}
. ie \\n[#NUMBER_HEAD] \{\
. br
-. PRINT
"\v'-\\n[#SH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]
+. PRINT
"\v'-\\n[#SH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]
. br
. \}
. el \{\
. br
-. PRINT
"\v'-\\n[#SH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]
+. PRINT
"\v'-\\n[#SH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n+[#SH_NUM].\0\\$[\\n+[#ARG_NUM]]
. br
. \}
. \}
. el \{\
. br
-. PRINT "\v'-\\n[#SH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]
+. PRINT "\v'-\\n[#SH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]
. br
. \}
. \}
. el \{\
. br
-. PRINT "\v'-\\n[#SH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]
+. PRINT "\v'-\\n[#SH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]
. br
. \}
.\}
@@ -10857,6 +10946,271 @@
. nr #HEAD 2
.END
\#
+\# ---Subsubheads---
+\#
+\#
+\# SUBSUBHEAD BASELINE ADJUSTMENT
+\# ------------------------------
+\# *Arguments:
+\# <amount to raise subsubhead>
+\# *Function:
+\# Creates or modifies register #SSH_BASELINE_ADJ
+\#
+.MAC SUBSUBHEAD_BASELINE_ADJUST END
+. nr #SSH_BASELINE_ADJ \\$1
+.END
+\#
+\# SUBSUBHEAD
+\# -------
+\# *Arguments:
+\# "text of subsubhead" ["text of subsubhead"] ...
+\# *Function:
+\# In TYPEWRITE, prints subsubheads underlined.
+\# In TYPESET, prints subsubheads bold, .5 points larger than running
+\# text.
+\# In both styles, a line space precedes the subsubhead, and a small
+\# amount of lead comes after.
+\# *Notes:
+\# As with the HEAD macro, double-quotes (") must surround
+\# each line of text.
+\#
+.MAC SUBSUBHEAD END
+. if \\n[#UNDERLINE_ON]=1 .UNDERLINE OFF
+. br
+. ne \\n[#NUM_ARGS]+2
+.\" Collect subsubhead for TOC.
+. nr #ARG_NUM 0 1
+. nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
+. while \\n[#ARG_NUM]<\\n[#NUM_ARGS] \{\
+. ie \\n[#ARG_NUM]=\\n[#NUM_ARGS] \{\
+. as $TOC_SSH_ITEM \\$[\\n+[#ARG_NUM]]\\|
+. \}
+. el \{\
+.\" Note that in the .as lines, below, \ at the end has a literal
+.\" space after it.
+. ie \\n[#NUMBER_SSH] \{\
+. ie \\n[#ARG_NUM]=0 \{\
+. as $TOC_SSH_ITEM \\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]\ \"
+. nr #SSH_NUM \\n-[#SSH_NUM]
+. \}
+. el \{\
+. as $TOC_SSH_ITEM \\$[\\n+[#ARG_NUM]]\ \"
+. \}
+. \}
+. el \{\
+. as $TOC_SSH_ITEM \\$[\\n+[#ARG_NUM]]\ \"
+. \}
+. \}
+.\}
+.\" Note the use of \!, which transparently embeds the macros used
+.\" in the TOC_ENTRIES diversion. The elements they control must be
+.\" processed literally when the diversion is output.
+. ev TOC_EV
+. da TOC_ENTRIES
+. if \\n[#PRINT_STYLE]=1 \{\
+\!. fam \\*[$TYPEWRITER_FAM]
+\!. ft R
+\!. ps \\*[$TYPEWRITER_PS]
+. \}
+. if \\n[#PRINT_STYLE]=2 \{\
+\!. FAMILY \\*[$TOC_SSH_FAM]
+\!. FT \\*[$TOC_SSH_FT]
+\!. PT_SIZE \\n[#TOC_PS]u\\*[$TOC_SSH_SIZE_CHANGE]
+. \}
+\!. TRAP OFF
+\!. PAD_MARKER ^
+. ie \\n[#PRINT_STYLE]=1 \{\
+\!. PAD "\\h'\w'\0\0.'u*3u'\\*[$TOC_SSH_ITEM]\\*[$TOC_PN_TYPEWRITE]"
+. \}
+. el \{\
+\!. PAD "\\h'\\n[#TOC_SSH_INDENT]u'\\*[$TOC_SSH_ITEM]\\*[$TOC_PN]"
+. \}
+\!. PAD_MARKER #
+\!. EOL
+\!. ST 100 L
+\!. ST 101 R
+. if \\n[#PRINT_STYLE]=2 \{\
+\!. FAMILY \\*[$TOC_PN_FAM]
+\!. FT \\*[$TOC_PN_FT]
+\!. PT_SIZE \\n[#TOC_PS]u\\*[$TOC_PN_SIZE_CHANGE]
+. \}
+\!. TAB 100
+\!. PRINT \\*[LEADER]
+\!. TN
+\!. TRAP
+\!. PRINT \\n[#TOC_ENTRY_PN]
+\!. TQ
+. di
+. ev
+.\" End collection of head for TOC
+.\" Process subsubhead
+. nr #ARG_NUM 0 1
+. if r#QUOTE \{ .rr #QUOTE \}
+. if r#Q_AT_TOP \{ .rr #Q_AT_TOP \}
+. ev SUBSUBHEAD
+. ll \\n[#L_LENGTH]u
+. ta \\n(.lu
+. if \\n[#COLUMNS] \{\
+. ll \\n[#COL_L_LENGTH]u
+. ta \\n(.lu
+. \}
+. CHECK_INDENT
+. if \\n[#PRINT_STYLE]=1 \{\
+. TYPEWRITER
+. vs \\n[#DOC_LEAD]u
+. QUAD \\*[$SSH_QUAD]
+. \}
+. if \\n[#PRINT_STYLE]=2 \{\
+. FAMILY \\*[$SSH_FAM]
+. FT \\*[$SSH_FT]
+. PT_SIZE \\n[#DOC_PT_SIZE]u\\*[$SSH_SIZE_CHANGE]
+. LS \\n[#DOC_LEAD]u
+. QUAD \\*[$SSH_QUAD]
+. \}
+. if \\n[#PRINT_STYLE]=1 \{ .nr #SSH_LEAD_ADJUST \\n[#LEAD]/5 \}
+. if \\n[#PRINT_STYLE]=2 \{ .nr #SSH_LEAD_ADJUST \\n[#LEAD]/8 \}
+. ie \\n[#START] \{ .RLD 1v \}
+. el \{\
+. if \\n[#PRINT_STYLE]=1 \{\
+. if !\\n[#LINEBREAK] \{ .ALD \\n[#DOC_LEAD]u \}
+. \}
+. if \\n[#PRINT_STYLE]=2 \{\
+. ie \\n[#PP_SPACE]=1 \{\
+. ie !\\n[#LINEBREAK] \{ .ALD \\n[#DOC_LEAD]u \}
+. el \{ .RLD \\n[#DOC_LEAD]u \}
+. \}
+. el \{\
+. if !\\n[#LINEBREAK] \{ .ALD \\n[#DOC_LEAD]u \}
+. \}
+. \}
+. \}
+.\" Print subsubhead
+. if \\n[#PRINT_STYLE]=1 \{\
+. while \\n[#ARG_NUM]<\\n[#NUM_ARGS] \{\
+. ie \\n[#NUMBER_SSH] \{\
+. ie \\n[#ARG_NUM]=0 \{\
+. ie \\n[#PREFIX_CH_NUM]=1 \{\
+. ds $CH_NUM \\n[#CH_NUM].
+. \}
+. el \{\
+. rm $CH_NUM
+. \}
+. ie \\n[#NUMBER_HEAD] \{\
+. br
+. PRINT
"\v'-\\n[#SSH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]"
+. br
+. \}
+. el \{\
+. br
+. PRINT
"\v'-\\n[#SSH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]"
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]"
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]"
+. br
+. \}
+.\}
+. \}
+. if \\n[#PRINT_STYLE]=1 \{\
+. if \\n[#SINGLE_SPACE] \{ .ALD \\n[#DOC_LEAD]u \}
+. \}
+. if \\n[#PRINT_STYLE]=2 \{\
+. if \\n[#SSH_COLOR]=1 \{ .COLOR \\*[$SSH_COLOR] \}
+. ie \\n[#PP_SPACE]=0 \{\
+. while \\n[#ARG_NUM]<\\n[#NUM_ARGS] \{\
+. ie \\n[#NUMBER_SH] \{\
+. ie \\n[#ARG_NUM]=0 \{\
+. ie \\n[#PREFIX_CH_NUM]=1 \{\
+. ds $CH_NUM \\n[#CH_NUM].
+. \}
+. el \{\
+. rm $CH_NUM
+. \}
+. ie \\n[#NUMBER_HEAD] \{\
+. br
+. PRINT
"\v'-\\n[#SSH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. el \{\
+. br
+. PRINT
"\v'-\\n[#SSH_BASELINE_ADJ]u'\\*[$CH_NUM]\\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_BASELINE_ADJ]u'\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+.\}
+. \}
+. el \{\
+. ALD \\n[#DOC_LEAD]u
+. if \\n[#HEAD]=1 \{ .RLD \\n[#DOC_LEAD]u \}
+. if \\n[#END_QUOTE] \{ .RLD \\n[#DOC_LEAD]u \}
+. if \\n[#EPIGRAPH] \{ .RLD \\n[#DOC_LEAD]u \}
+. while \\n[#ARG_NUM]<\\n[#NUM_ARGS] \{\
+. ie \\n[#NUMBER_SH] \{\
+. ie \\n[#ARG_NUM]=0 \{\
+. ie \\n[#PREFIX_CH_NUM]=1 \{\
+. ds $CH_NUM \\n[#CH_NUM].
+. \}
+. el \{\
+. rm $CH_NUM
+. \}
+. ie \\n[#NUMBER_HEAD] \{\
+. br
+. PRINT
"\v'-\\n[#SSH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n+[#SSH_NUM]\0\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. el \{\
+. br
+. PRINT
"\v'-\\n[#SSH_LEAD_ADJUST]u'\\*[$CH_NUM]\\n+[#SSH_NUM].\0\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+. \}
+. el \{\
+. br
+. PRINT "\v'-\\n[#SSH_LEAD_ADJUST]u'\\$[\\n+[#ARG_NUM]]
+. br
+. \}
+.\}
+. ALD \\n[#DOC_LEAD]u
+. \}
+. \}
+. REMOVE_INDENT
+. ev
+. if \\n[#NUMBER_SH] \{ .RESET_PARAHEAD_NUMBER \}
+. if r#START \{ .rr #START \}
+. if r#EPIGRAPH \{ .rr #EPIGRAPH \}
+. if r#Q_FITS \{ .rr #Q_FITS \}
+. if r#END_QUOTE \{ .rr #END_QUOTE \}
+. if r#LINEBREAK \{ .rr #LINEBREAK \}
+. rm $TOC_SSH_ITEM
+. nr #PP 0
+. nr #HEAD 2
+.END
+\#
\# ---Paragraph heads---
\#
\# PARAHEAD INDENT
@@ -10898,6 +11252,7 @@
\#
.MAC PARAHEAD END
. if \\n[#UNDERLINE_ON]=1 .UNDERLINE OFF
+. if \\n[#LINENUMBERS] .nm
.\" Collect parahead for TOC.
. nr #TOC_ENTRY_PN \\n%+\\n[#PAGE_NUM_ADJ]
. ie \\n[#NUMBER_PH] \{\
@@ -10922,7 +11277,7 @@
\!. TRAP OFF
\!. PAD_MARKER ^
. ie \\n[#PRINT_STYLE]=1 \{\
-\!. PAD "\\h'6m'\\*[$TOC_PH_ITEM]\\*[$TOC_PN_TYPEWRITE]"
+\!. PAD "\\h'\w'\0\0.'u*4u'\\*[$TOC_PH_ITEM]\\*[$TOC_PN_TYPEWRITE]"
. \}
. el \{\
\!. PAD "\\h'\\n[#TOC_PH_INDENT]u'\\*[$TOC_PH_ITEM]\\*[$TOC_PN]"
@@ -10950,20 +11305,17 @@
. nr #SLANT_WAS_ON 1
\E*[SLANTX]
. \}
+. vpt 0
+. sp -1v
. ie \\n[#PP]=1 \{\
. if \\n[#INDENT_FIRST_PARAS] \{\
-. vpt 0
-. if \\n[#PRINT_STYLE]=1 \{ .sp -1v \}
. ti \\n[#PH_INDENT]u
-. vpt
. \}
. \}
. el \{\
-. vpt 0
-. if \\n[#PRINT_STYLE]=1 \{ .sp -1v \}
. ti \\n[#PH_INDENT]u
-. vpt
. \}
+. vpt
. ie \\n[#PREFIX_CH_NUM]=1 \{\
. ds $CH_NUM \\n[#CH_NUM].
. \}
@@ -10975,7 +11327,7 @@
. ie \\n[#NUMBER_PH] \{\
. if \\n[#NUMBER_HEAD] \{\
. ie \\n[#NUMBER_SH] \{\
-. UNDERSCORE "\R'#NUMBERED
1'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n+[#PH_NUM].\\ \\$1"
+. UNDERSCORE "\R'#NUMBERED
1'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n[#SSH_NUM].\\n+[#PH_NUM].\\ \\$1"
\0
. \}
. el \{\
@@ -11022,7 +11374,7 @@
. \}
. if \\n[#NUMBER_HEAD] \{\
. ie \\n[#NUMBER_SH] \{\
-. PRINT "\R'#NUMBERED
1'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n+[#PH_NUM].\0\\$1\h'\\*[$PH_SPACE]'\c"
+. PRINT "\R'#NUMBERED
1'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n[#SH_NUM].\\n[#SSH_NUM].\\n+[#PH_NUM].\0\\$1\h'\\*[$PH_SPACE]'\c"
. \}
. el \{\
. PRINT "\R'#NUMBERED
1'\\*[$CH_NUM]\\n[#HEAD_NUM].\\n+[#PH_NUM].\0\\$1\h'\\*[$PH_SPACE]'\c"
@@ -11053,6 +11405,7 @@
. \}
. rr #NUMBERED
. rm $TOC_PH_ITEM
+. if \\n[#LINENUMBERS] .nm +0
.END
\#
\#
@@ -13961,7 +14314,7 @@
\#
.MAC ENDNOTE_STRING_CAPS END
. ie '\\$1'' \{ .nr #EN_STRING_CAPS 1 \}
-. el \{ .rr #EN_STRING_CAPS \}
+. el \{ .nr #EN_STRING_CAPS 0 \}
.END
\#
\#
@@ -14659,6 +15012,12 @@
. FT \\*[$EN_STRING_FT]
. PT_SIZE \\n[#EN_PS]u\\*[$EN_STRING_SIZE_CHANGE]
. vs \\n[#EN_LEAD]u
+. if \\n[#ENDNOTE_STRING_COLOR]=1 \{\
+. TRAP OFF
+. COLOR \\*[$ENDNOTE_STRING_COLOR]
+. EOL
+. TRAP
+. \}
. \}
. if '\\*[$EN_STRING_QUAD]'L' \{ .LEFT \}
. if '\\*[$EN_STRING_QUAD]'LEFT' \{ .LEFT \}
@@ -15284,6 +15643,12 @@
. nr #TOC_SH_INDENT (\\$1)
.END
\#
+\# - for subsubhead entries
+\#
+.MAC TOC_SUBSUBHEAD_INDENT END
+. nr #TOC_SSH_INDENT (\\$1)
+.END
+\#
\# - for parahead entries
\#
.MAC TOC_PARAHEAD_INDENT END
@@ -17146,6 +17511,7 @@
.ALIAS PARAHEAD_FAMILY _FAMILY
.ALIAS QUOTE_FAMILY _FAMILY
.ALIAS SUBHEAD_FAMILY _FAMILY
+.ALIAS SUBSUBHEAD_FAMILY _FAMILY
.ALIAS SUBTITLE_FAMILY _FAMILY
.ALIAS TITLE_FAMILY _FAMILY
.ALIAS TOC_FAM _FAMILY
@@ -17155,6 +17521,7 @@
.ALIAS TOC_PARAHEAD_FAMILY _FAMILY
.ALIAS TOC_PN_FAMILY _FAMILY
.ALIAS TOC_SUBHEAD_FAMILY _FAMILY
+.ALIAS TOC_SUBSUBHEAD_FAMILY _FAMILY
.ALIAS TOC_TITLE_FAMILY _FAMILY
\#
.ALIAS AUTHOR_FONT _FONT
@@ -17193,6 +17560,7 @@
.ALIAS PARAHEAD_FONT _FONT
.ALIAS QUOTE_FONT _FONT
.ALIAS SUBHEAD_FONT _FONT
+.ALIAS SUBSUBHEAD_FONT _FONT
.ALIAS SUBTITLE_FONT _FONT
.ALIAS TITLE_FONT _FONT
.ALIAS TOC_HEADER_FONT _FONT
@@ -17200,6 +17568,7 @@
.ALIAS TOC_PARAHEAD_FONT _FONT
.ALIAS TOC_PN_FONT _FONT
.ALIAS TOC_SUBHEAD_FONT _FONT
+.ALIAS TOC_SUBSUBHEAD_FONT _FONT
.ALIAS TOC_TITLE_FONT _FONT
\#
.ALIAS AUTHOR_SIZE _SIZE
@@ -17237,6 +17606,7 @@
.ALIAS PARAHEAD_SIZE _SIZE
.ALIAS QUOTE_SIZE _SIZE
.ALIAS SUBHEAD_SIZE _SIZE
+.ALIAS SUBSUBHEAD_SIZE _SIZE
.ALIAS SUBTITLE_SIZE _SIZE
.ALIAS TITLE_SIZE _SIZE
.ALIAS TOC_HEADER_SIZE _SIZE
@@ -17244,6 +17614,7 @@
.ALIAS TOC_PARAHEAD_SIZE _SIZE
.ALIAS TOC_PN_SIZE _SIZE
.ALIAS TOC_SUBHEAD_SIZE _SIZE
+.ALIAS TOC_SUBSUBHEAD_SIZE _SIZE
.ALIAS TOC_TITLE_SIZE _SIZE
\#
.ALIAS ATTRIBUTE_COLOR _COLOR
@@ -17271,6 +17642,7 @@
.ALIAS DOC_COVER_TITLE_COLOR _COLOR
.ALIAS DOCHEADER_COLOR _COLOR
.ALIAS DOCTYPE_COLOR _COLOR
+.ALIAS ENDNOTE_STRING_COLOR _COLOR
.ALIAS EPIGRAPH_COLOR _COLOR
.ALIAS FINIS_COLOR _COLOR
.ALIAS FOOTNOTE_COLOR _COLOR
@@ -17287,6 +17659,7 @@
.ALIAS QUOTE_COLOR _COLOR
.ALIAS SECTION_COLOR _COLOR
.ALIAS SUBHEAD_COLOR _COLOR
+.ALIAS SUBSUBHEAD_COLOR _COLOR
.ALIAS SUBTITLE_COLOR _COLOR
.ALIAS TITLE_COLOR _COLOR
\#
@@ -17308,6 +17681,7 @@
.ALIAS FOOTNOTE_QUAD _QUAD
.ALIAS HEAD_QUAD _QUAD
.ALIAS SUBHEAD_QUAD _QUAD
+.ALIAS SUBSUBHEAD_QUAD _QUAD
.ALIAS TOC_HEADER_QUAD _QUAD
\#
\# Support aliases
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Groff-commit] groff/contrib/mom om.tmac,
Peter Schaffter <=