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 compose(chain)    
    local function recurse(i, tbl)
      if i == #chain then return chain[i](tbl) end
      return recurse(i + 1, chain[i](tbl))
    end
    return function(tbl) return recurse(1, tbl) end
end

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

    local function renderVerse(verseName, verseNumber)
        local verse = expandTemplate(verseName)

        local function addVerseNumber(verse)
            return (string.gsub(verse, "^", "<sup>"..verseNumber.."</sup>&nbsp;"))
        end
        
        local process = {}
        if not  showPilcrow then 
            table.insert(process, removePilcrow) 
        end
        if showVerseNumber then 
            table.insert(process, addVerseNumber) 
        end

        return compose(process)(verse)
    end

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

    return table.concat(verses, " ")    
end



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

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

return p