Module:exemples

local m_params = require("Module:paramètres")
local m_bases = require("Module:bases")
local m_langs = require("Module:langues")
local m_unicode = require("Module:données Unicode")

local p = {}

--- Formats an example.
--- @param text string The quoted text.
--- @param transcription string The text’s transcription if it uses another script than Latin or is uses an archaic orthography.
--- @param meaning string The translation in French.
--- @param source string The quote’s source (without {{source}} template).
--- @param link string The link to the source (requires source parameter).
--- @param heading string The characters to add before the translation (usually #*).
--- @param lang string The quote’s language code.
--- @param scriptLang string The language code for the script.
--- @param frame table The frame object for expanding templates.
--- @return string The wikicode.
local function _formatExample(text, transcription, meaning, source, link, heading, lang, scriptLang, disableTranslation, frame)
  if not text then
    return mw.ustring.format(
        ] manquant.'' <span class="plainlinks stubedit">()</span><!--
        --><bdi lang="%s" style="display: none"><!-- Balise de marquage pour le gadget ], ne pas retirer ! --></bdi></span>]=],
        mw.title.getCurrentTitle():fullUrl({ action = "edit" }), lang
    ) .. m_bases.fait_categorie_contenu(mw.ustring.format("Wiktionnaire:Exemples manquants en %s", m_langs.get_nom(lang)))
  end

  local italics = m_unicode.shouldItalicize(text) and "''" or ""
  local quoteTagOpen = link and mw.ustring.format('<q cite="%s">', mw.ustring.gsub(link, '"', '%%22')) or '<q>'
  text = m_unicode.setWritingDirection(text)
  -- Insert spaces if text starts or ends with “'” to correctly format the text
  if italics then
    if mw.ustring.sub(text, 1, 1) == "'" then
      text = " " .. text
    end
    if mw.ustring.sub(text, -1) == "'" then
      text = text .. " "
    end
  end
  local wikicode = quoteTagOpen .. m_bases.balise_langue(italics .. text .. italics, scriptLang) .. '</q>'

  if source then
    wikicode = wikicode .. " " .. frame:expandTemplate { title = "source", args = { source, lien = link } }
  end

  wikicode = mw.ustring.format('<span class="example">%s</span>', wikicode)

  if transcription then
    wikicode = wikicode .. "<br>" .. m_bases.balise_langue("''" .. transcription .. "''", scriptLang .. "-Latn")
  end

  if disableTranslation then
    wikicode = wikicode .. m_bases.fait_categorie_contenu(
        mw.ustring.format("Exemples en %s avec traduction désactivée", m_langs.get_nom(lang)))
  else
    local translation
    if meaning then
      translation = meaning
    elseif lang ~= "fr" then
      translation = "''La traduction en français de l’] manque.'' "
      translation = translation .. mw.ustring.format("<span class=\"plainlinks stubedit\">()</span>", mw.site.server, mw.title.getCurrentTitle():localUrl("action=edit"))
      translation = translation .. mw.ustring.format("]", m_langs.get_nom(lang))
    end
    if translation then
      wikicode = wikicode .. mw.ustring.format("\n%s: ", heading) .. translation
    end
  end

  return wikicode .. m_bases.fait_categorie_contenu("Exemples en " .. m_langs.get_nom(lang))
end

--- Formats an example. Function to call from templates.
--- Throws an error if the language is missing or undefined.
--- Parameters:
---  parent frame.args (string): The quoted text.
---  parent frame.args/frame.args (string): The translation in French.
---  parent frame.args/frame.args (string): The text’s transcription if it uses another script than Latin.
---  parent frame.args (string): The quote’s source (without {{source}} template).
---  parent frame.args (string): The link to the source.
---  parent frame.args (string): The characters to add before the translation (usually #*).
---  parent frame.args (string): The quote’s language code.
--- @return string The wikicode.
function p.formatExample(frame)
  local parentFrame = frame:getParent()
  local args, success = m_params.process(parentFrame.args, {
     = {},
     = {},
     = { alias_of = "sens" },
     = {},
     = { alias_of = "tr" },
     = {},
     = {},
     = { default = "#*" },
     = { required = true, checker = function(lang)
      return m_langs.specialCodes ~= nil or m_langs.get_nom(lang) ~= nil
    end },
     = { type = m_params.BOOLEAN, default = false }
  }, true)

  if success then
    local scriptLang = args
    local lang = m_langs.specialCodes] or args

    return _formatExample(args, args, args, args, args, args, lang, scriptLang, args, parentFrame)
  else
    if (args == m_params.MISSING_PARAM or args == m_params.EMPTY_PARAM) and args == "lang" then
      return "<span style='color: red; font-weight: bold;'>Langue de l’exemple manquante !</span>]"
    end
    error(args)
  end
end

return p