summaryrefslogtreecommitdiff
path: root/texmf-dist/tex
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/tex')
-rw-r--r--texmf-dist/tex/latex/eq-fetchbbl/eq-fetchbbl.sty79
1 files changed, 79 insertions, 0 deletions
diff --git a/texmf-dist/tex/latex/eq-fetchbbl/eq-fetchbbl.sty b/texmf-dist/tex/latex/eq-fetchbbl/eq-fetchbbl.sty
new file mode 100644
index 00000000..53ec3f2b
--- /dev/null
+++ b/texmf-dist/tex/latex/eq-fetchbbl/eq-fetchbbl.sty
@@ -0,0 +1,79 @@
+%%
+%% This is file `eq-fetchbbl.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% eq-fetchbbl.dtx (with options: `copyright,package')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% eq-fetchbbl.sty package %%
+%% Copyright (C) 2021 %%
+%% dpstory@acrotex.net %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1 of the %%
+%% License, or (at your option) any later version. %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}[1997/12/01]
+\ProvidesPackage{eq-fetchbbl}
+ [2021/03/15 v1.0 eq-fetchbbl: Match Bible passages to verses (dps)]
+\RequirePackage{exerquiz}[2021/02/21]
+\RequirePackage{fetchbibpes}[2021/03/08]
+\newif\ifeqf@usenumbers\eqf@usenumbersfalse
+\let\useNumbersOn\eqf@usenumberstrue
+\let\useNumbersOff\eqf@usenumbersfalse
+\newcommand{\setRBTWidthTo}[1]{\settowidth{\eflength}{#1}\edef
+ \RBTWidth{\the\eflength}}
+\setRBTWidthTo{AA}
+\newcommand{\setRBTWidth}[1]{\setlength{\eflength}{#1}\edef
+ \RBTWidth{\the\eflength}}
+\newcommand{\presetMBbl}{\Q{1}\rectW{\RBTWidth}
+ \AddAAKeystroke{event.change=event.change.toUpperCase();}}
+\newcommand{\priorRBT}[1]{\def\prior@RBT##1{#1}}
+\priorRBT{}
+\newcommand{\priorPsg}[1]{\def\prior@Psg##1{#1}}
+\priorPsg{}
+\def\CATorTBX#1{\ifx\eqQuizType\isQZ
+ \CorrAnsButton{\txtRef{\currQuiz#1}}\else
+ \sqTallyBox\fi}
+\def\eqf@RBTx#1{\prior@RBT{\CATorTBX{#1}}\RespBoxTxt[%
+ \presets{\presetMBbl}]{0}{0}{1}{\txtRef{\currQuiz#1}}}
+\def\@@qsFP#1#2{\fetchversestxt[typeset,#1]{#2}\strut
+ \ifeqf@usenumbers\efKern{1bp}{0pt}\eqf@RBTx{#2}\space\else
+ \makebox[0pt][r]{\eqf@RBTx{#2}\hskip\labelsep}\ignorespaces\fi
+ \prior@Psg{\CATorTBX{#2}}\passagetxt
+}
+\newcommand\adjCAB[2][\hfill]{\def\@djCAB##1##2{#1#2}}
+\adjCAB{#2}
+\newcommand{\@qFP}[2][]{\@@qsFP{#1}{#2}\relax
+ \@djCAB{\hfill}{\CorrAnsButton{\txtRef{\currQuiz#2}}}}
+\newcommand{\@qFV}[2][]{%
+ \fetchversestxt[typeset,#1]{#2}\label{\currQuiz#2}\strut
+ \versetxt
+}
+\newcommand\adjTBX[2][\hfill]{\def\@djTBX##1##2{#1#2}}
+\adjTBX{#2}
+\newcommand{\@sFP}[2][]{\@@qsFP{#1}{#2}\relax
+ \@djTBX{\hfill}{\sqTallyBox}}
+\newcommand{\@sFV}[2][]{%
+ \fetchversestxt[typeset,#1]{#2}\label{\currQuiz#2}\strut
+ \versetxt}
+\def\eqfQorS{\ifx\eqQuizType\isQZ
+ \let\qFP\@qFP\let\qFV\@qFV\else
+ \let\sFP\@sFP\let\sFV\@sFV\fi}
+\newenvironment{BblPsg}{\ifeqf@usenumbers\else
+ \renewcommand{\labeleqquestionnoi}{}\fi
+ \eqfQorS
+}{}
+\newenvironment{BblVrs}{%
+ \renewcommand{\theeqquestionnoi}{\Alph{eqquestionnoi}}%
+ \renewcommand{\labeleqquestionnoi}{%
+ \color{\eq@quesNumCol}\bfseries\theeqquestionnoi}%
+ \eqfQorS
+}{}
+\endinput
+%%
+%% End of file `eq-fetchbbl.sty'.