blob: 53ec3f2b502aa092c3ec68db842009abc7588adc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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'.
|