模組:用戶:Cedric tsan cantonais/沙盒/bases

呢個模組嘅解說可以喺模組:用戶:Cedric tsan cantonais/沙盒/bases/doc度開

local b = {}
local locale = mw.language.new('yue')
local currentTitle = mw.title.getCurrentTitle()

-- Doit-on faire une élision devant ce mot ? 個詞前面有無元音省略現象？
-- NB: cas particuliers non pris en charge (p. ex. haricot)
function b.is_elidable(mot)
    mot = b.lcfirst(mot)
    if (mw.ustring.match( mot, "^h?[aáàâäeéèêëiíìîïoóòôöuúùûüǘǜ]" ) ~= nil) then
        return true
    else
        return false
    end
end

-- S’agit-il d’une locution ? 辭條係唔係俗語？
function b.is_locution(mot)
    if mot==nil then return nil end
    if (mw.ustring.find(mot, ". .") ~= nil) then
        return true
    else
        return false
    end
end

function b.page_existe(titre)
    if titre == nil then return nil end
    -- On crée un objet "mw.title" avec le titre de la page dont on cherche à vérifier l’existence
    return mw.title.new(titre).exists
end

-- Renvoie le texte avec la première lettre en majuscule (si le texte est en français) 首字母大寫（限法文）。
function b.ucfirst(texte)
    if (texte == nil) then return texte end
    return (mw.ustring.gsub(texte, "^([’ǂǃǀǁ]*.)", b.uc)) -- parenthèses nécessaires
end
-- Renvoie le texte avec la première lettre en minuscule (si le texte est en français) 首字母細寫（限法文）。
function b.lcfirst(texte)
    if (texte == nil) then return texte end
    return locale:lcfirst(texte)
end
-- Renvoie le texte en majuscule (si le texte est en français) 成句大寫（限法文）。
function b.uc(texte)
    if (texte == nil) then return texte end
    return locale:uc(texte)
end
-- Renvoie le texte en minuscule (si le texte est en français) 成句細寫（限法文）。
function b.lc(texte)
    if (texte == nil) then return texte end
    return locale:lc(texte)
end

-- Renvoie vrai si on est dans une page de contenu (principal, annexe, thésaurus)
function b.page_de_contenu()
    local ns = currentTitle.namespace
	return ns == 0 or ns == 100 or ns == 106 or ns == 110 -- 0 = normal, 100 = Annexe, 106 = Thésaurus, 110 = Reconstruction
end

-- Renvoie vrai si on est dans une page principale
function b.page_principale()
    return currentTitle:inNamespace(0)
end

-- Renvoie une catégorie bien formée
function b.fait_categorie(texte, clef, ecrite)
    local cat = ecrite and ':分類:' or '分類:'
    
    if (texte ~= nil) then
        if (clef ~= nil and clef ~= '') then
            return '[[' .. cat .. texte .. '|' .. clef .. ']]'
        else
            return '[[' .. cat .. texte .. ']]'
        end
    else
        return ''
    end
end

-- Renvoie une catégorie bien formée, si elle est dans un espace principal, d’annexe ou de thésaurus
function b.fait_categorie_contenu(texte, clef, ecrite)
    if b.page_de_contenu() then
        return b.fait_categorie(texte, clef, ecrite) or ''
    else
        return ''
    end
end

-- Renvoie une catégorie bien formée, si elle est dans un espace principal
function b.fait_categorie_principale(texte, clef, ecrite)
    if b.page_principale() then
        return b.fait_categorie(texte, clef, ecrite) or ''
    else
        return ''
    end
end

-- Crée l’entête d’un tableau wiki triable (avec les titres en paramètre)  維基表格開頭
function b.tableau_entete(titres)
    local entete = '{| class="wikitable sortable"\r\n'
    entete = entete .. '|-\r\n!' .. table.concat(titres, ' !! ')
    return entete
end

-- Crée une ligne du tableau wiki 維基表格行
function b.tableau_ligne(elements)
    local ligne = '|-\r\n|' .. table.concat(elements, ' || ')
    return ligne
end

-- Crée la fin d'un tableau 維基表格結尾
function b.tableau_fin()
    return "|}\r\n"
end

-- Texte en exposant
function b.exposant(txt)
    return '<sup style="font-size:83%;line-height:1">'..txt..'</sup>'
end

-- balise un texte écrit en langue étrangère 標示外文
function b.balise_langue(txt, code)
	return '<span lang="' .. code .. '" xml:lang="' .. code .. '" class="lang-' .. code .. '">' .. txt .. '</span>'
end

-- Enlève les espaces de part et d'autre de tous les paramètres fournis à arg
function b.trim_parametres(args)
    if args==nil then return nil end
    
    local trim_args = {}
    for k, v in pairs(args) do
        trim_args[k] = mw.text.trim(v)
    end
    return trim_args
end

-- lien
function b.lien_modele(mot, lang, ancre, dif)
	if dif and dif == '' then
		dif = nil
	end

	if mot == currentTitle.prefixedText then
		return b.balise_langue('[[' .. mot .. '|' .. (dif or mot) .. ']]', lang)
	else
		if ancre and ancre ~= '' then
			ancre = lang .. '-' .. ancre
		else
			ancre = lang
		end
		return b.balise_langue('[[' .. mot .. '#' .. ancre .. '|' .. (dif or mot) .. ']]', lang)
	end
end

return b