Módulo:Navbar

local p = {} local cfg = mw.loadData('Módulo:Navbar/configuração')

local function get_title_arg(is_collapsible, template)

   local title_arg = 1
   if is_collapsible then title_arg = 2 end
   if template then title_arg = 'template' end
   return title_arg

end

local function choose_links(template, args)

   -- O código aqui voltou a ser 100% igual ao inglês
   local show = {true, true, true, false, false, false}
   if template then
       show[2] = false
       show[3] = false
       local index = {t = 2, d = 2, e = 3, h = 4, m = 5, w = 6,
           talk = 2, edit = 3, hist = 4, move = 5, watch = 6}
       for _, v in ipairs(require ('Módulo:TableTools').compressSparseArray(args)) do
           local num = index[v]
           if num then show[num] = true end
       end
   end

   local remove_edit_link = args.noedit
   if remove_edit_link then show[3] = false end
   
   return show

end

local function add_link(link_description, ul, is_mini, font_style)

   local l
   if link_description.url then
       l = {'[', , ']'}
   else
       l = {'', ''}
   end
   ul:tag('li')
       :addClass('nv-' .. link_description.full)
       :wikitext(l[1] .. link_description.link .. l[2])
       :tag(is_mini and 'abbr' or 'span')
           :attr('title', link_description.html_title)
           :cssText(font_style)
           :wikitext(is_mini and link_description.mini or link_description.full)
           :done()
       :wikitext(l[3])
       :done()

end

local function make_list(title_text, has_brackets, displayed_links, is_mini, font_style)

   local title = mw.title.new(mw.text.trim(title_text), cfg.title_namespace)
   if not title then
       error(cfg.invalid_title .. title_text)
   end
   local talkpage = title.talkPageTitle and title.talkPageTitle.fullText or 
   
   -- SAÍDAS TRADUZIDAS: O usuário vê em PT-BR, mas a estrutura usa as chaves originais
   local link_descriptions = {
       { ['mini'] = 'v', ['full'] = 'ver', ['html_title'] = 'Ver esta predefinição',
           ['link'] = title.fullText, ['url'] = false },
       { ['mini'] = 'd', ['full'] = 'discutir', ['html_title'] = 'Discutir esta predefinição',
           ['link'] = talkpage, ['url'] = false },
       { ['mini'] = 'e', ['full'] = 'editar', ['html_title'] = 'Editar esta predefinição',
           ['link'] = 'Especial:EditPage/' .. title.fullText, ['url'] = false },
       { ['mini'] = 'h', ['full'] = 'histórico', ['html_title'] = 'Histórico desta predefinição',
           ['link'] = 'Especial:PageHistory/' .. title.fullText, ['url'] = false },
       { ['mini'] = 'm', ['full'] = 'mover', ['html_title'] = 'Mover esta predefinição',
           ['link'] = mw.title.new('Especial:Mover_página'):fullUrl('target='..title.fullText), ['url'] = true },
       { ['mini'] = 'w', ['full'] = 'vigiar', ['html_title'] = 'Vigiar esta predefinição', 
           ['link'] = title:fullUrl('action=watch'), ['url'] = true }
   }

   local ul = mw.html.create('ul')
   if has_brackets then
       ul:addClass(cfg.classes.brackets)
           :cssText(font_style)
   end
   
   for i, _ in ipairs(displayed_links) do
       if displayed_links[i] then add_link(link_descriptions[i], ul, is_mini, font_style) end
   end
   return ul:done()

end

function p._navbar(args)

   local font_style = args.fontstyle
   local font_color = args.fontcolor
   local is_collapsible = args.collapsible
   local is_mini = args.mini
   local is_plain = args.plain
   
   local collapsible_class = nil
   if is_collapsible then
       collapsible_class = cfg.classes.collapsible
       if not is_plain then is_mini = 1 end
       if font_color then
           font_style = (font_style or ) .. '; color: ' .. font_color .. ';'
       end
   end
   
   local navbar_style = args.style
   local div = mw.html.create():tag('div')
   div
       :addClass(cfg.classes.navbar)
       :addClass(cfg.classes.plainlinks)
       :addClass(cfg.classes.horizontal_list)
       :addClass(collapsible_class)
       :cssText(navbar_style)

   if is_mini then div:addClass(cfg.classes.mini) end

   local box_text = (args.text or cfg.box_text) .. ' '
   if not (is_mini or is_plain) then
       div
           :tag('span')
               :addClass(cfg.classes.box_text)
               :cssText(font_style)
               :wikitext(box_text)
   end
   
   local template = args.template
   local displayed_links = choose_links(template, args)
   local has_brackets = args.brackets
   local title_arg = get_title_arg(is_collapsible, template)
   local title_text = args[title_arg] or (':' .. mw.getCurrentFrame():getParent():getTitle())
   local list = make_list(title_text, has_brackets, displayed_links, is_mini, font_style)
   div:node(list)

   if is_collapsible then
       local title_text_class
       if is_mini then
           title_text_class = cfg.classes.collapsible_title_mini
       else
           title_text_class = cfg.classes.collapsible_title_full
       end
       div:done()
           :tag('div')
           :addClass(title_text_class)
           :cssText(font_style)
           :wikitext(args[1])
   end
   
   local frame = mw.getCurrentFrame()
   return frame:extensionTag{
       name = 'templatestyles', args = { src = cfg.hlist_templatestyles }
   } .. frame:extensionTag{
       name = 'templatestyles', args = { src = cfg.templatestyles }
   } .. tostring(div:done())

end

-- PORTA DE ENTRADA / ADAPTAÇÃO DE PARÂMETROS function p.navbar(frame)

   local origArgs = require('Módulo:Arguments').getArgs(frame)
   local translatedArgs = {}

   -- Mapeia os parâmetros em português para o que o código em inglês espera
   for k, v in pairs(origArgs) do
       if k == 'fonteestilo' then translatedArgs['fontstyle'] = v
       elseif k == 'fontecor' then translatedArgs['fontcolor'] = v
       elseif k == 'flexível' or k == 'recolhível' then translatedArgs['collapsible'] = v
       elseif k == 'pequeno' then translatedArgs['mini'] = v
       elseif k == 'simples' then translatedArgs['plain'] = v
       elseif k == 'estilo' then translatedArgs['style'] = v
       elseif k == 'texto' then translatedArgs['text'] = v
       elseif k == 'predefinição' then translatedArgs['template'] = v
       elseif k == 'parênteses retos' or k == 'colchetes' then translatedArgs['brackets'] = v
       elseif k == 'nãoeditar' or k == 'semeditar' then translatedArgs['noedit'] = v
       else
           -- Mantém os parâmetros originais em inglês (caso alguém use) e os numéricos (1, 2, etc.)
           translatedArgs[k] = v
       end
   end

   -- Tratamento especial para os atalhos de links passados dentro da tabela (ex: {{#invoke:Navbar|navbar}})
   -- Traduz os atalhos em português ("discutir", "histórico", "vi") para as letras que o choose_links espera.
   for i, val in ipairs(translatedArgs) do
       if val == 'discutir' or val == 'discussão' or val == 'd' then translatedArgs[i] = 'talk'
       elseif val == 'editar' then translatedArgs[i] = 'edit'
       elseif val == 'histórico' or val == 'hist' then translatedArgs[i] = 'hist'
       elseif val == 'mover' then translatedArgs[i] = 'move'
       elseif val == 'vigiar' or val == 'vi' then translatedArgs[i] = 'watch'
       elseif val == 'ver' then translatedArgs[i] = 'view' -- Caso usem "ver" explicitamente
       end
   end

   return p._navbar(translatedArgs)

end

return p