Module:Documentation

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

local p = {}

function p.corps(frame)

   local args = frame:getParent().args
   local corps = {}
       
   --Bandeau pour les sous-pages /Bac à sable
   if frame:preprocess('Documentation') == '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)))
   table.insert(corps, p.contenu(frame, args))
   table.insert(corps, frame:preprocess(p.notice(frame, args)))

   --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(frame)

   local page = mw.title.getCurrentTitle()

   --On n'est pas dans une sous-page
   if not page.isSubpage then
       return frame:preprocess('Module:Documentation/Documentation')
   else
       --On est dans une sous-page
       local nom = page.subpageText
       if nom == 'Documentation' or nom == 'Bac à sable' or nom == 'Test' then
           return frame:preprocess('Documentation')
       else
           return frame:preprocess('Module:Documentation/Documentation')
       end
   end

end

-- test de fonctionnalité (note : la page courante via mw.title.getCurrentTitle() devrait être récupérée une fois pour toute par la fonction principale) function p.docname2(frame)

   local page = mw.title.getCurrentTitle()
   
   -- est-ce qu'on est une page principale ou une sous-page ?
   if (not page.isSubpage) then
       -- page principale : <nom de la page>/Documentation
       return page.text .. "/Documentation"
   else
       -- on est dans une sous-page : quel type de sous-page ?
       if (page.subpageText == 'Documentation' or page.subpageText == 'Bac à sable' or page.subpageText == 'Test') then
           -- on retourne la page de documentation de la sous-page
           return page.baseText .. "/Documentation"
       else
           return page.text .. "/Documentation"
       end
   end

end

function p.entete(frame, args)

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] then
           if p.ifexist(args[1]) then
               table.insert(entete, args[1])
               table.insert(entete, '|action=edit modifier}}]] [Modèle:Purger le cache')
           else
               table.insert(entete, args[1])
               table.insert(entete, '|action=edit&preload=Modèle:Documentation/Preload créer}}]')
           end
       else
           if p.ifexist(p.docname(frame)) then
               table.insert(entete, p.docname(frame))
               table.insert(entete, '|action=edit modifier}}]] [Modèle:Purger le cache')
           else
               table.insert(entete, p.docname(frame))
               table.insert(entete, '|action=edit&preload=Modèle:Documentation/Preload créer}}]')
           end
       end
       table.insert(entete, ']')
   end
       

table.insert(entete, '

')

   return table.concat(entete)

end

function p.contenu(frame, args)

   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_.._p.docname(frame)_.._%27')
       and p.ifexist(p.docname(frame)) then
           table.insert(contenu, frame:preprocess('Modèle:' .. p.docname(frame) .. ''))
       end
   end

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

\n'))

   return table.concat(contenu)

end

function p.notice(frame, args)

   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:' .. p.docname(frame)) 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(p.docname(frame)) 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, p.docname(frame) .. '|action=edit}} modifier]') table.insert(notice, ' | [{{fullurl:') table.insert(notice, p.docname(frame) .. '|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(p.docname(frame)) then if args[1] then table.insert(notice, args[1]) else table.insert(notice, p.docname(frame)) end table.insert(notice, '|action=edit') else if args[1] then table.insert(notice, args[1]) else table.insert(notice, p.docname(frame)) 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