%!TEX TS-program = xetex
%!TEX encoding = UTF-8 Unicode

\output{\global\footno=0\plainoutput}
\input eplain

%++++++++++++++++++++++++++++++++++++++++++++++++
% page layout
\pdfpagewidth 129mm
\pdfpageheight 198mm

\hsize 99mm
\vsize 454pt

\hoffset -10.4mm
\voffset -9.4mm


% to adjust the space between the header and the text block
\def\makeheadline{\vbox to 0pt{\vskip-22.5pt
  \line{\vbox to8.5pt{}\the\headline}\vss}\nointerlineskip}

% to adjust the space between the footer and the text block
\def\makefootline{\baselineskip24pt\lineskiplimit0pt\line{\the\footline}}
%++++++++++++++++++++++++++++++++++++++++++++++++

\tolerance 1414
\hbadness 1414
\hyphenpenalty 500
\finalhyphendemerits 7500
\emergencystretch 5pt
\hfuzz 0.3pt
\vfuzz=\hfuzz

% paragraph spacing
\parskip 0pt
\parindent 1.2em
\baselineskip 12pt
\frenchspacing

\def\nl{\hfil\break}
\def\pagebreak{\vadjust{\eject}}
\def\newpage{\vfill\eject}

\font\rm="EB Garamond 12 Regular:-clig,-calt,mapping=tex-text" at 10pt
\font\it="EB Garamond 12 Regular/I:-clig,-calt,mapping=tex-text" at 10pt
\font\Rm="EB Garamond 12 Regular:-clig,-calt,mapping=tex-text" at 12pt


\headline={\hfil}% no header on the first page of the chapter

\footline={\hss\rm\folio\hss}



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% general footnote stuff
\skip\footins=\bigskipamount % space added when footnote is present
\count\footins=1000 % footnote magnification factor (1 to 1)
\dimen\footins=.8\vsize % maximum footnotes per page

\newcount\footno
\footno=0

% sets EB Garamond as the font TeX uses to make
% the superscript footnote references in the text block
\font\1="EB Garamond 12 Regular:+lnum" at 7pt
\scriptfont0=\1

%\font\footnotesize="EB Garamond 12 Regular:-clig,-calt,mapping=tex-text" at 8pt

% extended definition of \footnotesize
\font\rmfoot="EB Garamond 12 Regular:-clig,-calt,mapping=tex-text" at 8pt
\font\itfoot="EB Garamond 12 Regular/I:-clig,-calt,mapping=tex-text" at 8pt
\font\scfoot="EB Garamond 12 Regular:+smcp,-clig,-calt,mapping=tex-text" at 8pt
\font\ttfoot=cmtt8

\def\footnotesize{\def\rm{\rmfoot}\def\it{\itfoot}\def\sc{\scfoot}\def\tt{\ttfoot}%
\rm}

