% This TeX code provides a way to have marginal verses
% Caution, it is still under heavy development

\catcode`\@=11
\input marginnotes.tex
%+cmargin_verse
\newdimen\VerseBoxWidth \VerseBoxWidth=0pt
\def\getverseboxwidth{\setbox2=\hbox{\cstyle{v}{\endash 000}}\global\VerseBoxWidth=\wd2}
\newif\ifrsh@ft % Does AfterVerseSpaceFactor go right or left of the verse number -- too much happening after setting to use ift@mp
\def\getnum#1#2{\setbox0=\hbox{\global #1=0#2}}
\def\mymarginpverse{%
  \ifdim\VerseBoxWidth=0pt \getverseboxwidth\fi
  \trace{v}{position is \colshiftmode, VerseBoxWidth=\the\VerseBoxWidth}%
  \ifnum\c@rrentcols=1 \edef\t@mpa{page}\else\edef\t@mpa{col}\fi
  \ifx\v@rsefrom\v@rseto\edef\mt@mp{\id@@@\ch@pter.\v@rsefrom}\else\edef\mt@mp{\id@@@\ch@pter.\v@rsefrom-\v@rseto}\fi
  \ifcsname marginnote-\mt@mp @v:\t@mpa no\endcsname \count10=\csname marginnote-\mt@mp @v:\t@mpa no\endcsname
    \trace{v}{from marginnote-\mt@mp @v:\t@mpa no, count=\the\count10}\ifodd\count10\relax\t@mptrue\else\t@mpfalse\fi
  \else\trace{v}{no marginnote-\mt@mp @v:\t@mpa no, pageno=\the\pageno}\ifodd\pageno\relax\t@mptrue\else\t@mpfalse\fi\fi%
  \trace{v}{pagenumber is \ift@mp odd\else even\fi, and side is \colshiftmode, value=\the\count10, mcstack=\mcstack}%
  \ifnum \ifx\colshiftmode\@nner\ift@mp 0\else 1\fi\else\ifx\colshiftmode\@uter\ift@mp 1\else 0\fi\else\ifx\colshiftmode\r@ght 1\else 0\fi\fi\fi =0
    \rsh@fttrue\else\rsh@ftfalse
  \fi
  \ifx\v@rsefrom\v@rseto \setbox2=\vtop{\everypar={}\hbox to \VerseBoxWidth{%
        \ifrsh@ft\hfil\else\kern\AfterVerseSpaceFactor\FontSizeUnit\fi\mysimpleprintv@rse
        \ifrsh@ft\kern\AfterVerseSpaceFactor\FontSizeUnit\else\hfil\fi}}%
    \trace{v}{in mymarginpv@rse \v@rseto - \v@rsefrom, side is \ifrsh@ft left\else right\fi, pad to \the\VerseBoxWidth}%
    \def\t@@mp{bottom}%
  \else
    \s@tsideskips{v}{-1pt}%
    \ifrsh@ft \dimen9=\leftskip\leftskip=\rightskip\rightskip=\dimen9\fi
    \trace{v}{leftskip=\the\leftskip, rightskip=\the\rightskip}%
    \myh@ngprintv@rse{2}%
    \setbox2=\vtop{\everypar={}\hbox to \VerseBoxWidth{%
        \ifrsh@ft\hfil\else\kern\AfterVerseSpaceFactor\FontSizeUnit\fi\box2
        \ifrsh@ft\kern\AfterVerseSpaceFactor\FontSizeUnit\else\hfil\fi}}%
    \def\t@@mp{top}%
  \fi
  \trace{v}{verse \mt@mp \space width=\the\wd2, height=\the\ht2, depth=\the\dp2, newwidth=\the\VerseBoxWidth, \ifrsh@ft left\else right\fi}%
  \getp@ram{spacebeside}{v}{v+\styst@k}%
  \ifx\p@ram\relax \getp@ram{spacebefore}{v}{v+\styst@k}%
    \ifx\p@ram\relax \dimen0=1pt\else\dimen0=\p@ram\IndentUnit \divide\dimen0 by 12\fi
  \else \dimen0=\p@ram\fi
  \ifversion{5}{\d@marginnote{2}{\mt@mp}{v}{\colshiftmode}{\t@@mp}{\the\dimen0}{-\dp\pstr@t}}{\d@marginnote{2}{\mt@mp}{v}{\colshiftmode}{center}{\the\dimen0}{0pt}}%
  \outputmvmkr
}

\def\mysimpleprintv@rse{\cstyle{v}{\plainv@rse}}
\let\defaultprintverse=\mymarginpverse
\let\printverse\defaultprintverse
\MarginalVersestrue
\def\myh@ngprintv@rse#1{%
    \p@sheof
    \setbox1=\hbox{\p@sheof\m@kedigitsother \edef\tmp{\x@\scantokens\x@{\v@rsefrom\noexpand}}%
        \global\c@untA=0\tmp \xdef\tmp{\x@\scantokens\x@{\v@rseto\noexpand}} \global\c@untB=0\tmp \p@peof}%\advance\c@untA by 1
    \ifversehyphenup
      \setbox1=\hbox{\cstyle{v}{\adornv{\v@rsefrom}\ifnum\c@untA=\c@untB\else\ifversehyphen\endash\fi\fi}}%
      \dimen0=\wd1
      \setbox#1=\vtop{\box1\s@tbaseline{v}{v}\hbox to \dimen0{\ifrsh@ft\hfil\fi\cstyle{v}{\adornv{\v@rseto}}\ifrsh@ft\else\hfil\fi}}%
    \else
      \setbox1=\hbox{\cstyle{v}{\ifnum\c@untA=\c@untB\else\ifversehyphen\endash\fi\fi\adornv{\v@rseto}}}%
      \setbox#1=\vtop{\s@tbaseline{v}{v}\hbox to \wd1{\ifrsh@ft\hfil\fi\cstyle{v}{\adornv{\v@rsefrom}}\ifrsh@ft\else\hfil\fi}\box1}%
    \fi
    \p@peof}

%-cmargin_verse

% Example integration code:
% Basics
%\BookOpenLefttrue
%\def\AfterVerseSpaceFactor{0}
%\expandafter\def\csname v:position\endcsname{inner}

% Limiting one verse per paragraph
%\newif\iffirstinpara \firstinparatrue
%\let\mytv=\defaultprintverse
%\def\defaultprintverse{\iffirstinpara\global\firstinparafalse\mytv\fi}
%\def\paramarker#1{\expandafter\let\csname _#1\expandafter\endcsname \csname #1\endcsname
%    \expandafter\gdef\csname #1\endcsname{\global\firstinparatrue\csname _#1\endcsname}}
%\paramarker{p}\paramarker{q1}\paramarker{li}

\endinput

