Module:Documentation

--Ce module implemente le modèle Modèle:Méta documentation de modèle.

local p = {}

function p.corps(frame)

   args = frame:getParent().args
   local page = mw.title.getCurrentTitle()
   doc = p.docname(page)
   local corps = {}

   --Bandeau pour les sous-pages /Bac à sable
   if page.subpageText == 'Bac à sable' then

table.insert(corps, '

')

       table.insert(corps, frame:preprocess('Modèle:Sous-page de bac à sable'))
   end

   --Génération de la documentation
   table.insert(corps, frame:preprocess(p.entete(frame, args, page)))
   table.insert(corps, p.contenu(frame, args, page))
   table.insert(corps, frame:preprocess(p.notice(frame, args, page)))

   --Code HTML brut
   if args.raw then
       return frame:preprocess('' .. table.concat(corps) .. '')
   end

   return table.concat(corps)

end

function p.ifexist(page)

   if not page then return false end
   if mw.title.new(page).exists then return true end
   return false

end

function p.docname(page)

   --On n'est pas dans une sous-page
   if not page.isSubpage then return page.subjectNsText .. ":" .. page.text .. "/Documentation" end

   --On est dans une sous-page
   if page.subpageText == 'Documentation'
   or page.subpageText == 'Bac à sable'
   or page.subpageText == 'Test' then
       return page.subjectNsText .. ":" .. page.baseText .. "/Documentation"
   else
       return page.subjectNsText .. ":" .. page.text .. "/Documentation"
   end

end

function p.entete(page)

local entete = {'

') table.insert(entete, '

')

   table.insert(entete, '')
   table.insert(entete, ' ')

   if args.titre then table.insert(entete, args.titre)
   else table.insert(entete, 'Documentation') end
   table.insert(entete, '')

   if not args.contenu then
       table.insert(entete, '

       if args[1] and p.ifexist(args[1]) or p.ifexist(doc) then
           table.insert(entete, arg:fullUrl('action=edit') .. ' modifier]')
           table.insert(entete, '] [[')
           table.insert(entete, page:fullUrl('action=purge') .. ' purger]')
       else
           table.insert(entete, arg:fullUrl({["action"]="edit", ["preload"]="Modèle:Documentation/Preload"}))
           table.insert(entete, ' créer]')
       end
       table.insert(entete, ']')
   end

table.insert(entete, '

')

   return table.concat(entete)

end

function p.contenu(frame, page)

   local contenu = {}

   if args.contenu then
       table.insert(contenu, '\n')
       table.insert(contenu, args.contenu)
   else
       table.insert(contenu, frame:preprocess('\n'))
       --Évite toute récursion
       if args[1]
       and frame:preprocess('Module:Documentation') ~= frame:preprocess()
       and p.ifexist(args[1]) then
           table.insert(contenu, frame:preprocess('{{' .. args[1] .. '}}'))
       elseif frame:preprocess('Module:Documentation') ~= frame:preprocess('%27_.._doc_.._%27')
       and p.ifexist(doc) then
           table.insert(contenu, frame:preprocess('Modèle:' .. doc .. ''))
       end
   end

table.insert(contenu, frame:preprocess('\n

\n'))

   return table.concat(contenu)

end

function p.notice(frame, page)

   local notice = {}

   if args.contenu then

table.insert(notice, '

') table.insert(notice, '

\n') if args.notice then table.insert(notice, args.notice) else table.insert(notice, 'La documentation de ce modèle ') table.insert(notice, 'est directement incluse dans le corps de ce dernier.
') table.insert(notice, 'Si cette page est protégée, veuillez transférer le contenu de la documentation vers sa ') table.insert(notice, '[{{fullurl:' .. doc) table.insert(notice, '|action=edit&preload=Modèle:Documentation/Preload sous-page dédiée}}].') end else if args[1] and p.ifexist(args[1]) or p.ifexist(doc) then table.insert(notice, '

') table.insert(notice, '

') table.insert(notice, 'La documentation de ce ') table.insert(notice, 'modèle est incluse depuis sa ') if args[1] then table.insert(notice, '[[' .. args[1] .. '|sous-page de documentation]]') else table.insert(notice, 'sous-page de documentation') end table.insert(notice, ' (') table.insert(notice, '[{{fullurl:') if args[1] then table.insert(notice, args[1] .. '|action=edit}} modifier]') table.insert(notice, ' | [{{fullurl:') table.insert(notice, args[1] .. '|action=history}} historique]') else table.insert(notice, doc .. '|action=edit}} modifier]') table.insert(notice, ' | [{{fullurl:') table.insert(notice, doc .. '|action=history}} historique]') end table.insert(notice, ').
') else table.insert(notice, '

') table.insert(notice, '

') end table.insert(notice, 'Les éditeurs peuvent travailler dans le ') if args[1] and p.ifexist(frame:preprocess('Bac à sable')) or p.ifexist(frame:preprocess('Bac à sable')) then table.insert(notice, 'bac à sable') table.insert(notice, ' (') table.insert(notice, 'modifier)') else table.insert(notice, 'bac à sable (') table.insert(notice, 'créer') table.insert(notice, ')') end table.insert(notice, ' et la page de ') if args[1] and p.ifexist(frame:preprocess('Test')) or p.ifexist(frame:preprocess('Test')) then table.insert(notice, 'test') table.insert(notice, ' (') table.insert(notice, 'modifier)') else table.insert(notice, 'test (') table.insert(notice, 'créer') table.insert(notice, ')') end table.insert(notice, '.
Veuillez placer les catégories dans la sous-page ') table.insert(notice, '[') table.insert(notice, '{{fullurl:') if args[1] and p.ifexist(args[1]) or p.ifexist(doc) then if args[1] then table.insert(notice, args[1]) else table.insert(notice, doc) end table.insert(notice, '|action=edit') else if args[1] then table.insert(notice, args[1]) else table.insert(notice, doc) end table.insert(notice, '|action=edit&preload=Modèle:Documentation/Preload') end table.insert(notice, ' /Documentation}}].') end table.insert(notice, '

')

   return table.concat(notice)

end

return p