View source for Module:Cite

require("strict")

local cfg = mw.loadData("Module:Cite/config")

--[[--------------------------< S U B S T I T U T E >---------------------------
  Substitutes $1, $2, etc. in <message> with data from <data_t>. Returns plain
  text substituted string when <data_t> is not nil, else returns <message>.
]]
local function substitute(message, data_t)
  return data_t and mw.message.newRawMessage(message, data_t):plain() or message
end

--[[---------------------< M A K E _ E R R O R _ M S G >------------------------
  Assembles an error message from module name, message text, help link, and
  error category.
]]
local function make_error_msg(frame, msg)
  -- Get the module name for prefix and help-link label.
  local module_name = frame:getTitle()
  -- Used for categorization.
  local namespace = mw.title.getCurrentTitle().namespace
  local category_link = (0 == namespace) and substitute(
    "[[Category:$1]]", {cfg.settings_t.err_category}
  ) or ""
  return substitute(
    '<span style="color: #d33;">Error: &lbrace;{[[$1|#invoke:$2]]}&rbrace;: ' ..
    '$3 ([[:$4|$5]])</span>$6',
    {
      module_name,                      -- Module name with namespace.
      module_name:gsub("Module:", ""),  -- Module name without namespace.
      msg,                              -- Error message.
      cfg.settings_t.help_text_link,    -- Help wikilink to text at help page.
      cfg.settings_t.help,              -- Help wikilink display text.
      category_link  -- Link to error category (for main namespace errors only).
    }
  )
end

--[[-------------------------------< C I T E >----------------------------------
  Function to call Module:Citation/CS1/sandbox with appropriate parameters. For
  use when an article exceeds the post-expand include size limit.
      {{#invoke:Cite|book|title=Title}}
]]
local function cite(frame, template)
  local args_t = require("Module:Arguments").getArgs(frame, {frameOnly = true})
  template = template:lower()  -- Lowercase for table indexes.
  if not cfg.known_templates_t[template] then  -- Do we recognize this template?
    return make_error_msg(frame, substitute(
      cfg.settings_t.unknown_name, {template}
    ))  -- Nope, abandon with error message.
  end

  local config_t = {
    -- Set CitationClass value.
    ["CitationClass"] = cfg.citation_classes_t[template] or template
  }
  -- Go render the citation.
  return require("Module:Citation/CS1")._citation(nil, args_t, config_t)
end

--[[----------------------------< E X P O R T S >-----------------------------]]
return setmetatable(
  {},
  {
    -- This anonymous function called as function(TABLE, KEY) returns an empty
    -- TABLE whose metatable has __index set so for any given KEY it returns:
    __index = function(_, template)
      return function(frame)
        return cite(frame, template)
      end  -- Which then returns a function that calls cite() with the KEY name.
    end
  }
)