+ * Author URI: http://jtrichardson.com/
+ * License: MIT License (http://opensource.org/licenses/MIT)
+ */
+
+define("SACRED_WORDPRESS_VERSION", '0.10.1');
+require_once('tag_scripture.php');
+require_once('scripture.php');
+
+// Add filters and actions
+add_filter( 'the_content', 'tag_scriptures_in_the_content_filter' );
+add_filter( 'comment_text', 'tag_scriptures_in_comment_text_filter' );
+add_action( 'wp_enqueue_scripts', 'sacred_wordpress_enqueue_scripts' );
+
+/**
+ * Implements WordPress filter 'the_content'
+ */
+function tag_scriptures_in_the_content_filter( $content ) {
+ $scriptureMarkup = new ScriptureMarkup($content);
+ $content = $scriptureMarkup->tag_text(); // in tag_scripture.php
+ return $content;
+}
+
+/**
+ * Implements WordPress filter 'comment_text'
+ */
+function tag_scriptures_in_comment_text_filter( $comment_text ) {
+ $scriptureMarkup = new ScriptureMarkup($content);
+ $comment_text = $scriptureMarkup->tag_text(); // in tag_scripture.php
+ return $comment_text;
+}
+
+/**
+ * Implements WordPress action 'wp_enqueue_scripts'
+ */
+function sacred_wordpress_enqueue_scripts() {
+ wp_enqueue_script('tooltipster', plugins_url('3rdparty/jquery.tooltipster.js',
+ __FILE__), array('jquery'), '3.2.6'); // This is Tooltipster version
+
+ /* If you'd rather use the jsmin'ed version, you save only about
+ * 9K bytes in load. */
+ wp_enqueue_script('scriptureRef', plugins_url('scriptureTooltip.js',
+ __FILE__), array('jquery', 'tooltipster'), SACRED_WORDPRESS_VERSION);
+ /* wp_enqueue_script('scriptureRef', plugins_url('scriptureTooltip.min.js',
+ __FILE__), array('jquery', 'tooltipster'), SACRED_WORDPRESS_VERSION); */
+
+ /* This is for the Fair Use Information System (FUMS) requested by the Bibles.org API.
+ * Should check this URL from time to time to keep current.
+ * @link http://bibles.org/pages/api/documentation/fums */
+ wp_enqueue_script('biblesorg_fums',
+ 'http://d2ue49q0mum86x.cloudfront.net/include/fums.c.js', null, null);
+
+ wp_enqueue_style('tooltipster-css', plugins_url('3rdparty/tooltipster.css',
+ __FILE__), null, '3.2.6');
+ wp_enqueue_style('tooltipster-shadow-css',plugins_url('3rdparty/tooltipster-shadow.css',
+ __FILE__), array('tooltipster-css'), '3.2.6'); // This is Tooltipster version
+ wp_enqueue_style('scriptureTooltip-css', plugins_url('scriptureRef.css',
+ __FILE__), array('tooltipster-css', 'tooltipster-shadow-css'), SACRED_WORDPRESS_VERSION);
+}
diff --git a/sample-text.txt b/sample-text.txt
new file mode 100644
index 0000000..97f5044
--- /dev/null
+++ b/sample-text.txt
@@ -0,0 +1,23 @@
+1996. Our justification comes from the grace of God. Grace is favor, the free and undeserved help that God gives us to respond to his call to become children of God, adoptive sons, partakers of the divine nature and of eternal life (cf. Jn 1:12-18; 17:3; Rom 8:14-17; 2 Pet 1:3-4).
+
+1997. Grace is a participation in the life of God. It introduces us into the intimacy of Trinitarian life: by Baptism the Christian participates in the grace of Christ, the Head of his Body. As an "adopted son" he can henceforth call God "Father," in union with the only Son. He receives the life of the Spirit who breathes charity into him and who forms the Church.
+
+1998. This vocation to eternal life is supernatural. It depends entirely on God's gratuitous initiative, for he alone can reveal and give himself. It surpasses the power of human intellect and will, as that of every other creature (cf. 1 Cor 2:7-9).
+
+1999. The grace of Christ is the gratuitous gift that God makes to us of his own life, infused by the Holy Spirit into our soul to heal it of sin and to sanctify it. It is the sanctifying or deifying grace received in Baptism. It is in us the source of the work of sanctification (cf. Jn 4:14; 7:38-39): Therefore if any one is in Christ, he is a new creation; the old has passed away, behold, the new has come. All this is from God, who through Christ reconciled us to himself (2 Cor 5:17-18).
+
+2000. Sanctifying grace is an habitual gift, a stable and supernatural disposition that perfects the soul itself to enable it to live with God, to act by his love. Habitual grace, the permanent disposition to live and act in keeping with God's call, is distinguished from actual graces which refer to God's interventions, whether at the beginning of conversion or in the course of the work of sanctification.
+
+2001. The preparation of man for the reception of grace is already a work of grace. This latter is needed to arouse and sustain our collaboration in justification through faith, and in sanctification through charity. God brings to completion in us what he has begun, "since he who completes his work by cooperating with our will began by working so that we might will it" (St. Augustine, De gratia et libero arbitrio, 17:PL 44,901):
+
+Indeed we also work, but we are only collaborating with God who works, for his mercy has gone before us. It has gone before us so that we may be healed, and follows us so that once healed, we may be given life; it goes before us so that we may be called, and follows us so that we may be glorified; it goes before us so that we may live devoutly, and follows us so that we may always live with God: for without him we can do nothing (St. Augustine, De natura et gratia, 31:PL 44,264).
+
+2002. God's free initiative demands man's free response, for God has created man in his image by conferring on him, along with freedom, the power to know him and love him. The soul only enters freely into the communion of love. God immediately touches and directly moves the heart of man. He has placed in man a longing for truth and goodness that only he can satisfy. The promises of "eternal life" respond, beyond all hope, to this desire: If at the end of your very good works ..., you rested on the seventh day, it was to foretell by the voice of your book that at the end of our works, which are indeed "very good" since you have given them to us, we shall also rest in you on the sabbath of eternal life (St. Augustine, Conf. 13,36 51:PL 32,868; cf. Gen 1:31).
+
+2003. Grace is first and foremost the gift of the Spirit who justifies and sanctifies us. But grace also includes the gifts that the Spirit grants us to associate us with his work, to enable us to collaborate in the salvation of others and in the growth of the Body of Christ, the Church. There are sacramental graces, gifts proper to the different sacraments. There are furthermore special graces, also called charisms after the Greek term used by St. Paul and meaning "favor," "gratuitous gift," "benefit" (Cf. LG 12). Whatever their character — sometimes it is extraordinary, such as the gift of miracles or of tongues — charisms are oriented toward sanctifying grace and are intended for the common good of the Church. They are at the service of charity which builds up the Church (cf. 1 Cor 12).
+
+2004. Among the special graces ought to be mentioned the graces of state that accompany the exercise of the responsibilities of the Christian life and of the ministries within the Church: Having gifts that differ according to the grace given to us, let us use them: if prophecy, in proportion to our faith; if service, in our serving; he who teaches, in his teaching; he who exhorts, in his exhortation; he who contributes, in liberality; he who gives aid, with zeal; he who does acts of mercy, with cheerfulness (Rom 12:6-8).
+
+2005. Since it belongs to the supernatural order, grace escapes our experience and cannot be known except by faith. We cannot therefore rely on our feelings or our works to conclude that we are justified and saved (cf. Council of Trent [1547]: DS 1533-1534). However, according to the Lord's words "Thus you will know them by their fruits" (Mt 7:20) — reflection on God's blessings in our life and in the lives of the saints offers us a guarantee that grace is at work in us and spurs us on to an ever greater faith and an attitude of trustful poverty. A pleasing illustration of this attitude is found in the reply of St. Joan of Arc to a question posed as a trap by her ecclesiastical judges: "Asked if she knew that she was in God's grace, she replied: 'If I am not, may it please God to put me in it; if I am, may it please God to keep me there'" (Acts of the trial of St. Joan of Arc).
+
+(Catechism of the Catholic Church, Second Edition. English translation © 1994, 1997, United States Catholic Conference. Original Latin text © 1993, Libreria Editrice Vaticana.)
diff --git a/scripture.php b/scripture.php
new file mode 100644
index 0000000..a48b9b5
--- /dev/null
+++ b/scripture.php
@@ -0,0 +1,390 @@
+ 'BiblesOrg',
+ 'deutero_request' => 'BiblesOrg',
+ 'standard_version' => 'eng-ESV',
+ 'deutero_version' => 'eng-KJVA',
+ 'debug' => false,
+ );
+
+ /**
+ * This will assemble a query string of semicolon-separated Scripture
+ * references and send them to the APIs requested in $config.
+ * (Comma-separated also works with Bibles.org API, but I want to be
+ * able to keep compound references (e.g. Jn 3:3,5) together on our
+ * end, though they are broken down when sent to the APi.)
+ *
+ * @param The query string of references passed by the Ajax request.y
+ */
+ public function get_passages($ref) {
+ global $BIBLEBOOKS;
+
+ /* Expects JSON object in response from API request:
+ * {
+ * passages: {
+ * [
+ * title: '',
+ * version: '',
+ * text: ''
+ * ]
+ * }
+ * copyright: {
+ * 'ESV': ...
+ * 'NKJV': ...
+ * }
+ * }
+ * Any specific API Request objects should implement this.
+ */
+
+ $refs = explode(";", $ref);
+ $refs = array_unique($refs); # Remove duplicate requests
+
+ $proto_refs = array();
+ $deutero_refs = array();
+
+ # Keep compound requests such as John 3:3,5 separate
+ # We will request the verses separately and reassmble later.
+ $compounds = array();
+
+ $whole_chapter = array();
+
+ while ($ref = array_shift($refs)) {
+ if (preg_match('/((?:\d )?(?:[A-Za-z ]+)) (\d.*)$/',
+ $ref, $matches)) {
+ $book = $matches[1];
+ $verse = $matches[2]; # Everything to the end
+ } else {
+ # Then it will probably fail at the API level, too;
+ # Skip it, or we're crash the whole thing.
+ continue;
+ }
+
+ /* Challenge: Bibles.org API returns a request for a whole
+ * chapter (e.g. 1 Corinthians 13) as a range of verses
+ * (i.e. 1 Corinthians 13:1-13).
+ * Our end needs to be able to understand that
+ * 1 Corinthians 13 === 1 Corinthians 13:1-13.
+ * Will give the script a table of chapters
+ * ($BIBLEBOOKS[CHAPTERS]) and the number
+ * of verses in them ($BIBLEBOOKS[CHAPTER_VERSES],
+ * but bible versions vary slightly in verse numbering
+ * and this method will not be absolute.
+ * Thankfully the API doesn't do this for a
+ * range of chapters (e.g. 1 John 1-2) */
+
+ # Identify such a case of a whole chapter reference
+ if (preg_match('/^\d+$/', $verse) and
+ $BIBLEBOOKS['CHAPTERS'][$book] != 1) {
+ $whole_chapter[] = $ref;
+ # So we will know to look for it later.
+ }
+
+ # Convert compounds of adjacent verses (e.g. John 3:3,4)
+ # to a range. That's what we are really asking for` --
+ # otherwise API will treat as two separate verses.
+ if (preg_match('/\b(\d+), ?(\d+)\b/', $verse, $matches) and
+ abs($matches[2] - $matches[1]) == 1) {
+ # Put them in the right order
+ if ($matches[2] < $matches[1]) {
+ $repl = "$matches[2]-$matches[1]";
+ } else {
+ $repl = "$matches[1]-$matches[2]";
+ }
+ # We do it this way rather than simply assign the string
+ # above in case this were a more complex reference,
+ # e.g. John 3:3,4,9
+ $verse = str_replace($matches[0], $repl, $verse);
+ # Redefine the ref
+ $ref = "$book $verse";
+ }
+
+ # Break up other compounds
+ $verses = self::get_compound_parts($ref);
+ # Will return array of chapter-verses if compound
+ # (e.g 1 John 1:6, 8)
+
+ if (self::is_deutero($book)) {
+ if ($verses) { # Then a compound reference
+ while ($v = array_shift($verses)) {
+ # Push each piece as a separate request, but
+ # remember it's a compound.
+ $compounds[] = $ref;
+ $deutero_refs[] = $v;
+ }
+ } else
+ $deutero_refs[] = $ref;
+ } else {
+ if ($verses) { # Then a compound reference
+ while ($v = array_shift($verses)) {
+ # Push each piece as a separate request, but
+ # remember it's a compound.
+ $compounds[] = $ref;
+ $proto_refs[] = $v;
+ }
+ } else
+ $proto_refs[] = $ref;
+ }
+ }
+
+ if ($proto_refs) {
+ # Double-check for duplicates (may be new ones after compounding)
+ $proto_refs = array_unique($proto_refs);
+
+ $ref = implode(';', $proto_refs);
+
+ # A new object of the requested request
+ $request_class = self::$config['standard_request'] . '_Request';
+ $req = new $request_class();
+ $res1 = $req->get_passages($ref, self::$config['standard_version']);
+ }
+
+ /* Have to make a separate request for deutero references since
+ * Protestant Bible translations (using the ESV by default)
+ * don't have them and API will return nothing.
+ */
+ if ($deutero_refs) {
+
+ # Double-check for duplicates (may be new ones after compounding)
+ $deutero_refs = array_unique($deutero_refs);
+
+ $ref = implode(';', $deutero_refs);
+
+ # A new object of the requested request
+ $request_class = self::$config['deutero_request'] . '_Request';
+ $req = new $request_class();
+ $res2 = $req->get_passages($ref, self::$config['deutero_version']);
+ }
+
+ if (! isset($res1)) {
+ $res1 = ["passages" => [], "copyright" => []];
+ }
+ if (! isset($res2)) {
+ $res2 = ["passages" => [], "copyright" => []];
+ }
+
+ $res = $this->merge_responses($res1, $res2);
+ $this->reassemble_compounds($res, $compounds);
+
+ /* Now try to find those whole chapter requests
+ * @todo Need to make this part slightly more tolerant of variations in versification */
+
+ foreach ($whole_chapter as $ref) {
+ # First try to find how many verses were in that chapter
+ self::debug_print("Trying to find whole_chapter $ref\n");
+ preg_match('/^([A-Za-z0-9 ]+) (\d+)$/', $ref, $matches);
+ $book = $matches[1];
+ $chapter = $matches[2];
+ $verses = $BIBLEBOOKS['CHAPTER_VERSES'][$book][$chapter-1];
+ self::debug_print("Checking key '$book $chapter:1-$verses'\n");
+ if ($verses) {
+ if (array_key_exists("$book $chapter:1-$verses",
+ $res["passages"])) { # e.g. 1 Corinthians 13:1-13
+ self::debug_print("Found key '$book $chapter:1-$verses'\n");
+ # Make an alias key for the whole chapter
+ $res["passages"]["$book $chapter"] =
+ $res["passages"]["$book $chapter:1-$verses"];
+ }
+ }
+ }
+
+ # Finally (and this is an afterthought), wrap each response in
+ # a div so jQuery can deal with it.
+ foreach ($res["passages"] as $ref => $passage) {
+ $res["passages"][$ref]['text'] = '' .
+ $passage['text'] . '
';
+ }
+
+ return $res;
+ }
+
+ /**
+ * A utility function to merge response objects.
+ *
+ * @param $res1 First of two response objects to merge.
+ * @param $res2 Second of two response objects to merge.
+ */
+ private function merge_responses(array $res1, array $res2) {
+ $passages = array_merge($res1["passages"], $res2["passages"]);
+ $copyright = array_merge($res1["copyright"], $res2["copyright"]);
+ return array('passages' => $passages, 'copyright' => $copyright);
+ }
+
+ /**
+ * A utility function to merge passages within responses
+ * (for use in reassembling compound references).
+ *
+ * @param $passages An array of passages to merge.
+ * @param $ref A compound reference that describes the assembled compound.
+ */
+ private function merge_passages($passages, $ref) {
+ $new_passage = array();
+ $new_passage['title'] = $ref;
+ $new_passage['version'] = $passages[0]['version'];
+ $new_passage['text'] = '';
+ foreach ($passages as $passage) {
+ $new_passage['text'] .= $passage['text'];
+ }
+ return $new_passage;
+ }
+
+ /**
+ * Reassemble the compound references (e.g. John 3:3,5) that we
+ * broke up before the request. Will take the array of compound
+ * references and pick the constituent verses out of the response.
+ *
+ * @param &$res Reference to the response object
+ * @param $compounds array of compounds
+ */
+ private function reassemble_compounds(&$res, array $compounds) {
+
+ $passages = $res["passages"];
+ $passages_to_compound = array();
+
+ foreach ($compounds as $compound) {
+ $passages_to_compound = [];
+ # Will get an array of what verses to reassemble
+ $verses = self::get_compound_parts($compound);
+
+ foreach ($verses as $verse) {
+ $passage = $passages[$verse];
+
+ # Remove the old head
+ $passage['text'] = preg_replace(
+ '/]* class="scriptureVerseHead[^>]*>(.*?)<\/h2>/',
+ '', $passage['text']);
+
+ # Only want to return one scriptureVerseHead for each compound
+ if (! isset($verseHead)) { # Only do this once
+ $verseHead = '' .
+ $compound . ' (' .
+ $passage['version'] . ')
';
+ }
+
+ if (! $passage) {
+ # Failed to receive expected part of compound
+ } else {
+ $passages_to_compound[] = $passage;
+ }
+ }
+ $compounded =
+ $this->merge_passages($passages_to_compound, $compound);
+ # Put the new head on it
+ $compounded['text'] = $verseHead . $compounded['text'];
+ $res["passages"][$compound] = $compounded;
+ }
+ }
+
+ /**
+ * Break a compound reference into parts (individual verses).
+ * Returns an array of verses.
+ *
+ * @param $ref The compound reference to break up.
+ */
+ static public function get_compound_parts($ref) {
+ if (preg_match('/((?:\d )?(?:[A-Za-z ]+)) (\d.*)$/', $ref, $matches)) {
+ $book = $matches[1];
+ $verse = $matches[2]; # Everything to the end
+ } else {
+ throw new Exception("Unrecognized reference: $ref");
+ }
+
+ if (preg_match('/(\d+):(\d+(?:,\ ?\d+)+)$/', $verse, $matches)) {
+ $chapter = $matches[1];
+ $verses_str = $matches[2];
+ $verses = preg_split('/, ?/', $verses_str);
+ foreach ($verses as &$v) {
+ $v = "$book $chapter:$v";
+ }
+ return $verses;
+ }
+ return 0;
+ }
+
+ /**
+ * Is the book deuterocanonical? Check it against the table.
+ *
+ * @param $book A book name.
+ */
+ static public function is_deutero($book) {
+ global $BIBLEBOOKS;
+ if (array_key_exists($book, $BIBLEBOOKS['DEUTERO'])) {
+ return 1;
+ }
+ return 0;
+ }
+
+ /**
+ * Attempt to transform the reference into something canonical,
+ * given an unfamiliar book name (possibly an alternate name).
+ * E.g. The Bibles.org API returns the book of Sirach as
+ * Ecclesiasticus. Change it back to Sirach -- since that is
+ * what the requesting script is expecting.
+ *
+ * @param $ref A ref to canonicalize.
+ */
+ static public function to_canonical($ref) {
+ global $BIBLEBOOKS;
+ if (! isset($BIBLEBOOKS['BOOKS'])) {
+ # Don't do this unless we have to
+ BibleBooks::prepare_book_maps();
+ }
+
+ if (preg_match('/((?:\d )?(?:[A-Za-z ]+)) (\d.*)$/', $ref, $matches)) {
+ $book = $matches[1];
+ $verse = $matches[2];
+ }
+ if ($BIBLEBOOKS['BOOKS'][$book]) {
+ $book = $BIBLEBOOKS['BOOKS'][$book];
+ }
+ return "$book $verse";
+ }
+
+ /**
+ * Print if the debug flag is on.
+ * Only useful in accessing this script directly, since any stray
+ * text disrupts the JSON the other end is expecting.
+ *
+ * @param $string String to print.
+ */
+ static public function debug_print($string) {
+ if (! ScriptureRequest::$config['debug']) {
+ return 0;
+ }
+ print $string;
+ }
+
+ /**
+ * Constructor for ScriptureRequest object.
+ * Gets the query string from the CGI and triggers the request.
+ */
+ public function __construct() {
+ # Set the debug flag if requested.
+ if (array_key_exists('debug', $_GET)) {
+ ScriptureRequest::$config['debug'] = 1;
+ }
+
+ # Sanitize input
+ $reflist = filter_input(INPUT_GET, 'ref', FILTER_SANITIZE_STRING,
+ FILTER_FLAG_STRIP_HIGH | FILTER_FLAG_STRIP_LOW);
+
+ if ($reflist) {
+ header("Content-type: application/json");
+ $res = $this->get_passages($reflist);
+ print json_encode($res);
+ }
+ }
+} /* class ScriptureRequest */
+
+$scriptureReq = new ScriptureRequest();
diff --git a/scriptureRef.css b/scriptureRef.css
new file mode 100644
index 0000000..4a816d5
--- /dev/null
+++ b/scriptureRef.css
@@ -0,0 +1,75 @@
+/**
+ * scriptureRef.css: Styling for scriptureTooltip.js's tooltips.
+ *
+ * @package Sacred Wordpress
+ */
+
+span.scriptureRef {
+ color: navy;
+ text-decoration: underline;
+ cursor: pointer;
+}
+
+.scriptureCopyright {
+ /* Just the 'copyright info' pseudo-link;
+ * actual copyright info will be tooltip */
+ font-size: 0.8em;
+ margin-top: 0.6em;
+ margin-bottom: 0.7em;
+}
+
+.scriptureText {
+ font-family: 'Old Style', serif;
+ margin-bottom: 0.5em;
+ margin-top: 0.6em;
+}
+
+.scriptureText sup.v {
+ margin-left: 0.5ex;
+ margin-right: 0.5ex;
+ font-size: 0.7em;
+ font-family: 'Arial', sans-serif;
+}
+
+.scripturePoetry1, .scripturePoetry2 {
+ margin-bottom: 0.5em;
+ margin-top: 0.5em;
+}
+
+.scripturePoetry2 {
+ text-indent: 5ex;
+}
+
+.scriptureVerseHead {
+ font-size: 1em;
+ /*font-family: 'Times New Roman', 'Transitional', sans-serif;*/
+ font-family: 'Arial', sans-serif;
+ margin-bottom: 0.7em;
+ margin-top: 0.7em;
+}
+
+.scriptureVerseHead .version {
+ font-size: .7em;
+}
+
+.scriptureHeading {
+ font-size: 1em;
+ font-family: 'Times New Roman', 'Transitional', sans-serif;
+ margin-bottom: 0.7em;
+ margin-top: 0.7em;
+ font-weight: bold;
+}
+
+.scriptureLinkMenuPanel {
+ float: right;
+ position: relative;
+ /*top: -10px;*/
+ bottom: 5px;
+}
+
+.scriptureLinkMenuTitle {
+ font-variant: small-caps;
+ font-size: 0.8em;
+ margin-top: 0px;
+ margin-bottom: 0px;
+}
diff --git a/scriptureTooltip.js b/scriptureTooltip.js
new file mode 100644
index 0000000..bc63c9b
--- /dev/null
+++ b/scriptureTooltip.js
@@ -0,0 +1,340 @@
+/**
+ * scriptureTooltip.js: Gathers Scripture references from page, requests
+ * from scripture.php, and generates tooltips (via jQuery + Tooltipster)
+ * of Scripture text.
+ *
+ * @package Sacred Wordpress
+ */
+
+var scriptureTooltip = {
+ pathToPlugin: '/wp-content/plugins/sacred-wordpress',
+ debug: false, // Gives debugging output to console
+
+ /**
+ * Default Bible site for reference to link to (from list in getLink).
+ * As it is set up, the Scripture reference in the tooltip is linked
+ * (the reference in the blog text is only styled like a link).
+ * @see getLink
+ */
+ defaultScriptureSite: 'BibleGateway',
+
+ /**
+ * URLs to copyright info for particular Bible versions we will use.
+ * Will be linked in tooltip if showCopyrightDataInTooltip is true.
+ */
+ copyrightData: {
+ ESV: 'http://www.crossway.org/rights-permissions/esv/',
+ NASB: 'http://www.lockman.org/tlf/copyright.php'
+ },
+ showCopyrightDataInTooltip: false,
+
+ /**
+ * All the stuff to get it started.
+ */
+ init: function() {
+ "use strict";
+ // Gather list of the scriptures we need from the whole page
+ var neededScriptures = this.getScriptureList();
+ // Preload scriptures from webservice
+ this.preloadScriptures(neededScriptures);
+
+ /* Apply Tooltipster tooltips to all elements classed 'scriptureRef'
+ * (which should be those tagged by tag_scripture.php)
+ * For documentation of Tooltipster options, see
+ * @link http://iamceege.github.io/tooltipster/
+ * I intend to also implement option to use jQuery UI tooltips
+ * instead of Tooltipster if you wish.
+ */
+ /* Because WordPress loads jQuery in noConflict mode, we address
+ * jQuery by its full name. */
+ jQuery(".scriptureRef").tooltipster({
+ /* You're welcome to display something more creative while loading.
+ * In a long page of posts, it can take a few seconds to load. */
+ content: "Loading...",
+ contentAsHTML: true,
+ maxWidth: 300,
+ theme: 'tooltipster-shadow', // You can customize the theme.
+ interactive: true, /* Allows a momentary delay for user to
+ * mouseover tooltip, in which case it then stays. */
+ multiple: false
+ //autoClose: false // Useful to enable this for debugging DOM and CSS
+ });
+
+ if (this.debug) {
+ console.log("scriptureTooltip: All ready!");
+ }
+ },
+
+ /**
+ * Gather the list of Scripture references in whole page from all
+ * elements classed 'scriptureRef' (applied by mark_scripture.php).
+ * The returned array will be passed to scripture.php to request
+ * Scripture text.
+ */
+ getScriptureList: function () {
+ "use strict";
+ if (this.debug) {
+ console.log("Getting scripture list.\n");
+ }
+ var scriptureList = [];
+
+ /* For each element classed 'scriptureRef', gather the reference
+ * into the array. */
+ jQuery(".scriptureRef[ref]").each(function() {
+ scriptureList.push(jQuery(this).attr("ref"));
+ });
+
+ return scriptureList;
+ },
+
+ /**
+ * Make a single Ajax request at page load to get text of all
+ * Scripture references on page. This is slow up front but then allows
+ * immediate popup of all tooltips.
+ * Presumably someone actually reading will not jump immediately
+ * to requesting the text of a Scripture reference.
+ * @todo Allow an option to request texts separately on demand.
+ *
+ * @param scriptureList Array of Scripture references returned by getScriptureList().
+ */
+ preloadScriptures: function (scriptureList) {
+ "use strict";
+
+ /* We use semicolons to separate references here rather than commas
+ * since we want to treat compound references like John 3:3,5
+ * as a single reference. */
+ var queryString = scriptureList.join(";");
+
+ // Make the request.
+ jQuery.ajax({
+ url: scriptureTooltip.pathToPlugin +
+ "/scripture.php" + "?ref=" + queryString,
+ type: "GET",
+ dataType: "JSON",
+ success: function(json) {
+ scriptureTooltip.setTooltips(json);
+ },
+ error: function(jq, textStatus, errorThrown) {
+ if (scriptureTooltip.debug) {
+ console.log("scriptureTooltip: Ajax request failed!");
+ console.log(textStatus);
+ console.log(errorThrown);
+ }
+ },
+ complete: function(json) {
+ if (scriptureTooltip.debug) {
+ console.log("scriptureTooltip: Ajax request completed!");
+ }
+ }
+ });
+ },
+
+ /**
+ * Set the content of the tooltips with the Scripture text received
+ * from the Ajax request.
+ *
+ * @param json The JSON object we received from our request.
+ */
+ setTooltips: function (json) {
+ "use strict";
+
+ jQuery(".scriptureRef[ref]").each(function() {
+ var ref, text, $html, url, version, $copyrightInfo;
+
+ if (scriptureTooltip.debug) {
+ console.log(this);
+ }
+
+ ref = jQuery(this).attr("ref");
+ url = scriptureTooltip.getDefaultLink(ref);
+
+ if (scriptureTooltip.debug) {
+ console.log("Getting ref: " + ref);
+ }
+
+ /* If everything worked the way it should have in scripture.php,
+ * there ought to be a member matching 'ref' in the received
+ * JSON object... */
+ if (json.passages.hasOwnProperty(ref)) {
+ text = json.passages[ref].text;
+
+ /* Transmute hyphen to en dash for verse ranges, e.g. 1 Cor 9:10-12
+ * (I'm a stickler for proper style) */
+ text = text.replace(/\b(\d+)-(\d+)\b/, "$1\u2013$2");
+
+ /* Wrap the scriptureVerseHead (the reference at the top
+ * of the tooltip) in a link to the default Bible site.
+ * I would like to set a secondary tooltip here to show
+ * a menu of available Bible sites. */
+
+ $html = jQuery(text);
+ $html.find(".scriptureVerseHead")
+ .wrap('');
+
+ // An uglier way of doing that.
+ /* text = text.replace(/(]*? class="scriptureVerseHead"[^>]*?>)(.+?)(<\/h\2>)/,
+ "$1$3$4", text); */
+
+ version = json.passages[ref].version;
+ $copyrightInfo = scriptureTooltip.getCopyrightData(
+ version, json.copyright[version]);
+ if (scriptureTooltip.showCopyrightDataInTooltip) {
+ $html.find(".scriptureText:last").after($copyrightInfo);
+ }
+ jQuery(this).tooltipster("content", $html);
+ } else {
+ /* If there was not a matching 'ref' member in the JSON
+ * object, either the reference was incorrectly parsed,
+ * or it was an invalid reference, perhaps not Scripture
+ * at all. We should leave the ref alone and even strip
+ * the 'scriptureRef' class from the element. */
+ jQuery(this).removeClass('scriptureRef');
+ }
+ });
+ },
+
+ /**
+ * Assemble the copyright data to include in the tooltip,
+ * if showCopyrightDataInTooltip is true.
+ *
+ * @param version The abbreviation for the version.
+ * @param versionText The copyright text returned by the API.
+ */
+ getCopyrightData: function (version, versionText) {
+ "use strict";
+ var copyright, copyrightURL;
+
+ if (this.copyrightData.hasOwnProperty(version)) {
+ /* This is a URL to a page giving copyright info for the
+ * version. */
+ copyrightURL = this.copyrightData[version];
+ } else if (! versionText) {
+ /* If there's no copyright page for the version to link,
+ * and no copyright text returned from the API, then
+ * we've got nothing to show.
+ */
+ return '';
+ }
+
+ /* This is ugly but it works. */
+ if (copyrightURL) {
+ // We have a page to link to.
+ copyright = 'Copyright Information' +
+ (copyrightURL ? '' : '');
+ copyright = '' + copyright + '
';
+
+ return copyright;
+ },
+
+ /**
+ * This wraps each tagged scriptureRef in a link to the default
+ * Bible site. I decided not to do this (and instead to apply the
+ * link to the verse header in the tooltip) so mobile users could
+ * click the scriptureRef (styled like a link but not a link)
+ * to raise the tooltip, without leaving the page.
+ * We can probably refine this behavior (i.e. possibly link the
+ * scriptureRefs only when viewed by non-mobile users).
+ */
+ setLinks: function () {
+ "use strict";
+ jQuery(".scriptureRef").wrap(function() {
+ var ref, url;
+ ref = jQuery(this).attr("ref");
+ url = this.getDefaultLink(ref);
+ return '';
+ });
+ },
+
+ /**
+ * Gets the default URL (at defaultScriptureSite) to link a
+ * scriptureRef to.
+ */
+ getDefaultLink: function (ref) {
+ "use strict";
+ // Give the standard URL to use as a link for the reference.
+ // May want to customize this to give user an option.
+ return this.getLink[this.defaultScriptureSite](ref);
+ },
+
+ /**
+ * Gets a link to a scriptureRef to several popular Bible sites.
+ *
+ * This is something I was working on to give a menu of links to
+ * various Bible sites in the tooltip. I will probably implement
+ * this as a secondary popup.
+ */
+ getLink: {
+ BibleGateway: function (ref) {
+ "use strict";
+ var baseUrl, url, version;
+ // e.g. https://www.biblegateway.com/passage/?search=Gen+1%3A1&version=RSV = Genesis 1:1
+ baseUrl = 'https://www.biblegateway.com/passage/?search=';
+ version = 'RSVCE';
+ url = baseUrl + ref.replace(' ', '+', 'g') + '&version=' + version;
+ return url;
+ },
+ NewAdvent: function (ref) {
+ "use strict";
+ var baseUrl, book, chapter, chapterstr, id, url, matches;
+ // e.g. http://www.newadvent.org/bible/sir003.htm = Sirach 3
+ baseUrl = 'http://www.newadvent.org/bible/';
+
+ /* All books are first three letters of book name, lowercase
+ * with exceptions of Judith (jdt) and Philemon (phm) --
+ * then three-digit chapter number
+ * i.e. mar016.htm for Mark 16 */
+
+ matches = ref.match(/((?:\d )?(?:[A-Za-z ]+)) (\d+):?/);
+ book = matches[1];
+ chapter = matches[2];
+ book = book.replace(/ /, '', 'g');
+ if (chapter < 10) {
+ chapterstr = '00' + chapter;
+ } else if (chapter < 100) {
+ chapterstr = '0' + chapter;
+ } else {
+ chapterstr = chapter;
+ }
+ if (book === 'Judith') {
+ id = 'jdt';
+ } else if (book === 'Philemon') {
+ id = 'phm';
+ } else {
+ id = book.substr(0, 3).toLowerCase();
+ }
+ url = baseUrl + id + chapterstr + '.htm';
+ return url;
+ }
+ /* Some more sites I was thinking of adding:
+ *
+ * BibleStudyTools:
+ * e.g. http://www.biblestudytools.com/genesis/passage.aspx?q=genesis+1:1-5
+ * = Genesis 1:1-5
+ *
+ * Biblia:
+ * e.g. http://biblia.com/bible/nrsv/Sir3.30 = Sirach 3:30
+ * http://biblia.com/books/nrsv/Ge1.1-5 = Genesis 1:1-5
+ *
+ * BibleHub:
+ * e.g. http://biblehub.com/genesis/1-5.htm = Genesis 1:5
+ *
+ * and more!
+ */
+ }
+};
+
+/* Because WordPress loads jQuery in noConflict mode, we address
+ * jQuery by its full name. */
+jQuery(document).ready(function() {
+ "use strict";
+ scriptureTooltip.init();
+});
+
+// Debugging strings for JSLint, JSHint, etc.
+/* global jQuery: false */
+/* jslint browser: true, devel: true, unparam: true, todo: true, white: true */
diff --git a/scriptureTooltip.min.js b/scriptureTooltip.min.js
new file mode 100644
index 0000000..7141fc6
--- /dev/null
+++ b/scriptureTooltip.min.js
@@ -0,0 +1,12 @@
+// scriptureTooltip.js
+
+var scriptureTooltip={pathToPlugin:'/wp-content/plugins/sacred-wordpress',debug:false,defaultScriptureSite:'BibleGateway',copyrightData:{ESV:'http://www.crossway.org/rights-permissions/esv/',NASB:'http://www.lockman.org/tlf/copyright.php'},showCopyrightDataInTooltip:false,init:function(){"use strict";var neededScriptures=this.getScriptureList();this.preloadScriptures(neededScriptures);jQuery(".scriptureRef").tooltipster({content:"Loading...",contentAsHTML:true,maxWidth:300,theme:'tooltipster-shadow',interactive:true,multiple:false});if(this.debug){console.log("scriptureTooltip: All ready!");}},getScriptureList:function(){"use strict";if(this.debug){console.log("Getting scripture list.\n");}
+var scriptureList=[];jQuery(".scriptureRef[ref]").each(function(){scriptureList.push(jQuery(this).attr("ref"));});return scriptureList;},preloadScriptures:function(scriptureList){"use strict";var queryString=scriptureList.join(";");jQuery.ajax({url:scriptureTooltip.pathToPlugin+"/scripture.php"+"?ref="+queryString,type:"GET",dataType:"JSON",success:function(json){scriptureTooltip.setTooltips(json);},error:function(jq,textStatus,errorThrown){if(scriptureTooltip.debug){console.log("scriptureTooltip: Ajax request failed!");console.log(textStatus);console.log(errorThrown);}},complete:function(json){if(scriptureTooltip.debug){console.log("scriptureTooltip: Ajax request completed!");}}});},setTooltips:function(json){"use strict";jQuery(".scriptureRef[ref]").each(function(){var ref,text,$html,url,version,$copyrightInfo;if(scriptureTooltip.debug){console.log(this);}
+ref=jQuery(this).attr("ref");url=scriptureTooltip.getDefaultLink(ref);if(scriptureTooltip.debug){console.log("Getting ref: "+ref);}
+if(json.passages.hasOwnProperty(ref)){text=json.passages[ref].text;text=text.replace(/\b(\d+)-(\d+)\b/,"$1\u2013$2");$html=jQuery(text);$html.find(".scriptureVerseHead").wrap('');version=json.passages[ref].version;$copyrightInfo=scriptureTooltip.getCopyrightData(version,json.copyright[version]);if(scriptureTooltip.showCopyrightDataInTooltip){$html.find(".scriptureText:last").after($copyrightInfo);}
+jQuery(this).tooltipster("content",$html);}else{jQuery(this).removeClass('scriptureRef');}});},getCopyrightData:function(version,versionText){"use strict";var copyright,copyrightURL;if(this.copyrightData.hasOwnProperty(version)){copyrightURL=this.copyrightData[version];}else if(!versionText){return'';}
+if(copyrightURL){copyright='Copyright Information'+
+(copyrightURL?'':'');copyright=''+copyright+'
';return copyright;},setLinks:function(){"use strict";jQuery(".scriptureRef").wrap(function(){var ref,url;ref=jQuery(this).attr("ref");url=this.getDefaultLink(ref);return'';});},getDefaultLink:function(ref){"use strict";return this.getLink[this.defaultScriptureSite](ref);},getLink:{BibleGateway:function(ref){"use strict";var baseUrl,url,version;baseUrl='https://www.biblegateway.com/passage/?search=';version='RSVCE';url=baseUrl+ref.replace(' ','+','g')+'&version='+version;return url;},NewAdvent:function(ref){"use strict";var baseUrl,book,chapter,chapterstr,id,url,matches;baseUrl='http://www.newadvent.org/bible/';matches=ref.match(/((?:\d )?(?:[A-Za-z ]+)) (\d+):?/);book=matches[1];chapter=matches[2];book=book.replace(/ /,'','g');if(chapter<10){chapterstr='00'+chapter;}else if(chapter<100){chapterstr='0'+chapter;}else{chapterstr=chapter;}
+if(book==='Judith'){id='jdt';}else if(book==='Philemon'){id='phm';}else{id=book.substr(0,3).toLowerCase();}
+url=baseUrl+id+chapterstr+'.htm';return url;}}};jQuery(document).ready(function(){"use strict";scriptureTooltip.init();});
\ No newline at end of file
diff --git a/tag_scripture.php b/tag_scripture.php
new file mode 100644
index 0000000..bff59ee
--- /dev/null
+++ b/tag_scripture.php
@@ -0,0 +1,422 @@
+tag_text($text);
+ echo $scriptureMarkup->get_text();
+ }
+}
+/* Otherwise this file only works when called directly by WordPress. */
+
+class ScriptureMarkup {
+ private $last_book;
+ private $last_chapter;
+ private $text;
+ private $debug = false;
+
+ public function __construct($text) {
+ $this->last_book = '';
+ $this->last_chapter = 0;
+
+ $this->text = $this->tag_text($text);
+ }
+
+ /**
+ * Return the marked-up text.
+ */
+ public function get_text() {
+ return $this->text;
+ }
+
+ /**
+ * Tag the Scripture references in the text (either provided in
+ * constructor or passed as parameter here.
+ *
+ * @param $text Optional passing of text to tag.
+ */
+ public function tag_text($text = null) {
+ if (! $text) {
+ $text = $this->text;
+ }
+
+ /* If it hasn't been already, prepare the table of books. */
+ if (! isset($BIBLEBOOKS['BOOKS'])) {
+ BibleBooks::prepare_book_maps();
+ }
+
+ $count = 0;
+
+ if ($this->debug) {
+ echo "\n";
+ }
+
+ /* This should match:
+ * "1 Corinthians 13:1"
+ * "1 Corinthians 13:1-3"
+ * "1 Corinthians 13:1,3"
+ * "1 Corinthians 13"
+ * If a chapter was previously referred to, will match:
+ * v. 1 OR vv. 1-3
+ * Should match in the same citation: 1 Corinthians 13:1,3
+ * Should match in DIFFERENT citations: 1 Corinthians 13:1, 15:2 */
+
+ $text = preg_replace_callback(
+ "/\b # Match a word boundary --
+ # shouldn't be a part of anything else
+ (?:
+ ( # First capture group: The name of the book
+ # The numeric prefix, e.g. *1* Corinthians
+ (?:(?:[1-4]|(?:I|II|III|IV)|(?:1st|2nd|3rd|4th)
+ |(?:First|Second|Third|Fourth))\b\ )?
+
+ # The first word of the title, first letter capital
+ (?:[A-Z][a-z]+\b\.?)
+ # Additional words of the title (up to two more)
+ (?:\ (?:[oO]f(?:\ [tT]he)?|[A-Z][a-z]+)\b\.?){0,2}
+ # Must begin in capital or be the word 'of'
+ )
+ \s? # A space between the book name and the chapter-verse
+ ( # Second capture group: The chapter-verse
+ (?:
+ (?: # A chapter-verse reference or range
+ # A basic chapter-verse reference, e.g. 3:16
+ \d+[:.]\d+
+ # With a possible range of verses (e.g. 3:16-19)
+ (?:[-\x{2013}] # \x{2013} = EN DASH
+ # End verse of a range,
+ # possibly in another chapter
+ (?:\d+[:.])?\d+)?
+ |
+ # Or can be a whole chapter
+ # (or a verse in single-chapter book)
+ \d+
+ # Or a possible range of chapters
+ (?:[-\x{2013}]\d+)?
+ )
+ (?:,\ * # A comma or other separator between refs
+ |\ and\ # Allow for cases e.g. 'John 6:37 and 10:27–30x'
+ |\ or\
+ )?
+ # But don't match the next one if it appears to be
+ # another book.
+ (?!\ (?:[1-4]\ )?[A-Z][a-z]+)
+ )+ # But if possible, match a whole string of refs
+ )
+ |
+ ( # Even if we don't find a book name, there still
+ # might be something to match
+ # (as third capture group)
+ (?<=v\.\ ) # Look-behind to v. (verse) or vv. (verses)
+ \d+ # A verse number
+ (?:[-\x{2013}] # Or possible range of verses
+ \d+
+ )?
+ (?:,\ ?\d+ # Or single verses separated by commas
+ (?!\ +[A-Z][a-z]+) # But not another book name
+ )*
+ )
+ )
+ \b
+ (?![^<]+>) # This should make sure we weren't in the middle
+ # of an HTML tag and accidentally match things
+ # like Web and IP addresses
+ /xu",
+ array($this, 'mark_scripture'), $text, -1, $count);
+
+ if ($this->debug) {
+ echo "\n";
+ }
+ return $text;
+ }
+
+ /**
+ * The callback method for preg_replace_callback() in tag_text().
+ * This cuts a string of apparent Scripture references into pieces,
+ * determines if they are actually Scripture references after all,
+ * and if they are, tags them appropriately and returns the tagged
+ * string to be replaced in the text.
+ *
+ * @param $matches The matches passed by preg_replace_callback().
+ */
+ private function mark_scripture($matches) {
+ if ($this->debug) {
+ print "\n";
+ }
+
+ if (isset ($matches[3])) {
+ # Then it's something we recognized as a Scripture reference
+ # without a book or chapter (e.g. "v." or "vv.")
+ $book = '';
+ $verses = array($matches[3]);
+ } else {
+ # We presume $matches[1] and $matches[2] matched: a book
+ # reference followed by a string of verse references
+
+ $book = $matches[1];
+ # Split comma-separated references into array
+ $versestr = preg_replace('/ and | or /', ', ', $matches[2]);
+ # 'and' or 'or' in the string is really a list separator
+ # e.g. John 6:37–40 and 10:27–30
+ $verses = preg_split('/(?:,\ *)(?=\d+[.:]|$)/', $versestr);
+ # Look-ahead to be sure we don't split at compound verse
+ # references, e.g. John 3:3,5.
+ # Only split at full chapter:verse references,
+ # e.g. John 3:3, 6:35
+ if ($this->debug) {
+ echo "\n";
+ }
+ }
+
+ if (! $book) {
+ $book = '';
+ }
+ $return_string = $matches[0]; # The whole matched string
+ $i = -1;
+ foreach ($verses as $verse) {
+ $i++; # So will be 0 on first iteration (index of $verses)
+ if ($this->debug) {
+ print "\n";
+ }
+ $flags = array();
+ if ($this->debug) {
+ print "\n";
+ }
+ if (! $book) {
+ # If we didn't match a book name,
+ # then assume the last named reference
+ if (! $this->last_book) { goto FAIL; }
+ if ($this->debug) {
+ print "\n";
+ }
+ $book = $this->last_book;
+ $flags[] = "book_inferred";
+
+ if ($this->is_chapterless($book, $verse)) { # e.g. v. 5
+ if ($this->debug) {
+ print "\n";
+ }
+ if (! $this->last_chapter) { goto FAIL; }
+ $verse = $this->last_chapter . ":$verse";
+ $flags[] = "chapter_inferred";
+ }
+ } # If no $last_book set, i.e. if this is first possible
+ # reference, but there is o book name, this will fail
+ $ref = $this->is_it_scripture($book, $verse, $flags);
+ if ($ref) {
+ $flagstr = implode(" ", $flags);
+ if ($matches[1]) { $this->last_book = $book; }
+ if ($i == 0) { # The first one, with the book reference
+ $replace = "" .
+ ($matches[1] ? $matches[1] . " " : "") .
+ $verse . "";
+ $return_string = str_replace(
+ # Also match the book reference here if it exists
+ ($matches[1] ? $matches[1] . " " : "") . $verse,
+ $replace, $return_string);
+ } else { # Just the verse reference
+ $replace = "" . $verse . "";
+ $return_string = str_replace($verse, $replace, $return_string);
+ }
+ if ($this->debug) {
+ print "\n";
+ }
+ } else { # It's probably not a Scripture reference after all
+ FAIL:
+ # Don't replace anything; leave it as it is
+ }
+ }
+ if ($this->debug) {
+ print "\n\n";
+ }
+ return $return_string;
+ }
+
+ /**
+ * Passed an apparent Scripture reference, determines if it is
+ * actually Scripture after all.
+ *
+ * @param $book The book string matched in the regexp.
+ * @param $verse The chapter-verse string.
+ * @param &$flags Flags about the string we are passing around.
+ */
+ private function is_it_scripture($book, $verse, &$flags) {
+ global $BIBLEBOOKS;
+ if ($this->debug) {
+ print "\n";
+ }
+ if (! $book) {
+ # If there's no book, not even an inferred one, then we
+ # obviously have nothing to do here.
+ return 0;
+ }
+ # The cases when people spell out "First Corinthians" or use
+ # Roman or ordinal numerals are few and far between, but it's
+ # worthwhile to catch them.
+ $book = preg_replace('/^(I|1st|First)\b/', '1', $book);
+ $book = preg_replace('/^(II|2nd|Second)\b/', '2', $book);
+ $book = preg_replace('/^(II|3rd|Third)\b/', '3', $book);
+ $book = preg_replace('/^(II|4th|Fourth)\b/', '4', $book);
+ $book = preg_replace('/\./', '', $book);
+ if ($this->debug) {
+ print "\n";
+ }
+ return $ref;
+ } else {
+ # It wasn't Scripture after all.
+ if ($this->debug) {
+ print "NOT SCRIPTURE -->\n";
+ }
+ return 0;
+ }
+ }
+
+ /**
+ * Is this a book composed of a single chapter? (i.e. Jude, 2 John)
+ *
+ * @param $book The name of a Bible book.
+ */
+ private function is_single_chapter($book) {
+ global $BIBLEBOOKS;
+ $book = $BIBLEBOOKS['BOOKS'][$book]; # The canonical book name
+ if ($BIBLEBOOKS['CHAPTERS'][$book] == 1) {
+ return 1;
+ }
+ }
+
+ /**
+ * Given a book and verse reference, is this a reference to verses
+ * without a chapter reference? (e.g. 9-10, not 5:9-10)
+ * (We already know that there was no actual book reference,
+ * only an inferred book -- since $matches[1] did not match above).
+ *
+ * @param $book The inferred Bible book.
+ * @param $verse The chapter-verse string
+ */
+ private function is_chapterless($book, $verse) {
+ if ($this->is_single_chapter($book)) {
+ return 0; # Because Chapter 1 will be inferred later
+ }
+ if (preg_match('/[:.]/', $verse, $matches)) {
+ return 0; # Then an explicit chapter is given here, e.g. 13:10-15
+ }
+ # Otherwise -- something like 15 or 10-15.
+ return 1;
+ }
+
+ /**
+ * Identify the chapter element of the reference
+ * for use in forward inferences.
+ * (This doesn't actually return the last chapter, but sets the
+ * $last_chapter for use in the future.)
+ *
+ * @param $book The book string.
+ * @param $verse The chapter-verse string.
+ */
+ function last_chapter($book, $verse) {
+ #
+ global $BIBLEBOOKS;
+ # Get the last chapter referred to
+ $book = $BIBLEBOOKS['BOOKS'][$book];
+ if ($BIBLEBOOKS['CHAPTERS'][$book] == 1) {
+ # Only one chapter in this book, so no chapter reference.
+ # We can quit already.
+ return 1;
+ }
+ # This regexp takes a string like 9:10-9:15, 9:10-15, etc.
+ # and picks out the chapter part.
+ if (preg_match('/(\d+)([:.]\d+)?(?:[-\x{2013}](\d+)([:.]\d+))?/u',
+ $verse, $matches)) {
+ $begin_chapter = '';
+ $begin_verse = '';
+ $end_chapverse = '';
+ $end_verse = '';
+ if (array_key_exists(1, $matches)) {
+ $begin_chapter = $matches[1];
+ }
+ if (array_key_exists(2, $matches)) {
+ $begin_verse = $matches[2];
+ }
+ if (array_key_exists(3, $matches)) {
+ $end_chapverse = $matches[3];
+ }
+ if (array_key_exists(4, $matches)) {
+ $end_verse = $matches[4];
+ }
+ if (! $end_chapverse or ! $end_verse) {
+ # Either 3:3 OR 3:3-5
+ return $begin_chapter;
+ } else { # 3:3-4:1
+ return $end_chapverse;
+ }
+ }
+ }
+}