Module:BibleQuote

Documentation for this module may be created at Module:BibleQuote/doc

local p = {} --p stands for package

local function removePilcrow(verse)    
    return (string.gsub(verse, "¶", ""))
end

local function expandTemplate(title, ...)
    return mw.getCurrentFrame():expandTemplate{title = title};
end

local function renderVerse(verse, showPilcrow)
    return showPilcrow and verse or removePilcrow(verse)    
end

local function verses(verseSpec, showPilcrow)
    local _, _, book, chapter, startVerse, stopVerse = 
        string.find(verseSpec, "%s-(.+)%s+(%d+):(%d+)-(%d+)")
    local verses = {}

    if stopVerse == nil then
        return renderVerse(expandTemplate(verseSpec), showPilcrow)
    end
    
    for i = startVerse, stopVerse, 1 do
        table.insert(verses, renderVerse(expandTemplate(book.." "..chapter..":"..i), showPilcrow))        
    end

    return table.concat(verses, " ")    
end

local function addVerseNumber(verse, number)
    return (string.gsub(verse, "^", ""))
end

local function addChapterNumber(verse, number)
    return (string.gsub(verse, "^", ""))
end

function p.standard(frame)        
    return verses(frame.args[1], frame.args.showPilcrow or false)       
end

return p