Jump to content

Module:Mormonverse

From Wikipedia, the free encyclopedia

local getArgs = require('Module:Arguments').getArgs
local p = {}

--possible book inputs
--(spaces, caps, and punctuation are stripped beforehand)
local book_aliases = {
	['1 Nephi'] = {'1nephi', '1ne', '1nep'},
	['2 Nephi'] = {'2nephi', '2ne', '2nep'},
	['3 Nephi'] = {'3nephi', '3ne', '3nep'},
	['4 Nephi'] = {'4nephi', '4ne', '4nep'},
	['Words of Mormon'] = {'wordsofmormon', 'wofm', 'wom'},
	['Jacob']   = {'jac'},
	['Enos']    = {'en'},
	['Jarom']   = {'jar'},
	['Omni']    = {'om'},
--	['Mosiah']  = {},
	['Alma']    = {'al'},
	['Helaman'] = {'hel', 'helam'},
	['Mormon']  = {'morm'},
	['Ether']   = {'eth'},
	['Moroni']  = {'moro'},
	['Doctrine and Covenants'] = {'doctrineandcovenants', 'd&c', 'dc'},
--	['Moses'] = {},
	['Abraham'] = {'abr'},
	['Joseph Smith–History'] = {'josephsmithhistory', 'jsh'},
	['Joseph Smith–Matthew'] = {'josephsmithmatthew', 'jsm'},
	['Articles of Faith'] = {'articlesoffaith', 'articleoffaith', 'aoff', 'aof'},
	['Official Declaration 1'] = {'officialdeclaration1', 'od1'},
	['Official Declaration 2'] = {'officialdeclaration2', 'od2'},
}

--these books only have one chapter, have to be handled differently
local no_chapters = {
	['Enos'] = true,
	['Jarom'] = true,
	['Omni'] = true,
	['Words of Mormon'] = true,
	['4 Nephi'] = true,
	['Joseph Smith–History'] = true,
	['Joseph Smith–Matthew'] = true,
	['Articles of Faith'] = true,
}

--pattern for the url of each site using _book etc.
-- (underscore then letters [a-z]) for variables
local url_path_tbl = {
	lds_org = 'https://www.churchofjesuschrist.org/study/scriptures/_book/_schap?lang=eng&id=_vrange#p_svers',
	coc_net = 'http://www.communityofchrist.net/Scriptures/'
}

--changes book name to use in url for each site, only if necessary
local site_book_tbl = {
	lds_org = {
		['1 Nephi']         = 'bofm/1-ne',
		['2 Nephi']         = 'bofm/2-ne',
		['Jacob']           = 'bofm/jacob',
		['Enos']            = 'bofm/enos',
		['Jarom']           = 'bofm/jarom',
		['Omni']            = 'bofm/omni',
		['Words of Mormon'] = 'bofm/w-of-m',
		['Mosiah']          = 'bofm/mosiah',
		['Alma']            = 'bofm/alma',
		['Helaman']         = 'bofm/hel',
		['3 Nephi']         = 'bofm/3-ne',
		['4 Nephi']         = 'bofm/4-ne',
		['Mormon']          = 'bofm/morm',
		['Ether']           = 'bofm/ether',
		['Moroni']          = 'bofm/moro',
		['Doctrine and Covenants'] = 'dc-testament/dc',
		['Moses']                = 'pgp/moses',
		['Abraham']              = 'pgp/abr',
		['Joseph Smith–Matthew'] = 'pgp/js-m',
		['Joseph Smith–History'] = 'pgp/js-h',
		['Articles of Faith']    = 'pgp/a-of-f',
		['Official Declaration 1'] = 'od/1',
		['Official Declaration 2'] = 'od/2',
	}
}

local function lookupTableReplace(arg, lookupTable)
	local abbrTitle = string.lower(arg)
	local fullTitle = arg
	for k, v in pairs(lookupTable) do
		if type(v) == "table" then
			for i = 1, #v do
				if v[i] == abbrTitle then
					fullTitle = k
					break --this is optional
				end
			end
		end
	end
	return fullTitle
