summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-09-17 22:16:07 +0000
committerKarl Berry <karl@freefriends.org>2013-09-17 22:16:07 +0000
commit5d3eded8ad72ddcafd63144edcd885a7ba0b4b75 (patch)
treefef63988dc328afbe009cc54117d49f264351c2a /Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty
parentee2e061286e8dd9aaeec0f661c8ea41027660a89 (diff)
simurgh (17sep13)
git-svn-id: svn://tug.org/texlive/trunk@31684 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty')
-rw-r--r--Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty271
1 files changed, 271 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty b/Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty
new file mode 100644
index 00000000000..1984311e12d
--- /dev/null
+++ b/Master/texmf-dist/tex/lualatex/simurgh/simurgh-poem.sty
@@ -0,0 +1,271 @@
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{simurgh-poem}%
+[2013/12/01 v0.01a 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}
+\newcommand{\simurghpoem@openbox}{\leavevmode
+ \hbox to.77778em{%
+ \hfil\vrule
+ \vbox to.675em{\hrule width.6em\vfil\hrule}%
+ \vrule\hfil}}
+\def\poemblocksep{\quad\hbox{\simurghpoem@openbox}}
+\newdimen\versewidth
+\newtoks\simurghpoem@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}%
+\global\simurghpoem@p@ftn\expandafter{\expandafter}\the\simurghpoem@p@ftn%
+}
+\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{%
+\let\@footnotetext\simurghpoem@p@ftntext%
+\let\@LTRfootnotetext\simurghpoem@p@LTRftntext%
+\let\@RTLfootnotetext\simurghpoem@p@RTLftntext%
+\let\@xfootnotenext\simurghpoem@p@xftntext%
+\let\@xfootnote\simurghpoem@p@xfootnote%
+\let\@xLTRfootnotenext\simurghpoem@p@xLTRftntext%
+\let\@xLTRfootnote\simurghpoem@p@xLTRfootnote%
+\let\@xRTLfootnotenext\simurghpoem@p@xRTLftntext%
+\let\@xRTLfootnote\simurghpoem@p@xRTLfootnote%
+\ignorespaces##\unskip}&&
+\global\setbox\verse@ii=\hbox{%
+\let\@footnotetext\simurghpoem@p@ftntext%
+\let\@LTRfootnotetext\simurghpoem@p@LTRftntext%
+\let\@RTLfootnotetext\simurghpoem@p@RTLftntext%
+\let\@xfootnotenext\simurghpoem@p@xftntext%
+\let\@xfootnote\simurghpoem@p@xfootnote%
+\let\@xLTRfootnotenext\simurghpoem@p@xLTRftntext%
+\let\@xLTRfootnote\simurghpoem@p@xLTRfootnote%
+\let\@xRTLfootnotenext\simurghpoem@p@xRTLftntext%
+\let\@xRTLfootnote\simurghpoem@p@xRTLfootnote%
+\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
+\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
+\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\simurghpoem@p@ftntext#1{%
+ \edef\@tempx{\the\simurghpoem@p@ftn\noexpand\footnotetext[\the\csname c@\@mpfn\endcsname]}%
+ \global\simurghpoem@p@ftn\expandafter{\@tempx{#1}}}%
+\long\def\simurghpoem@p@LTRftntext#1{%
+ \edef\@tempxi{\the\simurghpoem@p@ftn\noexpand\LTRfootnotetext[\the\csname c@\@mpfn\endcsname]}%
+ \global\simurghpoem@p@ftn\expandafter{\@tempxi{#1}}}%
+\long\def\simurghpoem@p@RTLftntext#1{%
+ \edef\@tempxii{\the\simurghpoem@p@ftn\noexpand\RTLfootnotetext[\the\csname c@\@mpfn\endcsname]}%
+ \global\simurghpoem@p@ftn\expandafter{\@tempxii{#1}}}%
+
+\long\def\simurghpoem@p@xftntext[#1]#2{%
+ \global\simurghpoem@p@ftn\expandafter{\the\simurghpoem@p@ftn\footnotetext[#1]{#2}}}
+
+\long\def\simurghpoem@p@xLTRftntext[#1]#2{%
+ \global\simurghpoem@p@ftn\expandafter{\the\simurghpoem@p@ftn\LTRfootnotetext[#1]{#2}}}
+
+\long\def\simurghpoem@p@xRTLftntext[#1]#2{%
+ \global\simurghpoem@p@ftn\expandafter{\the\simurghpoem@p@ftn\RTLfootnotetext[#1]{#2}}}
+
+\def\simurghpoem@p@xfootnote[#1]{%
+ \begingroup
+ \csname c@\@mpfn\endcsname #1\relax
+ \unrestored@protected@xdef\@thefnmark{\thempfn}%
+ \endgroup
+ \@footnotemark\simurghpoem@p@xftntext[#1]}
+
+\def\simurghpoem@p@xLTRfootnote[#1]{%
+ \begingroup
+ \csname c@\@mpfn\endcsname #1\relax
+ \unrestored@protected@xdef\@thefnmark{\thempfn}%
+ \endgroup
+ \@footnotemark\simurghpoem@p@xLTRftntext[#1]}
+
+\def\simurghpoem@p@xRTLfootnote[#1]{%
+ \begingroup
+ \csname c@\@mpfn\endcsname #1\relax
+ \unrestored@protected@xdef\@thefnmark{\thempfn}%
+ \endgroup
+ \@footnotemark\simurghpoem@p@xRTLftntext[#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
+\simurgh@warning{unjustified poem. rerun lualatex 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
+\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
+\par
+}
+\newenvironment{modernpoem}{\@modernpoem}{\@endmodernpoem}
+\expandafter\def\csname modernpoem*\endcsname{\let\poem@obeylines=\obeylines\modernpoem}
+\expandafter\def\csname endmodernpoem*\endcsname{\endmodernpoem}
+\gdef\@startfield{%
+\global\setbox\@curfield\hbox\bgroup%
+\let\@footnotetext\simurghpoem@p@ftntext%
+\let\@LTRfootnotetext\simurghpoem@p@LTRftntext%
+\let\@RTLfootnotetext\simurghpoem@p@RTLftntext%
+\let\@xfootnotenext\simurghpoem@p@xftntext%
+\let\@xfootnote\simurghpoem@p@xfootnote%
+\let\@xLTRfootnotenext\simurghpoem@p@xLTRftntext%
+\let\@xLTRfootnote\simurghpoem@p@xLTRfootnote%
+\let\@xRTLfootnotenext\simurghpoem@p@xRTLftntext%
+\let\@xRTLfootnote\simurghpoem@p@xRTLfootnote%
+\color@begingroup}
+\gdef\@stopfield{%
+ \color@endgroup\egroup\global\simurghpoem@p@ftn\expandafter{\expandafter}\the\simurghpoem@p@ftn}
+\gdef\@contfield{%
+\global\setbox\@curfield\hbox\bgroup%
+\let\@footnotetext\simurghpoem@p@ftntext%
+\let\@LTRfootnotetext\simurghpoem@p@LTRftntext%
+\let\@RTLfootnotetext\simurghpoem@p@RTLftntext%
+\let\@xfootnotenext\simurghpoem@p@xftntext%
+\let\@xfootnote\simurghpoem@p@xfootnote%
+\let\@xLTRfootnotenext\simurghpoem@p@xLTRftntext%
+\let\@xLTRfootnote\simurghpoem@p@xLTRfootnote%
+\let\@xRTLfootnotenext\simurghpoem@p@xRTLftntext%
+\let\@xRTLfootnote\simurghpoem@p@xRTLfootnote%
+\color@begingroup\unhbox\@curfield}
+\endinput \ No newline at end of file