Module:Languages

local p = {}

local HtmlBuilder = require("Module:HtmlBuilder") local getArgs = require("Module:Arguments").getArgs local headers = mw.loadData('Module:Languages/headers')

function p.languages(frame)

   local args = getArgs(frame, {inherited = true})
   return p._languages(frame, args)

end

local function getLangText(frame, title, lang)

   title = title .. "/" .. lang
   local parsedLang = mw.language.fetchLanguageName(lang)
   local bdi = HtmlBuilder.create("bdi")
       :attr("lang", lang)
       :wikitext("", parsedLang, "")
   return frame:preprocess("")

end

function p._languages(frame, args)

   local titleObj = mw.title.getCurrentTitle()
   local fullTitle = titleObj.text
   local title = args[1] or titleObj.nsText .. ":" .. titleObj.baseText
   local titleLang = titleObj.subpageText
   if titleLang == fullTitle then
       titleLang = "en"
   end
   local header = headers[titleLang]
   if not header then
       title = fullTitle
       titleLang = "en"
   end
   local text = "English"
   local translated = false
   for lang, _ in pairs(headers) do
       if lang ~= "en" then
           local langText = getLangText(frame, title, lang)
           if langText ~= "" then
               text = text ..langText
               translated = true
           end
       end
   end
   local nmbox = frame:expandTemplate{
       title = "nmbox",
       args = {
           image = "",
           header = header,
           text = text
       }
   }
   local categories = ""
   if not translated then
       categories = categories .. ""
   end
   return nmbox .. categories

end

return p