thalie (29dec15)

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

1 files changed, 35 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/latex/thalie/thalie.sty b/Master/texmf-dist/tex/latex/thalie/thalie.sty
index bb6f82f0916..d9823081c19 100644
--- a/Master/texmf-dist/tex/latex/thalie/thalie.sty
+++ b/Master/texmf-dist/tex/latex/thalie/thalie.sty
@@ -119,6 +119,15 @@
   interludelevel/scene/.code=\def\@interludelevel{scene},
   interludelevel,
 }
+\newif\if@xspace
+\pgfkeys{
+  % xspace option
+  /THALIE/.cd,
+  xspace/.value required,
+  xspace/.is if=@xspace,
+  xspace/.default=true,
+  xspace,
+}
 
 \ProcessPgfPackageOptions{/THALIE}
 \newcommand{\playname}{Play}
@@ -325,12 +334,17 @@
     \sffamily\LARGE\bfseries \textsc{\curtainname}
   \end{center}
 }
+\newcommand{\@maybexspace}{%
+  \if@xspace%
+    \xspace%
+  \fi%
+}
 \newcommand{\@speaks}[2][]{%
   \ifthenelse{\equal{#1}{}}{%
     \speakswithoutdirection{#2}%
   }{%
     \speakswithdirection{#2}{#1}%
-  }\xspace%
+  }\@maybexspace%
 }
 \ifthenelse{\equal{\@characterstyle}{bold}}{%
   % Bold style
@@ -465,7 +479,7 @@
 }
 \newcommand{\setcharactername}[2]{%
     \expandafter\gdef\csname#1name\endcsname{%
-      #2\xspace%
+      #2\@maybexspace%
     }%
     \expandafter\gdef\csname#1\endcsname{%
       \@ifnextchar[{%
@@ -562,6 +576,25 @@
   \end{quote}
 }
 \newcommand\pause{\did{\pausename}}
+
+
+\newlength{\@verseadjust}
+\setlength{\@verseadjust}{0pt}
+
+\newcommand{\adjustverse}[1]{\setlength{\@verseadjust}{#1}}
+
+\newcommand{\pauseverse}{{\abovedisplayshortskip\z@\abovedisplayskip\z@
+      \belowdisplayshortskip\z@\belowdisplayskip\z@
+  $$\global\dimen\@ne\predisplaysize
+   \xdef\tmp{%
+        \predisplaysize\the\predisplaysize
+        \prevgraf\the\prevgraf\relax}%
+  $$\vskip\dimexpr-\parskip-\baselineskip\relax}\tmp
+}
+
+\newcommand{\resumeverse}{%
+  \hspace{\@verseadjust}\hspace{\the\dimen\@ne}
+}
 \endinput
 %%
 %% End of file `thalie.sty'.