Modulo:Interprogetto

--Modulo per implementare le funzionalità di template:Interprogetto
local p = {} -- per l'esportazione delle funzioni del modulo

local HtmlBuilder = require('Module:HtmlBuilder') -- richiesto per la costruzione del markup html

local args -- variabile che contiene gli argomenti passati al template
local root -- radice del markup html
local log= '' -- per debug

--Tabella di corrispondenza tra valore e file da richiamare
local prefix_links ={
    wikisource =     {10, 's:', 'Wikisource', false, 'Wikisource-logo.svg', '18px', 'Collabora a Wikisource', ' contiene ', 'opere originali ', 'di o su'},
    testo =          {20, 's:', 'Testo completo', false, 'Wikisource-logo.svg', '18px', 'Collabora a Wikisource', ' contiene ', 'opere originali ', 'di o su'}, -- da verificare parametri
    wikiquote =      {30, 'q:', 'Wikiquote', false },
    wikibooks =      {40, 'wikibooks:', 'Wikibooks', false },
    ricetta =        {50, 'b:Libro di cucina/Ricette/', 'Ricetta<br />(Wikibooks)', false },
    wiktionary =     {60, 'wiktionary:', 'Wikizionario', false},
    v =              {70, 'v:', 'Wikiversità', false},
    wikinews =       {80, 'wikinews:', 'Wikinotizie', false},
    commons =        {90, 'commons:', 'Commons', 'it'},
    meta =           {100, 'meta:', 'Meta-Wiki', 'it'},
    wikispecies =    {110, 'wikispecies:', 'Wikispecies', 'it'},
    incubator =      {120, 'incubator:', 'Incubator', 'it'},
    voy =            {130, 'voy:', 'Wikivoyage', false}
}

-- nota oldwikisource rimosso, stando a http://toolserver.org/~kolossos/templatetiger/template-parameter.php?template=interprogetto&lang=itwiki non usato

local alias = {
    s = {1, 'wikisource'},
    q = {1, 'wikiquote'},
    b = {1, 'wikibooks'},
    wikt = {1, 'wiktionary'},
    m = {1, 'meta'},
    n = {1, 'wikinotizie'}
}

--TODO collegamenti che usano Interprogetto/CollegamentoUseLang

local function sort_by_priority(t1, t2)
    if t1[1] < t2[1] then
        return true
    end
end

function return_left_link(nome_voce, priority_fix, parametri)
    priority, prefix, label, lang = unpack(parametri)
    priority = priority + priority_fix
    if lang then
        return '* [' .. frame:extensionTag('fullurl', prefix .. nome_voce, {})
    else
        return '* [[' .. prefix .. nome_voce .. '|' .. label .. ']]'
    end
end

local function RenderLeftBar()
    -- Crea la barra di sinistra con i link interprogetto
    if args.notizia then return end
    -- costruisce le righe per la barra di sinistra
    local left_rows = { }

    for k, nome_voce in pairs(args) do
        -- Se k è un alias lo sostituisco con la chiave corrispondente
        local priority_fix = 0
        if alias[k] then
            priority_fix = alias[k][1]
            k = alias[k]
        end

        if prefix_links[k] then
            table.insert(left_rows, return_left_link(nome_voce, priority_fix, prefix_links[k]))
        end
    end
    table.sort(left_rows, sort_by_priority)
    local leftbar = HtmlBuilder.create()
    for k, row in pairs(left_rows) do
        leftbar.wikitext(row[2])
        leftbar.newline()
    end
    --  Apertura del tag div id="interProject" (vedi [[Mediawiki:Monobook.js]] o [[Mediawiki:Vector.js]])
    root
        .tag('div')
        .attr('id', 'interProject')
        .cssText('display: none; clear: both; border-top: 2px dotted #AAAAAA; margin-top: 2em')
            .tag('div')
            .attr('title', 'Collegamenti verso gli altri progetti Wikimedia')
            .node(leftbar)

end

local function RenderLinkInText()
    if args.nolink then return end
end

local function _interprogetto()
    --radice del markup ritornato
    root = HtmlBuilder.create()
    RenderLeftBar()
    RenderLinkInText()
    return  tostring(root)
end

function p.interprogetto(frame)
    local origArgs
    -- Se chiamata mediante  #invoke, usa gli argomenti passati al template invocante.
    -- Altrimenti a scopo di test assume che gli argomenti siano passati direttamente
    if frame == mw.getCurrentFrame() then
        origArgs = frame:getParent().args
    else
        origArgs = frame
    end

    -- Carico i parametri
    args = {}
    current_page = mw.title.getCurrentTitle().text
    for k, v in pairs(origArgs) do
        -- controlla se è un parametro posizionale e in questo caso la memorizza come
        -- chiave con valore pari al nome della pagina corrente
        local kn = tonumber(k)
        if kn then
            args[v] = current_page
        else
            args[k]=v
        end
    end
    return _interprogetto()
end

return p