sal.otx


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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]