[tex-eplain] Marginal notes

[Oleg Katsitadze]

On Sat, Jun 14, 2008 at 10:11:19AM +0000, Adam Fenn wrote:
> That works except that the marginal notes now all appear in the left
> margin whereas in the original macro marginal notes on odd pages
> appeared in the right margin and vice versa for even pages.

This was because Eplain's \readauxfile read the .aux file inside a
group.  Therefore marginalia-related \def's effectively didn't get
defined.  I've changed \def to \gdef in the definition of
\marginalpage, and now it works.

> Another problem is that when the \marginalia macro appears between
> two words it inserts some unwanted space between them. I've tried
> putting % at the end of lines but the space is still there.

I've removed empty lines and added comment chars to the end of some
lines in \marginalia, and now it seems to work correctly.

Best,
Oleg


\input eplain
\enablehyperlinks%[idxexact]
\hsize = 10cm

% \marginalia macro
\def\raggedleft{\spaceskip=.3333em \xspaceskip=.5em
     \parfillskip=0pt \leftskip=0pt plus\hsize}    

\def\lmarginaliabox#1{%
    \vtop to 0pt{%
      \raggedright
      \hsize=.9in
      \parindent=0pt
      #1
      \vss
      }}

\def\rmarginaliabox#1{%
    \vtop to 0pt{%
      \raggedleft
      \hsize=.9in
      \parindent=0pt
      #1
      \vss
     }}

\newskip\inmarginspacing \inmarginspacing=1em
\def\strutdepth{\dp\strutbox}

\newcount\marginalno
\marginalno0

\def\marginalpage#1#2{%
    \expandafter\gdef\csname marginalpage#1\endcsname{#2}}

\let\protect\relax
%\newread\auxin
%\newwrite\auxout
%\openin\auxin\jobname.aux
%\ifeof\auxin
%  \let\noaux=1
%  \immediate\openout\auxout\jobname.aux
%  \immediate\closeout\auxout
%\else
%  \let\noaux=0
%  \closein\auxin
%\fi
%\input \jobname.aux
\readauxfile

\outer\def\bye{%
  \par\vfill\supereject
%  \ifx\noaux1
%    \newlinechar=`\^^J
%    \message{^^J(Run TeX a second time to resolve marginal note placing)}%
%  \fi
  \end
}

%\immediate\openout\auxout \jobname.aux
\def\protect{\noexpand\protect\noexpand}

\def\marginalia#1{%
\strut\vadjust{%
  \nobreak
  \kern-\strutdepth
  \vtop to \strutdepth{%
    \vss
  \global\advance\marginalno1
%  \edef\writeit{\write\auxout{%
  \edef\writeit{\write\auxfile{%
                    \protect\marginalpage
                   {\number\marginalno}%
                    {\noexpand\number\count0}}}%
  \writeit
  \expandafter\ifodd0\csname marginalpage\number\marginalno\endcsname
% odd page stuff here
\rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces
\lmarginaliabox{{\it #1}}}%
\else
% even page stuff here
\llap{\ignorespaces \rmarginaliabox{{\it #1}}\hskip\inmarginspacing}%
 \fi
\baselineskip=\strutdepth
\null
}}}


This is a test O\marginalia{a note in the margin}to see what happens.

\vfill\eject
\idx{Test}
\vfill\eject
\readindexfile{i}
\bye