\font\footnumberfont="EB Garamond 12 Regular:-clig,-calt,mapping=tex-text" at 8pt


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% fnote macro
\catcode`\@=11

\def\footnote{\global\advance\footno by 1
   \let\@sf=\empty%
   \ifhmode\edef\@sf{\spacefactor=\the\spacefactor}\/\fi%
$\kern.05em^{\the\footno}$\@sf\vfootnote}
\def\vfootnote#1{\insert\footins\bgroup\footnotesize\noindent
  \interlinepenalty\interfootnotelinepenalty\baselineskip10pt
  \setbox\strutbox=\hbox{\vrule height7pt depth3pt width\z@}%
  \splittopskip\ht\strutbox % top baseline for broken footnotes
  \splitmaxdepth\dp\strutbox\floatingpenalty\@MM
  \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip
  {\footnumberfont\the\footno.\penalty10000\hskip.33em}\strut#1\futurelet\next\fo@t}
\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
  \else\let\next\f@t\fi \next}
\def\f@@t{\bgroup\aftergroup\@foot\let\next}
\def\f@t{\@foot}
\def\@foot{\strut\egroup}
\def\footstrut{\vbox to\splittopskip{}}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% cfootnote, for a single centered footnote

\def\cfootnote{\global\advance\footno by 1
   \let\@sf=\empty%
   \ifhmode\edef\@sf{\spacefactor=\the\spacefactor}\/\fi%
$\kern0.05em^{\the\footno}$\@sf\cvfootnote}
\def\cvfootnote#1{\insert\footins\bgroup\footnotesize\noindent
  \interlinepenalty\interfootnotelinepenalty\baselineskip10pt
  \setbox\strutbox=\hbox{\vrule height7pt depth3pt width\z@}%
  \splittopskip\ht\strutbox % top baseline for broken footnotes
  \splitmaxdepth\dp\strutbox\floatingpenalty\@MM
  \leftskip0pt plus 1fill \rightskip0pt plus 1fill\spaceskip\z@skip \xspaceskip\z@skip
  {\footnumberfont\the\footno.\penalty10000\hskip.33em}\strut#1\futurelet\next\fo@t}
\def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t
  \else\let\next\f@t\fi \next}
\def\f@@t{\bgroup\aftergroup\@foot\let\next}
\def\f@t{\@foot}
\def\@foot{\strut\egroup}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% FNPARA.TEX  based on D. E. Knuth's "Dirty Tricks" macros from pages
% 398--400 of The TeXbook.
% Dominik Wujastyk September 15, 1988.

\newinsert\pfootins

\skip\pfootins=\bigskipamount % space added when footnote is present
\count\pfootins=1000 % footnote magnification factor (1 to 1)
\dimen\pfootins=.6\vsize % maximum footnotes per page


\def\endnotetext{$\parallel$\hskip.5em}

\let\endnotetext=\relax


{\catcode`p=12 \catcode`t=12 \gdef\\#1pt{#1}}
\let\getfactor=\\

\newskip\footglue \footglue=1em plus.3em minus.3em

\newdimen\footnotebaselineskip \footnotebaselineskip=10pt

\dimen0=\footnotebaselineskip \multiply\dimen0 by 1024
\divide \dimen0 by \hsize \multiply\dimen0 by 64
\xdef\fudgefactor{\expandafter\getfactor\the\dimen0 }

\def\pfootnote{\global\advance\footno by 1
   \let\@sf=\empty%
   \ifhmode\edef\@sf{\spacefactor=\the\spacefactor}\/\fi%
$\kern0.05em^{\the\footno}$\@sf\vpfootnote}

\def\vpfootnote#1{\insert\pfootins{\floatingpenalty=20000
   \footnotesize \setbox0=\hbox{%
     {\footnumberfont\the\footno.\penalty10000\hskip.33em}#1%
\penalty-10\hskip\footglue\endnotetext}
   \dp0=0pt \ht0=\fudgefactor\wd0 \box0}}

\def\pagecontents{\ifvoid\topins\else\unvbox\topins\fi
   \dimen@=\dp\@cclv \unvbox\@cclv % open up \box255
\ifvoid\footins\else
\vskip\skip\footins
\footnoterule
\unvbox\footins\fi
   \ifvoid\pfootins\else
     \vskip\skip\pfootins
     \footnoterule
     \global\setbox1=\vbox{\makefootnoteparagraph}\unvbox1\fi
   \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
\def\footnoterule{\kern-3\p@
   \hrule width 2truein \kern 2.6\p@} % the \hrule is .4pt high

\def\makefootnoteparagraph{\unvbox\pfootins \makehboxofhboxes
   \setbox0=\hbox{\unhbox0 \removehboxes}
   \baselineskip=\footnotebaselineskip\noindent\unhbox0\par }
\def\makehboxofhboxes{\setbox0=\hbox{}
   \loop\setbox2=\lastbox
   \ifhbox2 \setbox0=\hbox{\box2\unhbox0}\repeat}
\def\removehboxes{\setbox0=\lastbox
   \ifhbox0{\removehboxes}\unhbox0 \fi}

\catcode`\@=12
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% no rule between main text and footnote
\def\footnoterule{}



%%%%%%%%%%%%%%%%%%%%%%%
% START OF DOCUMENT
%%%%%%%%%%%%%%%%%%%%%%%

\rm

\noindent
Suppose you have a book that has mostly long footnotes, but occasionally there is a page with short footnotes. A way of dealing with this would be to use the {\tt fnote} macro on most pages, and a modified version of the  {\tt fnpara} macro on the pages with the short footnotes.\footnote{You have to give {\tt fnpara} its own footnote insert ({\tt\string\pfootins}). If both footnote macros use the same {\tt\string\footins} they conflict with each other with peculiar results. The {\tt fnote} macro uses the normal {\tt\string\footins}.} On the page with short footnotes you type \verbatim\pfootnote{this is a footnote}|endverbatim\ instead of \verbatim\footnote{this is a footnote}|endverbatim. If you use {\tt\string\pfootnote} and {\tt\string\footnote} on the same page you will end up with two footnote inserts at the bottom of the page, which looks strange.\footnote{Unless you actually want more than one {\tt\string\footins}. You could use this method of multiple {\tt\string\footins} to typeset documents that use multiple series of footnotes. This is how the EDMAC macros for critical editions work with their {\tt\string\Afootins}, {\tt\string\Bfootins}, etc series of inserts.}

\newpage\noindent
A page\pfootnote{something something} with short\pfootnote{blah} footnotes.\pfootnote{etc}

\newpage\noindent
Some style guides (e.g. Hart's Rules) specify that if there is only one single-line footnote on a page, it should be centered in the measure.\cfootnote{like this} I typeset this example by using a modified version of the {\tt fnote} macro, with {\tt\string\leftskip} and {\tt\string\rightskip} both set to {\tt 0pt plus 1fill} and the paragraph indent cancelled with {\tt\string\noindent}.



\bye