From 9bdfeb8a204fbbce701fd75a19fc94b19ae06adb Mon Sep 17 00:00:00 2001 From: p Date: Fri, 29 Nov 2024 15:22:50 -0500 Subject: post-formalism memories almost first pass --- aux.otx | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'aux.otx') diff --git a/aux.otx b/aux.otx index e93e1f5..a3cdf5f 100644 --- a/aux.otx +++ b/aux.otx @@ -107,6 +107,32 @@ \def\hi{\hangindent=1em} % --- +% --- seccc + +\newcount \_secccnum +\def \_thesecccnum {\_the\_secccnum} + +\_optdef\_seccc[]{\_trylabel \_scantoeol\_inseccc} + +\_def\_inseccc #1{\_par \_sectionlevel=4 + \_def \_savedtitle {#1}% saved to .ref file + \_ifnonum \_else {\_globaldefs=1 \_incr\_secccnum \_secccx}\_fi + \_edef \_therefnum {\_ifnonum \_space \_else \_thesecccnum \_fi}% + \_printseccc{\_scantextokens{#1}}% + \_resetnonumnotoc +} +\_def \_seccx {\_secccx \_secccnum=0 } +\_def \_secccx {} +\public \seccc ; + +\_def\_printseccc#1{\_par + \_abovetitle{\_penalty-100}{\_medskip} + {\_bf \_noindent \_raggedright \_printrefnum[@\_quad]#1\_nbpar}% + \_nobreak \_belowtitle{\_smallskip}% + \_firstnoindent +} +% --- + \fontfam[Pagella] \typosize[10/13] \def\headtitle{Blueprint for a Higher Civilization} \ No newline at end of file -- cgit v1.2.3