end

local function processBookName(arg)
	arg = arg:gsub('[-–— .]', '') -- removing dashes, spaces, periods
	arg = lookupTableReplace(arg, book_aliases)
	arg = arg:gsub("^%l", string.upper) -- capitalize first letter
	return arg
end

local function prepareURL(book, ref, site)
	local split_ref = mw.text.split(ref, '[-–—]')   --split the ref into the part before and after the dash/hyphen
	local s_ref = mw.text.split(split_ref[1], '%p') --any punctuation can be used to separate chapter from verse
	local e_ref = split_ref[2] or split_ref[1]
	e_ref = mw.text.split(e_ref, '%p')
	for i, v in ipairs(s_ref) do s_ref[i] = v:gsub('%D', '') end  --remove any non-numeric character (such as f)
	for i, v in ipairs(e_ref) do e_ref[i] = v:gsub('%D', '') end

	local e_chap, e_vers, s_chap, s_vers
	local chapter_only = not s_ref[2]
	if no_chapters[book] then
		chapter_only = false
		s_chap = 1
		s_vers = s_ref[2] or s_ref[1] or 1   --verse 3 can be specified as "3" or "1:3"
		e_chap = 1
		e_vers = e_ref[2] or e_ref[1] or 1
	else
		s_chap = s_ref[1] or 1
		s_vers = s_ref[2] or 1
		if e_ref[2] or not s_ref[2] then     --chapter-chapter or chapter(:verse)?-chapter:verse
			e_chap = e_ref[1] or s_chap
		else                                 --chapter:verse-verse
			e_chap = s_chap
		end
		e_vers = e_ref[2] or e_ref[1] or s_vers
	end

	if site == 'lds_org' then
		book = site_book_tbl[site][book] or book
	end

	local v_range
	if e_chap == s_chap and e_vers == s_vers then
		v_range = s_vers
	else
		v_range = s_vers .. '-' .. e_vers
	end

	local url_path = url_path_tbl[site]
	--get the components into the url
	local url = url_path:gsub('_%l+', {
									_book    = book,
									_schap   = s_chap,
									_svers   = s_vers,
									_echap   = e_chap,
									_evers   = e_vers,
									_vrange  = v_range,
									_version = version,
							})
		
	-- cut off verse details
	if (site == 'lds_org' and chapter_only == true) then
		local tmp = mw.text.split(url, '&')
		url = tmp[1]
	end
	return url
end

local wikipedia_pages_verbatim = {
	['Words of Mormon'] = true,
	['Doctrine and Covenants'] = true,
	['Joseph Smith–Matthew'] = true,
	['Joseph Smith–History'] = true,
}

local wikipedia_pages_other = {
	['1 Nephi'] = 'First Nephi',
	['2 Nephi'] = 'Second Nephi',
	['3 Nephi'] = 'Third Nephi',
	['4 Nephi'] = 'Fourth Nephi',
	['Mormon'] = 'Book of Mormon (Mormon\'s record)',
	['Articles of Faith'] = 'Articles of Faith (Latter Day Saints)',
}

local function wikipediaLink(book)
	if (wikipedia_pages_verbatim[book]) then
		return '[[' .. book .. ']]'
	end
	if (wikipedia_pages_other[book]) then
		return '[[' .. wikipedia_pages_other[book] .. '|' .. book .. ']]'
	end
	return '[[Book of ' .. book .. '|' .. book .. ']]'
end

local function refLinkText(ref)
	if (ref:match("^%a")) then -- if begins with letter
		return processBookName(ref)
	end
	return ref:gsub('[-–—]', '–')
end

function p.main(frame)
	local args = getArgs(frame)

	local book = args[1]
	local ref = args[2]
	local version = 'lds_org' -- args[3] or 'lds_org'
		
	book = processBookName(book)
	local url = prepareURL(book, ref, version)

	return wikipediaLink(book)
			.. ' [' .. url .. ' ' .. refLinkText(ref) .. ']'
end

return p