From 4d9a47fc2544602b36498608e6d3e0d6c4a89f4a Mon Sep 17 00:00:00 2001
From: p <grr@lo2.org>
Date: Wed, 20 Nov 2024 18:23:58 -0500
Subject: more shitscraping. second intro

---
 aux.otx | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

(limited to 'aux.otx')

diff --git a/aux.otx b/aux.otx
index 33cf24d..56b191d 100644
--- a/aux.otx
+++ b/aux.otx
@@ -4,8 +4,37 @@
 
 \def\frontmatterstyle{
     \headline={}
+    \footlinedist=14pt
     \footline={\_hss\rmfixed \romannumeral\_folio \_hss}}
 
+% ---------- functionality mimicking "figures" from latex
+\_refdecl{%
+  \_def\lotlist{} \_def\loflist{}^^J
+  \_def\Xtab#1#2#3{\_addto\lotlist{\lline{#1}{#2}{#3}}\_ea\_addto\_ea\lotlist\_ea{\_currpage}}^^J
+  \_def\Xfig#1#2#3{\_addto\loflist{\lline{#1}{#2}{#3}}\_ea\_addto\_ea\loflist\_ea{\_currpage}}
+}
+\def\captionT [#1]#2{\caption/t[#1]\_ewref\Xtab{{#1}{\_thetnum}{#2}}\ignorespaces}
+\def\captionF [#1]#2{\caption/f[#1]\_ewref\Xfig{{#1}{\_thefnum}{#2}}\ignorespaces}
+
+\def\lline#1#2#3#4#5{\line{\hskip2em\llap{\bf#2\enspace}#3 \_tocdotfill\ \_ilink[pg:#4]{#5}}}
+
+\def\makell#1#2{\par
+  \ifx#1\undefined \opwarning{no data for list of #2, try to run TeX again}\openref
+  \else #1\fi
+}
+
+\def\makeLOF{\makell\loflist{figures}}
+\def\makeLOT{\makell\lotlist{tables}}
+
+% ----------
+
+\def\photopage#1#2#3#4{{
+  \break\hfill\vbox{\hsize=4in
+    \picw=4in\inspic{#1}
+    \vskip 1em
+    \noindent #2 \hfill {\it (photo by #4)}\vskip 1em
+    \captionF [label]{#3} #3\par}
+  \hfill\break}}
 
 \def\essaytitle#1{\ul{#1}}
 
@@ -32,4 +61,17 @@
 \def\cancelparams{1 0 0 RG 1 J .6 w} % color RG linetype J linewidth w
 % ---------
 
+% ---- division title styles
+
+\_def \_chapfont {\_scalemain\_typoscale[1800/]\caps\rm}
+\_def\_printchap #1{{\_vfill\_supereject \_prevdepth=0pt
+  \_vglue\_medskipamount % shifted by topkip+\medskipamount
+  {\_chapfont \_noindent \_printrefnum[@]
+  \hskip 0.15in plus 0.75in\leaders\hrule\hfil\hskip0.15in plus0.75in #1\_nbpar}\_mark{}%
+  \_nobreak \_belowtitle{\_bigskip}%
+  \_firstnoindent}}
+
+% --- 
+
+\fontfam[Pagella]
 \typosize[10/13]
\ No newline at end of file
-- 
cgit v1.2.3