bidi (27apr15)

git-svn-id: svn://tug.org/texlive/trunk@37080 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 11 insertions, 4 deletions

diff --git a/Master/texmf-dist/tex/xelatex/bidi/bidipoem.sty b/Master/texmf-dist/tex/xelatex/bidi/bidipoem.sty
index 423fb044fd4..0a81389ea27 100644
--- a/Master/texmf-dist/tex/xelatex/bidi/bidipoem.sty
+++ b/Master/texmf-dist/tex/xelatex/bidi/bidipoem.sty
@@ -17,7 +17,7 @@
 %%   by Vafa Khalighi.
 %% 
 %% 
-%% \CheckSum{44308}
+%% \CheckSum{44326}
 %% \CharacterTable
 %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
 %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -36,7 +36,9 @@
 %%
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{bidipoem}%
-[2014/04/25 v0.8 Environments for typesetting Persian traditional and modern poems]
+[2014/04/27 v0.9 Environments for typesetting Persian traditional and modern poems]
+
+
 \newcommand*{\bidipoem@spreadbox}[2]{\hbox to #1{#2}}
 
 
@@ -65,8 +67,13 @@
 \bidipoem@spreadbox \bidipoem@@hvlen {#3}% second block
 \par }
 
-\newcommand*{\traditionalhalfverses}[2]{% normal case
-\traditionalconnverses {#1}{\hfill}{#2}}
+\newcommand*{\traditionalhalfverses}[2]{% optional parameter?
+\ifx [#2\def\bidipoem@half@verses@next{\bidipoem@half@verses {#1}[}%
+\else\def\bidipoem@half@verses@next{\bidipoem@half@verses {#1}[\hfill]{#2}}\fi%
+\bidipoem@half@verses@next}
+
+\def \bidipoem@half@verses #1[#2]#3{% first[mid]second
+\traditionalconnverses {#1}{#2}{#3}}
 
 {\catcode`\^^M=\active % these lines must end with %
   \gdef\traditionalpoem@obeylines{\catcode`\^^M\active \let^^M\traditionalpoem@par}%