From 50c38bb77d782c594c15c3590b4365a8e651fb68 Mon Sep 17 00:00:00 2001
From: p <grr@lo2.org>
Date: Mon, 4 Nov 2024 23:00:29 -0500
Subject: redo lol

---
 sal.otx | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 sal.otx

(limited to 'sal.otx')

diff --git a/sal.otx b/sal.otx
new file mode 100644
index 0000000..40e0806
--- /dev/null
+++ b/sal.otx
@@ -0,0 +1,55 @@
+\sdef{_pgs:fold}{(5.5,8.5)in}
+
+% --- little idiosyncrasies
+\def\dq#1{“#1”}
+\def\sq#1{‘#1’}
+\def\booktitle#1{\ul{#1}}
+\def\essaytitle#1{\e{\dq{#1}}}
+\def\journaltitle#1{\e{#1}}
+\def\movietitle#1{\e{#1}}
+\def\songtitle#1{\e{#1}}
+\def\tvtitle#1{\e{#1}}
+\def\filmtitle{\movietitle}
+\def\sectiontitle#1{{\caps #1}}
+\def\term#1{{\it\dq{#1}}}
+\def\e#1{{\it #1}\/}
+\long\def\Q#1{{\leftskip=1in\parindent=0pt #1\par}}
+\def\cbrk#1{\vskip 1em \hfil #1 \hfil\vskip 0.5em}
+\def\dinkus{\cbrk{* * *}}
+\def\textsuperscript#1{{\typosize[8/]$^{\textstyle\rm #1}$}}
+\def\term#1{\e{\dq{#1}}}
+\def\turn#1{\raise 1.5ex \rotbox{180}{#1}}
+\def\ld{…}\def\ae{æ}
+
+\def\ednote#1{\fnote{\fontfam[DejaVu]#1}}
+
+% --- nested list numbering with \keepstyle
+\def\iprefix#1{}
+\addto\_setlistskip{\ifnum\ilevel>1 \edef\iprefix{\iprefix.\the\itemnum}\fi}
+\sdef{_item:m}{\iprefix.\the\itemnum. }
+\def\keepstyle{\_defaultitem=\_printitem}
+\def\minititle#1{\centerline{#1}}
+\def\sideblock#1{{\typoscale[800/]\leftskip=0.5in\it#1\par}}
+
+% --- underline with \ul
+\def\ul#1{{\ulRedefine\leavevmode\wordscanA #1 {} }} 
+\def\wordscanA#1 {\ifx^#1^\unskip\else \wordscanB#1\-\end \expandafter\wordscanA\fi} 
+\def\wordscanB#1\-#2\end{\ifx^#2^\wordprintA{#1}\else 
+   \wordprintB{#1}\def\next{\wordscanB#2\end}\expandafter\next\fi} 
+\def\wordprintA#1{\setbox0=\hbox{#1}\hbox{\rlap{\copy0}\uline\wd0}\uline\uspace\relax} 
+\def\wordprintB#1{\setbox0=\hbox{#1}\hbox{\rlap{\copy0}\uline\wd0}\-} 
+\def\uline{\leaders \vrule height-1.9pt depth2.3pt\hskip} 
+\def\uspace{\fontdimen2\font plus\fontdimen3\font minus\fontdimen4\font} 
+\def\ulRedefine{\def~{\egroup\hbox{\rlap{\copy0}\uline\wd0}\nobreak\uline\uspace\relax 
+         \setbox0=\hbox\bgroup}} 
+
+% ============ sal style
+\load[mte]
+\load[f_pp_writer]
+
+% --- my standard style
+\nonfrenchspacing\raggedbottom
+\baselineskip=15pt
+\fontfam[PPWriter]
+\enablemte
+\typosize[11/13]
\ No newline at end of file
-- 
cgit v1.2.3