Module:Alhatorah: Difference between revisions
Appearance
Content deleted Content added
Initial adaptation to alhatorah. Might be buggy |
No edit summary |
||
(21 intermediate revisions by the same user not shown) | |||
Line 4: | Line 4: | ||
--possible book inputs, based on Chicago Manual |
--possible book inputs, based on Chicago Manual |
||
local book_aliases = { |
local book_aliases = { |
||
['Bereshit'] = {'genesis', 'gen', 'gn'}, |
['Bereshit'] = {'breishit', 'genesis', 'gen', 'gn'}, |
||
['Shemot'] = {'exodus', 'exod', 'ex'}, |
['Shemot'] = {'exodus', 'exod', 'ex'}, |
||
['Vayikra'] = {'leviticus', 'lev', 'lv'}, |
['Vayikra'] = {'leviticus', 'lev', 'lv'}, |
||
['Bemidbar'] = {'numbers', 'num', 'nm'}, |
['Bemidbar'] = {'bamidbar', 'numbers', 'num', 'nm'}, |
||
['Devarim'] = {'deuteronomy', 'deut', 'dt'}, |
['Devarim'] = {'deuteronomy', 'deut', 'dt'}, |
||
['Yehoshua'] = {'joshua', 'josh' , 'jo'}, |
['Yehoshua'] = {'joshua', 'josh' , 'jo'}, |
||
['Shofetim'] = {'judges', 'judg', 'jgs'}, |
['Shofetim'] = {'shoftim', 'judges', 'judg', 'jgs'}, |
||
['Shemuel I'] = {' |
['Shemuel I'] = {'shemueli', 'shemuel1', 'shmueli', 'shmuel1', 'shmueli', '1shmuel', 'ishmuel', '1sam', '1sm', 'isamuel'}, |
||
['Shemuel II'] = {' |
['Shemuel II'] = {'shemuelii', 'shemuel2', 'shmuelii', 'shmuel2', 'shmuelii','2shmuel', 'iishmuel', '2sam', '2sm', 'iisamuel'}, |
||
['Melakhim I'] = {' |
['Melakhim I'] = {'melachim1', 'melachimi', 'melakhim1', 'melakhimi', '1kings', 'imelachim', '1kgs','ikings'}, |
||
['Melakhim II'] = {' |
['Melakhim II'] = {'melachim2', 'melachimii', 'melakhim2', 'melakhimii', '2kings', 'iimelachim', '2kgs','iikings'}, |
||
['Yeshayahu'] = {'isaiah', 'isa', 'is'}, |
['Yeshayahu'] = {'isaiah', 'isa', 'is'}, |
||
['Yirmeyahu'] = {'jeremiah', 'jer'}, |
['Yirmeyahu'] = {'yirmiyahu', 'jeremiah', 'jer'}, |
||
['Yechezkel'] = {'ezekiel', 'ezek', 'ez'}, |
['Yechezkel'] = {'ezekiel', 'ezek', 'ez'}, |
||
['Hoshea'] = {'hosea', 'hos'}, |
['Hoshea'] = {'hosea', 'hos'}, |
||
['Yoel'] = {'joel', 'jl'}, |
['Yoel'] = {'joel', 'jl'}, |
||
['Amos'] = {'amos', 'am'}, |
['Amos'] = {'amos', 'am'}, |
||
['Ovadyah'] = {'obadiah', 'obad', 'ob'}, |
['Ovadyah'] = {'ovadiah', 'obadiah', 'obad', 'ob'}, |
||
['Yonah'] = {'jonah', 'jon'}, |
['Yonah'] = {'jonah', 'jon'}, |
||
['Mikhah'] = {'micah', 'mic', 'mi'}, |
['Mikhah'] = {'michah', 'micah', 'mic', 'mi'}, |
||
['Nachum'] = {'nahum', 'nah', 'na'}, |
['Nachum'] = {'nahum', 'nah', 'na'}, |
||
['Chavakkuk'] = {'habakkuk', 'hab', 'hb'}, |
['Chavakkuk'] = {'habakkuk', 'hab', 'hb'}, |
||
['Zephanyah'] = {'zephaniah', 'zeph', 'zep'}, |
['Zephanyah'] = {'tzefaniah', 'zephaniah', 'zeph', 'zep'}, |
||
['Chaggai'] = {'haggai', 'hag', 'hg'}, |
['Chaggai'] = {'haggai', 'hag', 'hg'}, |
||
['Zekharyah'] = {'zechariah', 'zech', 'zec'}, |
['Zekharyah'] = {'zechariah', 'zech', 'zec'}, |
||
Line 33: | Line 33: | ||
['Mishlei'] = {'proverbs', 'prov', 'prv'}, |
['Mishlei'] = {'proverbs', 'prov', 'prv'}, |
||
['Kohelet'] = {'ecclesiastes', 'eccles', 'eccl', 'qoheleth'}, |
['Kohelet'] = {'ecclesiastes', 'eccles', 'eccl', 'qoheleth'}, |
||
['Shir HaShirim'] = {' |
['Shir HaShirim'] = {'shirhashirim', 'songofsolomon', 'songofsol', 'songofsongs', 'song', 'sg', 'canticles', 'canticleofcanticles'}, |
||
['Eikhah'] = {'lamentations', 'lam'}, |
['Eikhah'] = {'lamentations', 'lam'}, |
||
['Rut'] = {'ruth', 'ru'}, |
['Rut'] = {'ruth', 'ru'}, |
||
Line 39: | Line 39: | ||
['Iyyov'] = {'job', 'jb'}, |
['Iyyov'] = {'job', 'jb'}, |
||
['Daniel'] = {'daniel', 'dan', 'dn'}, |
['Daniel'] = {'daniel', 'dan', 'dn'}, |
||
['Divrei HaYamim I'] = {' |
['Divrei HaYamim I'] = {'divreihayamimi', 'divreihayamim1', 'ichronicles', '1chronicles', '1chron', '1chr'}, |
||
['Divrei HaYamim II'] = {' |
['Divrei HaYamim II'] = {'divreihayamimii', 'divreihayamim2', 'iichronicles', '2chronicles', '2chron', '2chr'}, |
||
['Ezra'] = {'ezra', 'ezr'}, |
['Ezra'] = {'ezra', 'ezr'}, |
||
['Nechemyah'] = {'nehemiah', 'neh'}, |
['Nechemyah'] = {'nechemiah', 'nehemiah', 'neh'}, |
||
} |
} |
||
Line 48: | Line 48: | ||
local no_chapters = { |
local no_chapters = { |
||
['obadiah'] = true, |
['obadiah'] = true, |
||
} |
|||
--changes to the version name to be used in urls, only if necessary |
|||
local site_version_tbl = { |
|||
mechon_mamre = { |
|||
he = 'p/pt/pt', |
|||
jps = 'e/et/et', |
|||
}, |
|||
} |
} |
||
Line 72: | Line 64: | ||
end |
end |
||
return false |
return false |
||
end |
|||
local function titlecase(arg) |
|||
-- http://grammar.yourdictionary.com/capitalization/rules-for-capitalization-in-titles.html |
|||
-- recommended by The U.S. Government Printing Office Style Manual: |
|||
-- 'Capitalize all words in titles of publications and documents, |
|||
-- except a, an, the, at, by, for, in, of, on, to, up, and, as, but, or, and nor.' |
|||
local alwayslower = { |
|||
['a'] = true, ['an'] = true, ['the'] = true, |
|||
['and'] = true, ['but'] = true, ['or'] = true, ['for'] = true, |
|||
['nor'] = true, ['on'] = true, ['in'] = true, ['at'] = true, ['to'] = true, |
|||
['from'] = true, ['by'] = true, ['of'] = true, ['up'] = true, |
|||
} |
|||
local words = mw.text.split(mw.text.trim(arg or ''), '_') |
|||
for i, s in ipairs(words) do |
|||
s = string.lower(s) |
|||
if i > 1 then |
|||
if not alwayslower[s] then |
|||
s = mw.getContentLanguage():ucfirst(s) |
|||
end |
|||
else |
|||
s = mw.getContentLanguage():ucfirst(s) |
|||
end |
|||
words[i] = s |
|||
end |
|||
return table.concat(words, '_') |
|||
end |
end |
||
Line 106: | Line 72: | ||
args[param] = trimArg(targs[param]) |
args[param] = trimArg(targs[param]) |
||
end |
end |
||
local default_version = 'nrsv' |
|||
local input_book = '' |
local input_book = '' |
||
local ref = '' |
local ref = '' |
||
Line 112: | Line 77: | ||
local text = '' |
local text = '' |
||
local mainspace = mw.title.getCurrentTitle():inNamespaces(0) |
local mainspace = mw.title.getCurrentTitle():inNamespaces(0) |
||
--analyze arguments |
|||
if args[1] == nil or args[2] == nil or tonumber(args[1]) ~= nil then |
if args[1] == nil or args[2] == nil or tonumber(args[1]) ~= nil then |
||
-- first argument is a numeric prefix and second is book name |
-- first argument is a numeric prefix and second is book name |
||
Line 128: | Line 95: | ||
text = ref |
text = ref |
||
end |
end |
||
text = text:gsub('-', '–') --change hyphens to en dashes (3:2-5 → 3:2–5) |
|||
--analyze book (for URL) |
|||
local book = input_book:gsub('%p', ''):gsub(' ', '_') |
local book = input_book:gsub('%p', ''):gsub(' ', '_') |
||
book_lower = mw.ustring.lower(book) |
|||
book_lower = book_lower:gsub('_', '') |
|||
local book_found = false |
local book_found = false |
||
local standard = book:gsub('_', '') |
|||
for full_book, aliases in pairs(book_aliases) do |
for full_book, aliases in pairs(book_aliases) do |
||
if |
if book_lower == mw.ustring.lower(full_book:gsub(' ', '_')) or valueExists(aliases, book_lower) then |
||
book = full_book |
book = full_book:gsub(' ', '_') |
||
book_found = true |
book_found = true |
||
break |
break |
||
Line 143: | Line 109: | ||
end |
end |
||
--analyze verse |
|||
local urlpat = 'https://mg.alhatorah.org/Dual/_commentary/_book/_schap._svers#m7e3n7' |
|||
local split_ref = mw.text.split(ref, '[-–—]') --split the ref into the part before and after the dash/hyphen |
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 s_ref = mw.text.split(split_ref[1], '%p') --any punctuation can be used to separate chapter from verse |
||
Line 151: | Line 116: | ||
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(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 |
for i, v in ipairs(e_ref) do e_ref[i] = v:gsub('%D', '') end |
||
local s_chap, s_vers |
|||
local e_chap, e_vers, s_chap, s_vers |
|||
local chapter_only = not s_ref[2] |
local chapter_only = not s_ref[2] |
||
if no_chapters[book] then |
if no_chapters[book] then |
||
Line 158: | Line 122: | ||
s_chap = 1 |
s_chap = 1 |
||
s_vers = s_ref[2] or s_ref[1] or 1 --verse 3 can be specified as "3" or "1:3" |
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 |
else |
||
s_chap = s_ref[1] or 1 |
s_chap = s_ref[1] or 1 |
||
s_vers = s_ref[2] 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 type(site_book_tbl[site]) == 'table' then |
|||
-- book = site_book_tbl[site][book] or book |
|||
-- end |
|||
book = titlecase(book) --title case looks better at oremus where they display the input |
|||
-- if site == 'mechon_mamre' then --special case handling for components of the url |
|||
-- if not tonumber(s_chap) then --non-numeric characters were omitted above so this may not be what was entered |
|||
-- error('Bibleverse error: start chapter should be a number', 0) |
|||
-- end |
|||
-- s_chap = string.format('%x', s_chap/10) .. (s_chap % 10) |
|||
-- end |
|||
-- if type(site_version_tbl[site]) == 'table' then |
|||
-- version = site_version_tbl[site][version] |
|||
-- end |
|||
local v_range |
|||
if chapter_only then |
|||
if e_chap == s_chap then |
|||
v_range = s_chap |
|||
else |
|||
v_range = s_chap .. '–' .. e_chap |
|||
end |
|||
else |
|||
if e_chap == s_chap and e_vers == s_vers then |
|||
v_range = s_chap ..':' .. s_vers |
|||
elseif e_chap == s_chap then |
|||
v_range = s_chap .. ':' .. s_vers .. '–' .. e_vers |
|||
else |
|||
v_range = s_chap .. ':' .. s_vers .. '–' .. e_chap .. ':' .. e_vers |
|||
end |
|||
end |
end |
||
--build URL |
|||
commentary = commentary:gsub(' ', '_') --must be outside URL command |
|||
local urlpat = 'https://mg.alhatorah.org/Dual/_commentary/_book/_schap._svers#m7e3n7' |
|||
local url = urlpat:gsub('_%l+', { --get the components into the url |
local url = urlpat:gsub('_%l+', { --get the components into the url |
||
_commentary = commentary, |
|||
_book = book, |
_book = book, |
||
_schap = s_chap, |
_schap = s_chap, |
||
_svers = s_vers, |
_svers = s_vers, |
||
_echap = e_chap, |
|||
_evers = e_vers, |
|||
_vrange = v_range, |
|||
_version = version, |
|||
}) |
}) |
||
--build text |
|||
text = text:gsub('-', '–') --change hyphens to en dashes (3:2-5 → 3:2–5) |
|||
text = commentary:gsub('_', ' ') .. ', ' .. text |
|||
local fulllink |
local fulllink |
||
fulllink = '[' .. url .. ' ' .. text .. ']' |
fulllink = '[' .. url .. ' ' .. text .. ']' |
||
Line 225: | Line 152: | ||
end |
end |
||
end |
end |
||
return fulllink .. table.concat(errors) |
return fulllink --.. table.concat(errors) |
||
end |
end |
||
Latest revision as of 19:06, 29 September 2022
-- This module implements Template:Alhatorah. Based on Template:Bibleverse
local p = {}
--possible book inputs, based on Chicago Manual
local book_aliases = {
['Bereshit'] = {'breishit', 'genesis', 'gen', 'gn'},
['Shemot'] = {'exodus', 'exod', 'ex'},
['Vayikra'] = {'leviticus', 'lev', 'lv'},
['Bemidbar'] = {'bamidbar', 'numbers', 'num', 'nm'},
['Devarim'] = {'deuteronomy', 'deut', 'dt'},
['Yehoshua'] = {'joshua', 'josh' , 'jo'},
['Shofetim'] = {'shoftim', 'judges', 'judg', 'jgs'},
['Shemuel I'] = {'shemueli', 'shemuel1', 'shmueli', 'shmuel1', 'shmueli', '1shmuel', 'ishmuel', '1sam', '1sm', 'isamuel'},
['Shemuel II'] = {'shemuelii', 'shemuel2', 'shmuelii', 'shmuel2', 'shmuelii','2shmuel', 'iishmuel', '2sam', '2sm', 'iisamuel'},
['Melakhim I'] = {'melachim1', 'melachimi', 'melakhim1', 'melakhimi', '1kings', 'imelachim', '1kgs','ikings'},
['Melakhim II'] = {'melachim2', 'melachimii', 'melakhim2', 'melakhimii', '2kings', 'iimelachim', '2kgs','iikings'},
['Yeshayahu'] = {'isaiah', 'isa', 'is'},
['Yirmeyahu'] = {'yirmiyahu', 'jeremiah', 'jer'},
['Yechezkel'] = {'ezekiel', 'ezek', 'ez'},
['Hoshea'] = {'hosea', 'hos'},
['Yoel'] = {'joel', 'jl'},
['Amos'] = {'amos', 'am'},
['Ovadyah'] = {'ovadiah', 'obadiah', 'obad', 'ob'},
['Yonah'] = {'jonah', 'jon'},
['Mikhah'] = {'michah', 'micah', 'mic', 'mi'},
['Nachum'] = {'nahum', 'nah', 'na'},
['Chavakkuk'] = {'habakkuk', 'hab', 'hb'},
['Zephanyah'] = {'tzefaniah', 'zephaniah', 'zeph', 'zep'},
['Chaggai'] = {'haggai', 'hag', 'hg'},
['Zekharyah'] = {'zechariah', 'zech', 'zec'},
['Malakhi'] = {'malachi', 'mal'},
['Tehillim'] = {'psalms', 'ps', 'pss', 'psalm'},
['Mishlei'] = {'proverbs', 'prov', 'prv'},
['Kohelet'] = {'ecclesiastes', 'eccles', 'eccl', 'qoheleth'},
['Shir HaShirim'] = {'shirhashirim', 'songofsolomon', 'songofsol', 'songofsongs', 'song', 'sg', 'canticles', 'canticleofcanticles'},
['Eikhah'] = {'lamentations', 'lam'},
['Rut'] = {'ruth', 'ru'},
['Esther'] = {'esther', 'est'},
['Iyyov'] = {'job', 'jb'},
['Daniel'] = {'daniel', 'dan', 'dn'},
['Divrei HaYamim I'] = {'divreihayamimi', 'divreihayamim1', 'ichronicles', '1chronicles', '1chron', '1chr'},
['Divrei HaYamim II'] = {'divreihayamimii', 'divreihayamim2', 'iichronicles', '2chronicles', '2chron', '2chr'},
['Ezra'] = {'ezra', 'ezr'},
['Nechemyah'] = {'nechemiah', 'nehemiah', 'neh'},
}
--these books only have one chapter, have to be handled differently
local no_chapters = {
['obadiah'] = true,
}
local function trimArg(text)
if type(text) == 'string' then
text = text:match('(%S.-)%s*$') --trimmed text or nil if empty
end
return text
end
local function valueExists(tbl, value)
for _, v in pairs(tbl) do
if value == v then
return true
end
end
return false
end
function p.main(frame)
local targs = frame:getParent().args
local args = {}
for _, param in ipairs({1, 2, 3, 4, 5, 'nobook'}) do
args[param] = trimArg(targs[param])
end
local input_book = ''
local ref = ''
local commentary = ''
local text = ''
local mainspace = mw.title.getCurrentTitle():inNamespaces(0)
--analyze arguments
if args[1] == nil or args[2] == nil or tonumber(args[1]) ~= nil then
-- first argument is a numeric prefix and second is book name
input_book = trimArg((args[1] or '') .. ' ' .. (args[2] or '')) or ''
ref = args[3] or ''
commentary = args[4] or ''
text = args[5] or trimArg((input_book .. ' ' .. ref))
else
-- first argument is the whole book name
input_book = args[1] or ''
ref = args[2] or ''
commentary = args[3] or ''
text = args[4] or (input_book .. ' ' .. ref)
end
if args.nobook == 'yes' then
text = ref
end
--analyze book (for URL)
local book = input_book:gsub('%p', ''):gsub(' ', '_')
book_lower = mw.ustring.lower(book)
book_lower = book_lower:gsub('_', '')
local book_found = false
for full_book, aliases in pairs(book_aliases) do
if book_lower == mw.ustring.lower(full_book:gsub(' ', '_')) or valueExists(aliases, book_lower) then
book = full_book:gsub(' ', '_')
book_found = true
break
end
end
--analyze verse
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 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"
else
s_chap = s_ref[1] or 1
s_vers = s_ref[2] or 1
end
--build URL
commentary = commentary:gsub(' ', '_') --must be outside URL command
local urlpat = 'https://mg.alhatorah.org/Dual/_commentary/_book/_schap._svers#m7e3n7'
local url = urlpat:gsub('_%l+', { --get the components into the url
_commentary = commentary,
_book = book,
_schap = s_chap,
_svers = s_vers,
})
--build text
text = text:gsub('-', '–') --change hyphens to en dashes (3:2-5 → 3:2–5)
text = commentary:gsub('_', ' ') .. ', ' .. text
local fulllink
fulllink = '[' .. url .. ' ' .. text .. ']'
if mainspace then
if not book_found then
table.insert(errors, '<span style="color:red">Template:Bibleverse with invalid book</span>[[Category:Pages with Bible book errors]]')
end
if version_num then
table.insert(errors, '[[Category:Pages with numeric Bible version references]]')
end
end
return fulllink --.. table.concat(errors)
end
return p