summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tagpair
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-05-14 21:26:34 +0000
committerKarl Berry <karl@freefriends.org>2015-05-14 21:26:34 +0000
commitb838c9c2b471f38d784e44638b063cc608894573 (patch)
tree213873c4335633cfe783d5aa40f042da6798ba68 /Master/texmf-dist/tex/latex/tagpair
parentc8bf4d6e3b7f242e8fe1b35af105823861abf303 (diff)
tagpair (14may15)
git-svn-id: svn://tug.org/texlive/trunk@37398 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tagpair')
-rw-r--r--Master/texmf-dist/tex/latex/tagpair/tagpair.sty51
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/tagpair/tagpair.sty b/Master/texmf-dist/tex/latex/tagpair/tagpair.sty
new file mode 100644
index 00000000000..bd66e0efb93
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tagpair/tagpair.sty
@@ -0,0 +1,51 @@
+\ProvidesPackage{tagpair}[2015/05/14 v1.0 Word-by-word glosses, translations,
+and bibliographic attributions]
+
+% Copyright (C) 2015 Andreas Nolda
+
+% Author: Andreas Nolda <andreas@nolda.org>
+% Version: 1.0
+
+% This work may be distributed and/or modified under the conditions of the LaTeX
+% Project Public License, either version 1.3 of this license or (at your option)
+% any later version. The latest version of this license is in
+% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
+% distributions of LaTeX version 2005/12/01 or later.
+
+% The following code is inspired by Marcel R. van der Goot's classic "gloss.tex".
+
+\RequirePackage{varwidth}
+
+\newsavebox{\t@g}
+\newsavebox{\p@irs}
+
+% cf. the "\narrowragged" command in the "varwidth" package
+\newcommand{\narrowraggedleft}{\rightskip\z@skip%
+ \leftskip\z@ plus \hsize%
+ \parfillskip\z@skip}
+
+\newenvironment{taggedline}[2][0.75]%
+ {\def\linewidthfactor{#1}%
+ \savebox{\t@g}{#2}%
+ \ignorespaces}%
+ {\unskip%
+ \hfil\penalty0%
+ \hskip1em%
+ \hbox{}%
+ \nobreak%
+ \hfill%
+ \begin{varwidth}[t]{\linewidthfactor\linewidth}
+ \narrowraggedleft\strut\unhbox\t@g
+ \end{varwidth}}
+
+\newenvironment{pairingline}%
+ {\begin{lrbox}{\p@irs}}%
+ {\end{lrbox}%
+ \unhbox\p@irs}
+
+\newcommand{\pairing}[2]%
+ {\vtop{\hbox{\strut\smash{#1}}%
+ \hbox{\strut\smash{#2}}}}
+
+\newcommand{\bottomline}[1]%
+ {\par\nopagebreak #1}