diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/bidi/bidipoem.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/bidi/bidipoem.sty | 221 |
1 files changed, 221 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/bidi/bidipoem.sty b/Master/texmf-dist/tex/latex/bidi/bidipoem.sty new file mode 100644 index 00000000000..a5aad6e1206 --- /dev/null +++ b/Master/texmf-dist/tex/latex/bidi/bidipoem.sty @@ -0,0 +1,221 @@ +%% +%% This is file `bidipoem.sty', + +%% +%% __________________________________ +%% Copyright © 2009-2010 Vafa Khalighi +%% +%% License information appended. +%% +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{bidipoem}% +[2010/07/25 Environments for typesetting Persian traditional and modern poems] +\def\poemcolsepskip{.1\versewidth plus .1\versewidth minus .05\versewidth} +\def\poemmarginskip{1em plus 1fil minus 1em} +\def\poemextrabaselineskip{0\baselineskip} +\def\poemskip{\medskip} +\def\poemblocksep{\quad$\Box$} +\newdimen\versewidth +\newtoks\bidipoem@p@ftn +\def\poem@verse#1{% +\ifdim\wd#1>\new@poem@width +\xdef\new@poem@width{\the\wd#1}% +\ifdim\new@poem@width>\poem@width +\xdef\poem@width{\new@poem@width}% +\global\let\poem@needrun\relax +\fi +\fi +\hbox to\poem@width{\unhbox#1}% +} +\def\poem@linebegin{\vadjust{}\hskip\@flushglue\hskip\poemmarginskip\relax} +\def\poem@lineend{\nobreak\hskip\poemmarginskip\hskip\@flushglue\vadjust{}} +\def\poem@lineversesep{% +\nobreak +\hskip\z@ plus 1filll% +\penalty600% +\hskip\poemcolsepskip +\hskip\z@ plus -2filll% +\vadjust{}% +\nobreak +\hskip\z@ plus 1filll% +} +\def\poem@lineparsebegin{% +\halign\bgroup +\global\setbox\verse@i=\hbox{\ignorespaces##\unskip}&& +\global\setbox\verse@ii=\hbox{\ignorespaces##\unskip} +\cr +} +\def\poem@lineparseend{% +\crcr\egroup +\vskip-\baselineskip +} +\def\oldpoem@cr{% + \cr\poem@line +} +\newbox\verse@i +\newbox\verse@ii +\newif\ifpoem@started + +\def\poem@line{% +\poem@lineparseend +\ifdim\wd\verse@i>\z@\global\poem@startedtrue\fi +\ifdim\wd\verse@ii>\z@\global\poem@startedtrue\fi +\ifpoem@started + \ifdim\wd\verse@ii>\z@\else + \nopagebreak[3] + \fi + \leavevmode + \poem@linebegin + \poem@verse\verse@i + \ifdim\wd\verse@ii>\z@ + \poem@lineversesep + \poem@verse\verse@ii + \fi + \poem@lineend + \nopagebreak + \endgraf + \vskip\poemextrabaselineskip +\fi +\poem@lineparsebegin +} +\def\@traditionalpoem{% +\stepcounter{poem@no} + \ifnum\max@poem@no<\number\c@poem@no% +\xdef\poem@width{\z@}% + \else +\xdef\poem@width{\poem@prop{poem@width}}% +\fi +\xdef\new@poem@width{\z@}% +\global\versewidth=\poem@width +\poemskip\leavevmode\par +\begingroup + \let\@footnotetext\bidipoem@p@ftntext + \let\@LTRfootnotetext\bidipoem@p@LTRftntext + \let\@RTLfootnotetext\bidipoem@p@RTLftntext +\tabskip=\z@ +\parskip=\z@ +\parindent=\z@ +\parfillskip=\z@ +\rightskip=\z@ +\leftskip=\z@ +\widowpenalty=10000% No break between verses of the same line. +\clubpenalty=10000% Same as above. Not really needed. +\def\newblock{\hfil\poemblocksep\hfil\null}% +\def\par{\oldpoem@cr}% Redefine \par for possible \obeylines +\def\\{\global\poem@startedtrue\oldpoem@cr}% +\global\poem@startedfalse +\csname poem@obeylines\endcsname +\let\poem@obeylines\relax +\poem@lineparsebegin +} +\def\@endtraditionalpoem{% +\cr +\ifdim\wd\verse@i>\z@\poem@line\else\ifdim\wd\verse@ii>\z@\poem@line\else +\noalign{% +\skip0=\poemextrabaselineskip +\vskip-\skip0 +\vskip-\baselineskip +}% +\fi\fi +\poem@lineparseend +\endgroup + \the\bidipoem@p@ftn + \global\bidipoem@p@ftn{}% +\par +\vskip\baselineskip +\poemskip +\ifdim\new@poem@width<\poem@width +\global\let\poem@needrun\relax +\fi + \poem@write@aux{poem@width@\romannumeral\c@poem@no}{\new@poem@width}% +\ifx\AtEndDocument\undefined\poem@finish\fi +} +\long\def\bidipoem@p@ftntext#1{% + \edef\@tempx{\the\bidipoem@p@ftn\noexpand\footnotetext[\the\c@footnote]}% + \global\bidipoem@p@ftn\expandafter{\@tempx{#1}}}% +\long\def\bidipoem@p@LTRftntext#1{% + \edef\@tempxi{\the\bidipoem@p@ftn\noexpand\LTRfootnotetext[\the\c@footnote]}% + \global\bidipoem@p@ftn\expandafter{\@tempxi{#1}}}% +\long\def\bidipoem@p@RTLftntext#1{% + \edef\@tempxii{\the\bidipoem@p@ftn\noexpand\RTLfootnotetext[\the\c@footnote]}% + \global\bidipoem@p@ftn\expandafter{\@tempxii{#1}}}% +\newenvironment{traditionalpoem}{\@traditionalpoem}{\@endtraditionalpoem} +\expandafter\def\csname traditionalpoem*\endcsname{\let\poem@obeylines=\obeylines\traditionalpoem} +\expandafter\def\csname endtraditionalpoem*\endcsname{\endtraditionalpoem} +\def\poem@finish{% +\poem@write@aux{max@poem@no}{\number\c@poem@no}% +\ifx\poem@needrun\relax +\PackageWarning{bidipoem}{Unjustified poem. Rerun XeLaTeX to get poem right}% +\global\let\poem@needrun\undefined +\fi +} +\ifx\AtEndDocument\undefined\else\AtEndDocument\poem@finish\fi +\newcounter{poem@no}\setcounter{poem@no}{\z@} +\ifx\max@poem@no\undefined + \def\max@poem@no{0}% +\fi +\newcommand{\poem@prop}[1]{\@nameuse{#1@\romannumeral\c@poem@no}} +\newcommand{\poem@write@aux}[2]{% + \def\@x{\immediate\write\@auxout{\global\noexpand\@namedef{#1}{#2}}}% + \@x +} +\def\@modernpoem{% +\par +\begingroup + \let\@footnotetext\bidipoem@p@ftntext + \let\@LTRfootnotetext\bidipoem@p@LTRftntext + \let\@RTLfootnotetext\bidipoem@p@RTLftntext +\parskip=\z@ +\parindent=\z@ +\def\[{\@settab\@tabplus\ignorespaces}% +\def\]{\@tabminus\ignorespaces}% +\def\newblock{\poemblocksep}% +\let\newpoem@tabcr\@tabcr +\def\par{% Redefine \par for possible \obeylines + \ifpoem@started\else + \ifdim\wd\@curline>\z@\global\poem@startedtrue\else + \@stopfield + \ifdim\wd\@curfield>\z@\global\poem@startedtrue\fi + \@contfield + \fi + \fi + \ifpoem@started\newpoem@tabcr\fi}% +\def\@tabcr{\global\poem@startedtrue\newpoem@tabcr}% +\global\poem@startedfalse +\csname poem@obeylines\endcsname +\let\poem@obeylines\relax +\begin{tabbing}% +} +\def\@endmodernpoem{% +\global\poem@startedfalse +\ifdim\wd\@curline>\z@\global\poem@startedtrue\else + \@stopfield + \ifdim\wd\@curfield>\z@\global\poem@startedtrue\fi + \@contfield +\fi +\ifpoem@started\else\let\@stopline\@stopfield\fi +\end{tabbing}% +\endgroup + \the\bidipoem@p@ftn + \global\bidipoem@p@ftn{}% +\par +} +\newenvironment{modernpoem}{\@modernpoem}{\@endmodernpoem} +\expandafter\def\csname modernpoem*\endcsname{\let\poem@obeylines=\obeylines\modernpoem} +\expandafter\def\csname endmodernpoem*\endcsname{\endmodernpoem} +%% +%% Copyright © 2009-2010 by Vafa Khalighi <vafakh84@gmail.com> +%% +%% Distributable under the LaTeX Project Public License, +%% version 1.3c or higher (your choice). The latest version of +%% this license is at: http://www.latex-project.org/lppl.txt +%% +%% This work is "maintained" (as per LPPL maintenance status) +%% by Vafa Khalighi. +%% +%% +%% +%% +%% +%% End of file `bidipoem.sty'. |