redo lol

2 files changed, 84 insertions, 0 deletions

diff --git a/f_pp_writer.opm b/f_pp_writer.opm
new file mode 100644
index 0000000..823ad68
--- /dev/null
+++ b/f_pp_writer.opm
@@ -0,0 +1,29 @@
+\_famdecl [PP Writer] \PPWriter {PangramPangram Writer Font Family}
+  {} {\rm \bf \it \bi} {Garamond-Math}%
+%{} {\rm \bf \it \bi \tx \bt} {Garamond-Math}
+  {[PPWriter-Regular]}
+  {\_def\_fontnamegen {[PPWriter-\_currV]:\_fontfeatures}}
+
+\_moddef\resetmod{\_fvars Regular Bold Italic BoldItalic }
+
+%\_wlog{\_detokenize{%
+%Modifiers:^^J
+% \lighter ... All \rm \mf \bf \it \mi \bi are lighter by 1/4 of weight step^^J
+% \bolder .... All \rm \mf \bf \it \mi \bi are bolder by 1/4 of weight step^^J
+%}}
+%\_sdef{fv:PPWriter:rm}{\_fsetV wght={\__vf_wght} }
+%\_sdef{fv:PPWriter:bf}{\_fsetV wght={\__vf_wght+400} }
+%\_sdef{fv:PPWriter:it}{\_fsetV wght={\__vf_wght} }
+%\_addto\_fmodrm {\_cs{fv:\_currfamily:rm}}
+%\_addto\_fmodbf {\_cs{fv:\_currfamily:bf}}
+%\_addto\_fmodit {\_cs{fv:\_currfamily:it}}
+%\_addto\_fmodbi {\_cs{fv:\_currfamily:bi}}
+%\_newcount\__vf_wght \__vf_wght=400   % default weight for \rm
+%\_newpublic \_let \wght=\__vf_wght    % user can write: \wght=500 \rm ...
+%\_moddef \resetmod {\_fsetV caps={},cond={} \_fvars Regular Bold Italic BoldItalic Text BoldText}
+%\_moddef \caps {\_fsetV caps=+smcp;\_ffonum; }
+%\_moddef \nocaps {\_fsetV caps={} }
+%\_moddef \cond {\_fsetV cond=cn }
+%\_moddef \nocond {\_fsetV cond={} }
+
+\_initfontfamily % new font family must be initialized
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