Module:Documentation : Différence entre versions

De Lagny-sur-Marne Wiki
Aller à : navigation, rechercher
(corrige)
m (retouche modif précédente)
 
(75 révisions intermédiaires par 10 utilisateurs non affichées)
Ligne 1 : Ligne 1 :
--Ce module implemente le modèle {{Documentation}}.
+
--Ce module implémente le modèle {{Documentation}}.
  
 
local p = {}
 
local p = {}
  
    function p.corps(frame)
+
local function existePage(page)
        local args = frame:getParent().args
+
return page and page.exists
        local corps = {}
+
end
       
 
        --Bandeau pour les sous-pages /Bac à sable
 
        if frame:preprocess('{{SUBPAGENAME}}') == 'Bac à sable' then
 
            table.insert(corps, '<div style="clear:both />')
 
            table.insert(corps, '{{Sous-page de bac à sable}}')
 
        end
 
  
        --Génération de la documentation
+
local function nomDocumentation(page)
        table.insert(corps, p.entete(frame, args))
+
--On n'est pas dans une sous-page
        table.insert(corps, p.contenu(frame, args))
+
if not page.isSubpage then
        table.insert(corps, p.notice(frame, args))
+
return page.subjectNsText .. ':' .. page.text .. '/Documentation'
 +
end
 +
 +
--On est dans une sous-page
 +
local sousPage = page.subpageText
 +
if sousPage == 'Documentation'
 +
or sousPage == 'Bac à sable'
 +
or sousPage == 'Test' then
 +
return page.subjectNsText .. ':' .. page.baseText .. '/Documentation'
 +
else
 +
return page.subjectNsText .. ':' .. page.text .. '/Documentation'
 +
end
 +
end
  
        --Code HTML brute
+
local function lienUrl(nomPage, titrePage, action, pagePreload)
        if args.raw then
+
local argument = {['action'] = action or 'edit'}
            return frame:preprocess('<nowiki>' .. table.concat(corps) .. '</nowiki>')
+
        end
+
if pagePreload then
 +
argument['preload'] = 'Modèle:Documentation/Preload' .. pagePreload
 +
end
  
        return frame:preprocess(table.concat(corps))
+
return mw.ustring.format('[%s %s]', nomPage:fullUrl(argument), titrePage)
       
+
end
    end
 
  
    function p.ifexist(page, frame)
+
local function entete(args, page, doc, existeDoc)
        if not page then return false end
+
local res = mw.html.create('div')
        if frame:preprocess('{{#ifexist:' .. page .. '|1}}') == '1' then return true end
 
        return false
 
    end
 
   
 
    function p.docname(frame)
 
        --On n'est pas dans une sous-page
 
        if frame:preprocess('{{BASEPAGENAME}}') == frame:preprocess('{{PAGENAME}}') then
 
            return frame:preprocess('{{SUBJECTPAGENAME}}/Documentation')
 
        else
 
            --On est dans une sous-page
 
            nom = frame:preprocess('{{SUBPAGENAME}}')
 
            if nom == 'Documentation' or nom == 'Bac à sable' or nom == 'Test' then
 
                return frame:preprocess('{{#rel2abs:../Documentation}}')
 
            else
 
                return frame:preprocess('{{SUBJECTPAGENAME}}/Documentation')
 
            end
 
        end
 
    end
 
  
    function p.entete(frame, args)
+
res
        local entete = {'<div style="clear:both; margin:1em 0 0 0; border:1px solid #aaa; background:'}
+
:css('margin-bottom', '1ex')
 +
:css('border-bottom', '1px solid #aaa')
 +
:css('padding-bottom', '3px')
 +
:wikitext('[[Fichier:Template-info.png|50px|alt=|link=]]')
 +
:tag('span')
 +
:css('font-weight', 'bold')
 +
:css('font-size', '125%')
 +
:css('vertical-align', 'middle')
 +
:wikitext('&nbsp;')
 +
:wikitext(args.titre or 'Documentation')
 +
:done()
  
        if not args.couleur then
+
if not args.contenu then
            table.insert(entete, '#ecfcf4')
+
local editionLien = res:tag('span')
        else
+
:addClass('mw-editsection plainlinks')
            table.insert(entete, args.couleur)
+
:css('vertical-align', 'middle')
        end
+
:wikitext('&#91;')
  
        table.insert(entete, '; padding:1em 1em 0.8em;">')
+
if existeDoc then
        table.insert(entete, '<div style="margin-bottom:1ex; border-bottom:1px solid #aaa; padding-bottom:3px;">')
+
editionLien:wikitext(lienUrl(doc, 'modifier'))
 +
else
 +
if args.module then
 +
editionLien:wikitext(lienUrl(doc, 'créer', 'edit', 'Module'))
 +
else
 +
editionLien:wikitext(lienUrl(doc, 'créer', 'edit', ''))
 +
end
 +
end
  
        if not args.contenu then
+
editionLien
            table.insert(entete, '<span id="doc_editlinks" class="editsection plainlinks">&#91;[')
+
:wikitext('&#93;&#32;&#91;')
 +
:wikitext(lienUrl(page, 'purger', 'purge'))
 +
:wikitext('&#93;')
 +
end
  
            if args[1] then
+
return res
                if p.ifexist(args[1], frame) then
+
end
                    table.insert(entete, '{{fullurl:')
 
                    table.insert(entete, args[1])
 
                    table.insert(entete, '|action=edit modifier}}]&#93;&#32;&#91;{{Purger le cache|purger}}')
 
                else
 
                    table.insert(entete, '{{fullurl:')
 
                    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), frame) then
 
                    table.insert(entete, '{{fullurl:')
 
                    table.insert(entete, p.docname(frame))
 
                    table.insert(entete, '|action=edit modifier}}]&#93;&#32;&#91;{{Purger le cache|purger}}')
 
                else
 
                    table.insert(entete, '{{fullurl:')
 
                    table.insert(entete, p.docname(frame))
 
                    table.insert(entete, '|action=edit&preload=Modèle:Documentation/Preload créer}}]')
 
                end
 
            end
 
            table.insert(entete, '&#93;</span>')
 
        end
 
  
        table.insert(entete, '[[Fichier:Template-info.png|50px|alt=Documentation du modèle|link=]]')
+
local function protection(page, doc, existeDoc, message)
        table.insert(entete, '<span style="font-weight:bold; font-size:125%">&nbsp;')
+
-- Insertion automatique du modèle de protection.
 +
local niveauProtection = page.protectionLevels.edit
  
        if args.titre then
+
if niveauProtection and niveauProtection[1] then
            table.insert(entete, args.titre)
+
local tableProtection = {
        else
+
autoconfirmed = {'semiProtection', '{{%s*[Ss]emi%-protection%s*l?o?n?g?u?e?[|}]'},
            table.insert(entete, 'Documentation')
+
editextendedsemiprotected = {'semiProtectionEtendue', '{{%s*[Ss]emi%-protection étendue%s*[|}]'},
        end
+
sysop = {'protection', '{{%s*[Pp]rotection%s*[|}]'},
        table.insert(entete, '</span></div>')
+
}
       
+
local protection = tableProtection[niveauProtection[1]]
        return table.concat(entete)
+
if existeDoc then
    end
+
-- Vérification qu'il n'y a pas déjà un modèle de
 +
-- protection dans la documentation du modèle.
 +
local contenuDoc = doc:getContent()
 +
if contenuDoc:match(protection[2]) then
 +
protection = false
 +
end
 +
end
  
    function p.contenu(frame, args)
+
if protection then
        local contenu = {}
+
if message == '' then
        if args.contenu then
+
message = nil
            table.insert(contenu, '__NOEDITSECTION__\n')
+
end
            table.insert(contenu, args.contenu)
+
return require('Module:Protection').main({message}, protection[1], page)
        else
+
end
            table.insert(contenu, '<nowiki />')
+
end
            --Évite toute récursion
+
end
            if args[1]
 
            and frame:preprocess('{{FULLPAGENAMEE}}') ~= frame:preprocess('{{FULLPAGENAMEE:' .. args[1] .. '}}')
 
            and p.ifexist(args[1], frame) then
 
                table.insert(contenu, '{{' .. args[1] .. '}}')
 
            elseif frame:preprocess('{{FULLPAGENAMEE}}') ~= frame:preprocess('{{FULLPAGENAMEE:' .. p.docname(frame) .. '}}')
 
            and p.ifexist(p.docname(frame), frame) then
 
                table.insert(contenu, '{{' .. p.docname(frame) .. '}}')
 
            end
 
        end
 
        table.insert(contenu, '\n<nowiki /><div style="clear:both" />\n')
 
        return table.concat(contenu)
 
    end
 
   
 
    function p.notice(frame, args)
 
        local notice = {}
 
       
 
        if args.contenu then
 
            table.insert(notice, '<div class="plainlinks" style="border-top:1px solid #aaa; margin: 1em 0 0;">')
 
            table.insert(notice, '<p style="margin-bottom:0; padding-left:1em; font-style:italic;">\n')
 
           
 
            if args.notice then
 
                table.insert(notice, args.notice)
 
            else
 
                table.insert(notice, 'La [[Aide:Comment documenter un modèle ?|documentation]] de ce [[Aide:Modèle|modèle]] ')
 
                table.insert(notice, 'est directement [[Aide:Inclusion|incluse]] dans le corps de ce dernier.<br />')
 
                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], frame) or p.ifexist(p.docname(frame), frame) then
 
                table.insert(notice, '<div class="plainlinks" style="border-top:1px solid #aaa; margin: 1em 0 0;">')
 
                table.insert(notice, '<p style="margin-bottom:0; padding-left:1em; font-style:italic;">')
 
                table.insert(notice, 'La [[Aide:Comment documenter un modèle ?|documentation]] de ce ')
 
                table.insert(notice, '[[Aide:Modèle|modèle]] est [[Aide:Inclusion|incluse]] depuis sa ')
 
               
 
                if args[1] then
 
                    table.insert(notice, '[[' .. args[1] .. '|sous-page de documentation]]')
 
                else
 
                    table.insert(notice, '[[' .. p.docname(frame) .. '|sous-page de documentation]]')
 
                end
 
               
 
                table.insert(notice, '&nbsp;<span style="font-size:89%; font-style:normal;">(')
 
                table.insert(notice, '[{{fullurl:')
 
  
                if args[1] then
+
local function contenu(args, doc, existeDoc)
                    table.insert(notice, args[1] .. '|action=edit}} modifier]')
+
local page = mw.title.getCurrentTitle()
                    table.insert(notice, '&nbsp;|&nbsp;[{{fullurl:')
+
local res = mw.html.create():newline()
                    table.insert(notice, args[1] .. '|action=history}} historique]')
+
 
                else
+
if args.contenu then
                    table.insert(notice, p.docname(frame) .. '|action=edit}} modifier]')
+
res:wikitext(args.contenu)
                    table.insert(notice, '&nbsp;|&nbsp;[{{fullurl:')
+
elseif existeDoc then
                    table.insert(notice, p.docname(frame) .. '|action=history}} historique]')
+
local frame = mw.getCurrentFrame()
                end
+
if frame.args and frame.args['contenu sous-page'] then
                table.insert(notice, ')</span>.<br />')
+
res:wikitext(frame.args['contenu sous-page'])
            else
+
else
                table.insert(notice, '<div class="plainlinks">')
+
res:wikitext(frame:expandTemplate{title = doc.prefixedText})
                table.insert(notice, '<p style="margin-bottom:0; padding-left:1em; font-style:italic;">')
+
end
            end
+
elseif page.subpageText ~= 'Bac à sable' and page.subpageText ~= 'Test' then
            table.insert(notice, 'Les éditeurs peuvent travailler dans le ')
+
local texteBandeau = '<b>Ce %s ne possède aucune [[Aide:Documentation de modèle|documentation]] '
           
+
..'explicative en sous-page</b>, pas même une description succincte.<br> '
            if args[1] and p.ifexist(frame:preprocess('{{#rel2abs:' .. args[1] .. '/../Bac à sable}}'), frame)
+
..'Vous pouvez %s afin de documenter ce %s adéquatement.'
            or p.ifexist(frame:preprocess('{{#rel2abs:' .. p.docname(frame) .. '/../Bac à sable}}'), frame) then
+
if args.module then
                table.insert(notice, '[[{{#rel2abs:')
+
texteBandeau = texteBandeau:format(
                if args[1] then
+
'module',
                    table.insert(notice, args[1])
+
lienUrl(doc, 'créer cette sous-page', 'edit', 'Module'),
                else
+
'module'
                    table.insert(notice, p.docname(frame))
+
)
                end
+
else
                table.insert(notice, '/../Bac à sable}}|bac à sable]]')
+
texteBandeau = texteBandeau:format(
                table.insert(notice, '&nbsp;<span style="font-size:89%; font-style:normal;">(')
+
'modèle',
                table.insert(notice, '[{{fullurl:{{#rel2abs:')
+
lienUrl(doc, 'créer cette sous-page', 'edit', ''),
                if args[1] then
+
'modèle'
                    table.insert(notice, args[1])
+
)
                else
+
end
                    table.insert(notice, p.docname(frame))
+
if page.namespace == 10 then
                end
+
texteBandeau = texteBandeau .. '[[Catégorie:Modèle sans documentation]]'
                table.insert(notice, '/../Bac à sable}}|action=edit}} modifier])</span>')
+
elseif page.namespace == 828 then
            else
+
if page.baseText == 'Carte/données' or page.baseText == 'Country data' or page.text:sub(1, 12) == 'Utilisateur:' then
                table.insert(notice, 'bac à sable&nbsp;<span style="font-size:89%; font-style:normal;">(')
+
-- pas de catégorisation pour : modèles de données, pseudo-namespace "Module:Utilisateur:Toto/Nom du module"
                table.insert(notice, '[{{fullurl:{{#rel2abs:')
+
else
                if args[1] then
+
texteBandeau = texteBandeau .. '[[Catégorie:Module sans documentation]]'
                    table.insert(notice, args[1])
+
end
                else
+
end
                    table.insert(notice, p.docname(frame))
+
local param = {
                end
+
['icône'] = 'Book-cover-A-Z.svg',
                table.insert(notice, '/../Bac à sable}}|action=edit&preload=Modèle:Documentation/Preload2}} créer]')
+
alt = 'domaine public',
                table.insert(notice, ')</span>')
+
style = 'width:80%;',
            end
+
texte = texteBandeau,
            table.insert(notice, ' et la page de ')
+
}
           
+
res:wikitext(require('Module:Bandeau')._bandeau(param))
            if args[1] and p.ifexist(frame:preprocess('{{#rel2abs:' .. args[1] .. '/../Test}}'), frame)
+
end
            or p.ifexist(frame:preprocess('{{#rel2abs:' .. p.docname(frame) .. '/../Test}}'), frame) then
+
 
                table.insert(notice, '[[{{#rel2abs:')
+
res
                if args[1] then
+
:newline()
                    table.insert(notice, args[1])
+
:tag('div')
                else
+
:css('clear', 'both')
                    table.insert(notice, p.docname(frame))
+
                end
+
return res
                table.insert(notice, '/../Test}}|test]]')
+
end
                table.insert(notice, '&nbsp;<span style="font-size:89%; font-style:normal;">(')
+
 
                table.insert(notice, '[{{fullurl:{{#rel2abs:')
+
local function notice(args, page, doc, existeDoc)
                if args[1] then
+
local res = mw.html.create('div')
                    table.insert(notice, args[1])
+
:css('border-top', '1px solid #aaa')
                else
+
:css('margin', '1.5em 0 0')
                    table.insert(notice, p.docname(frame))
+
 
                end
+
local contenuParagraphe = res
                table.insert(notice, '/../Test}}|action=edit}} modifier])</span>')
+
:tag('p')
            else
+
:addClass('plainlinks')
                table.insert(notice, 'test&nbsp;<span style="font-size:89%; font-style:normal;">(')
+
:css('margin-bottom', '0')
                table.insert(notice, '[{{fullurl:{{#rel2abs:')
+
:css('padding-left', '1em')
                if args[1] then
+
:css('font-style', 'italic')
                    table.insert(notice, args[1])
+
 
                else
+
if args.contenu then
                    table.insert(notice, p.docname(frame))
+
if args.notice then
                end
+
contenuParagraphe:wikitext(args.notice .. '<br />')
                table.insert(notice, '/../Test}}|action=edit&preload=Modèle:Documentation/Preload3}} créer]')
+
else
                table.insert(notice, ')</span>')
+
contenuParagraphe
            end
+
:wikitext('La [[Aide:Documentation de modèle|documentation]] ')
            table.insert(notice, '.<br />Veuillez placer les catégories dans la sous-page ')
+
:wikitext('de ce [[Aide:Modèle|modèle]] est directement ')
            table.insert(notice, '<span class="plainlinks">[')
+
:wikitext('[[Aide:Inclusion|incluse]] dans le corps de ce dernier. ')
            table.insert(notice, '{{fullurl:')
+
:wikitext(lienUrl(page, 'Cliquez ici pour purger le cache', 'purge'))
            if args[1] and p.ifexist(args[1], frame) or p.ifexist(p.docname(frame), frame) then
+
:wikitext('.<br /> Si cette page est protégée, veuillez ')
                if args[1] then
+
:wikitext('transférer le contenu de la documentation vers sa ')
                    table.insert(notice, args[1])
+
:wikitext(lienUrl(doc, 'sous-page dédiée', 'edit', ''))
                else
+
:wikitext('.<br /> ')
                    table.insert(notice, p.docname(frame))
+
end
                end
+
else
                table.insert(notice, '|action=edit')
+
if existeDoc then
               
+
local lienAide = '[[Aide:Modèle|modèle]]'
            else
+
if args.module then
                if args[1] then
+
lienAide = '[[Aide:Module|module]]'
                    table.insert(notice, args[1])
+
end
                else
+
contenuParagraphe
                    table.insert(notice, p.docname(frame))
+
:wikitext('La [[Aide:Documentation de modèle|documentation]] de ce ')
                end
+
:wikitext(lienAide)
                table.insert(notice, '|action=edit&preload=Modèle:Documentation/Preload')
+
:wikitext(' est [[Aide:Inclusion|incluse]] depuis sa [[')
            end
+
:wikitext(tostring(doc))
            table.insert(notice, ' /Documentation}}].')
+
:wikitext('|sous-page de documentation]]&nbsp;')
        end
+
:tag('span')
        table.insert(notice, '</p></div></div>')
+
:css('font-size', '89%')
        return table.concat(notice)
+
:css('font-style', 'normal')
    end
+
:wikitext('(')
 +
:wikitext(lienUrl(doc, 'modifier'))
 +
:wikitext('&nbsp;|&nbsp;')
 +
:wikitext(lienUrl(doc, 'historique', 'history'))
 +
:wikitext(').<br /> ')
 +
:done()
 +
:wikitext('Veuillez placer les catégories dans la sous-page ')
 +
:wikitext(lienUrl(doc, '/Documentation'))
 +
:wikitext('.<br /> ')
 +
end
 +
end
 +
 +
contenuParagraphe:wikitext('Les éditeurs peuvent travailler dans le ')
 +
 +
local titrePageBacasable = nomDocumentation(page):gsub('/Documentation', '/Bac à sable')
 +
local pageBacasable = mw.title.new(titrePageBacasable)
 +
 
 +
if existePage(pageBacasable) then
 +
contenuParagraphe
 +
:wikitext('[[' .. titrePageBacasable .. '|bac à sable]]&nbsp;')
 +
:tag('span')
 +
:css('font-size', '89%')
 +
:css('font-style', 'normal')
 +
:wikitext('(')
 +
:wikitext(lienUrl(pageBacasable, 'modifier'))
 +
:wikitext(')')
 +
else
 +
local preLoad = '2'
 +
if args.module then
 +
preLoad = nil
 +
end
 +
contenuParagraphe
 +
:wikitext('bac à sable&nbsp;')
 +
:tag('span')
 +
:css('font-size', '89%')
 +
:css('font-style', 'normal')
 +
:wikitext('(')
 +
:wikitext(lienUrl(pageBacasable, 'créer', 'edit', preLoad))
 +
:wikitext(')')
 +
end
 +
 +
if not args.module then
 +
contenuParagraphe:wikitext(' et la page de ')
 +
 
 +
local titrePageTest = nomDocumentation(page):gsub('/Documentation', '/Test')
 +
local pageTest = mw.title.new(titrePageTest)
 +
 +
if existePage(pageTest) then
 +
contenuParagraphe
 +
:wikitext('[[' .. titrePageTest .. '|test]]&nbsp;')
 +
:tag('span')
 +
:css('font-size', '89%')
 +
:css('font-style', 'normal')
 +
:wikitext('(')
 +
:wikitext(lienUrl(pageTest, 'modifier'))
 +
:wikitext(')')
 +
else
 +
contenuParagraphe
 +
:wikitext('test&nbsp;')
 +
:tag('span')
 +
:css('font-size', '89%')
 +
:css('font-style', 'normal')
 +
:wikitext('(')
 +
:wikitext(lienUrl(pageTest, 'créer', 'edit', '3'))
 +
:wikitext(')')
 +
end
 +
end
 +
contenuParagraphe:wikitext('.')
 +
 
 +
return res
 +
end
 +
 
 +
function p._documentation(args)
 +
local page = mw.title.getCurrentTitle()
 +
local titreDoc = nomDocumentation(page)
 +
local doc = mw.title.new(args[1] or titreDoc)
 +
local existeDoc = existePage(doc)
 +
local res = mw.html.create()
 +
 +
--Bandeau pour les sous-pages /Bac à sable
 +
if page.subpageText == 'Bac à sable' then
 +
res
 +
:tag('div')
 +
:css('clear', 'both')
 +
:done()
 +
:wikitext(mw.getCurrentFrame():expandTemplate{title = 'Sous-page de bac à sable'})
 +
end
 +
 
 +
--Génération de la documentation
 +
res
 +
:tag('div')
 +
:css('clear', 'both')
 +
:css('margin', '1em 0 0 0')
 +
:css('border', '1px solid #aaa')
 +
:css('background', args.couleur or '#ecfcf4')
 +
:css('padding', '1em 1em 0.8em')
 +
:node(entete(args, page, doc, existeDoc))
 +
:wikitext(protection(page, doc, existeDoc, args['message protection']))
 +
:node(contenu(args, doc, existeDoc))
 +
:node(notice(args, page, doc, existeDoc))
 +
 
 +
--Catégorisation des modules, en rangeant à part les modules de données
 +
if page.namespace == 828 and page.subpageText ~= 'Bac à sable' and page.subpageText ~= 'Test' then
 +
if page.isSubpage and page.baseText == 'Carte/données' then
 +
res:wikitext("[[Catégorie:Module de paramétrage de carte]]")
 +
elseif page.isSubpage and page.baseText == 'Country data' then
 +
res:wikitext("[[Catégorie:Module d'informations pays]]")
 +
else
 +
res:wikitext("[[Catégorie:Module en langage Lua]]")
 +
end
 +
end
 +
 
 +
return tostring(res)
 +
end
 +
 
 +
function p.documentation(frame)
 +
local args = {}
 +
local argsParent = frame:getParent().args
 +
 
 +
--Paramètres vides interprétés par Lua
 +
for cle, val in pairs(argsParent) do
 +
if val ~= '' then
 +
args[cle] = mw.text.trim(val)
 +
end
 +
end
 +
 
 +
return p._documentation(args)
 +
end
 +
 
 +
function p.nomDocumentation(frame)
 +
if frame.args[1] and mw.text.trim(frame.args[1]) ~= '' then
 +
return frame.args[1]
 +
else
 +
local titreDoc = nomDocumentation(mw.title.getCurrentTitle())
 +
if mw.title.new(titreDoc).exists then
 +
return titreDoc
 +
end
 +
end
 +
end
  
 
return p
 
return p

Version actuelle datée du 15 mai 2017 à 08:40

La documentation pour ce module peut être créée à Module:Documentation/doc

--Ce module implémente le modèle {{Documentation}}.

local p = {}

local function existePage(page)
	return page and page.exists
end

local function nomDocumentation(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
	local sousPage = page.subpageText
	if sousPage == 'Documentation'
	or sousPage == 'Bac à sable'
	or sousPage == 'Test' then
		return page.subjectNsText .. ':' .. page.baseText .. '/Documentation'
	else
		return page.subjectNsText .. ':' .. page.text .. '/Documentation'
	end
end

local function lienUrl(nomPage, titrePage, action, pagePreload)
	local argument = {['action'] = action or 'edit'}
 
	if pagePreload then
		argument['preload'] = 'Modèle:Documentation/Preload' .. pagePreload
	end

	return mw.ustring.format('[%s %s]', nomPage:fullUrl(argument), titrePage)
end

local function entete(args, page, doc, existeDoc)
	local res = mw.html.create('div')

	res
		:css('margin-bottom', '1ex')
		:css('border-bottom', '1px solid #aaa')
		:css('padding-bottom', '3px')
 		:wikitext('[[Fichier:Template-info.png|50px|alt=|link=]]')
	 	:tag('span')
	 		:css('font-weight', 'bold')
	 		:css('font-size', '125%')
	 		:css('vertical-align', 'middle')
	 		:wikitext('&nbsp;')
	 		:wikitext(args.titre or 'Documentation')
	 		:done()

	if not args.contenu then
		local editionLien = res:tag('span')
			:addClass('mw-editsection plainlinks')
			:css('vertical-align', 'middle')
			:wikitext('&#91;')

		if existeDoc then
			editionLien:wikitext(lienUrl(doc, 'modifier'))
		else
			if args.module then
				editionLien:wikitext(lienUrl(doc, 'créer', 'edit', 'Module'))
			else
				editionLien:wikitext(lienUrl(doc, 'créer', 'edit', ''))
			end
		end

		editionLien
			:wikitext('&#93;&#32;&#91;')
			:wikitext(lienUrl(page, 'purger', 'purge'))
			:wikitext('&#93;')
	end

	return res
end

local function protection(page, doc, existeDoc, message)
	-- Insertion automatique du modèle de protection.
	local niveauProtection = page.protectionLevels.edit

	if niveauProtection and niveauProtection[1] then
		local tableProtection = {
			autoconfirmed = {'semiProtection', '{{%s*[Ss]emi%-protection%s*l?o?n?g?u?e?[|}]'},
			editextendedsemiprotected = {'semiProtectionEtendue', '{{%s*[Ss]emi%-protection étendue%s*[|}]'},
			sysop = {'protection', '{{%s*[Pp]rotection%s*[|}]'},
		}
		local protection = tableProtection[niveauProtection[1]]
		if existeDoc then
			-- Vérification qu'il n'y a pas déjà un modèle de
			-- protection dans la documentation du modèle.
			local contenuDoc = doc:getContent()
			if contenuDoc:match(protection[2]) then
				protection = false
			end
		end

		if protection then
			if message == '' then
				message = nil
			end
			return require('Module:Protection').main({message}, protection[1], page)
		end
	end
end

local function contenu(args, doc, existeDoc)
	local page = mw.title.getCurrentTitle()
	local res = mw.html.create():newline()

	if args.contenu then
		res:wikitext(args.contenu)
	elseif existeDoc then
		local frame = mw.getCurrentFrame()
		if frame.args and frame.args['contenu sous-page'] then
			res:wikitext(frame.args['contenu sous-page'])
		else
			res:wikitext(frame:expandTemplate{title = doc.prefixedText})
		end
	elseif page.subpageText ~= 'Bac à sable' and page.subpageText ~= 'Test' then
		local texteBandeau = '<b>Ce %s ne possède aucune [[Aide:Documentation de modèle|documentation]] '
			..'explicative en sous-page</b>, pas même une description succincte.<br> '
			..'Vous pouvez %s afin de documenter ce %s adéquatement.'
		if args.module then
			texteBandeau = texteBandeau:format(
				'module',
				lienUrl(doc, 'créer cette sous-page', 'edit', 'Module'),
				'module'
			)
		else
			texteBandeau = texteBandeau:format(
				'modèle',
				lienUrl(doc, 'créer cette sous-page', 'edit', ''),
				'modèle'
			)
		end
		if page.namespace == 10 then
			texteBandeau = texteBandeau .. '[[Catégorie:Modèle sans documentation]]'
		elseif page.namespace == 828 then
			if page.baseText == 'Carte/données' or page.baseText == 'Country data' or page.text:sub(1, 12) == 'Utilisateur:' then
				-- pas de catégorisation pour : modèles de données, pseudo-namespace "Module:Utilisateur:Toto/Nom du module"
			else
				texteBandeau = texteBandeau .. '[[Catégorie:Module sans documentation]]'
			end
		end
		local param = {
			['icône'] = 'Book-cover-A-Z.svg',
			alt = 'domaine public',
			style = 'width:80%;',
			texte = texteBandeau,
		}
		res:wikitext(require('Module:Bandeau')._bandeau(param))
	end

	res
		:newline()
		:tag('div')
			:css('clear', 'both')
 
	return res
end

local function notice(args, page, doc, existeDoc)
	local res = mw.html.create('div')
		:css('border-top', '1px solid #aaa')
		:css('margin', '1.5em 0 0')

	local contenuParagraphe = res
		:tag('p')
			:addClass('plainlinks')
			:css('margin-bottom', '0')
			:css('padding-left', '1em')
			:css('font-style', 'italic')

	if args.contenu then
		if args.notice then
			contenuParagraphe:wikitext(args.notice .. '<br />')
		else
			contenuParagraphe
				:wikitext('La [[Aide:Documentation de modèle|documentation]] ')
				:wikitext('de ce [[Aide:Modèle|modèle]] est directement ')
				:wikitext('[[Aide:Inclusion|incluse]] dans le corps de ce dernier. ')
				:wikitext(lienUrl(page, 'Cliquez ici pour purger le cache', 'purge'))
				:wikitext('.<br /> Si cette page est protégée, veuillez ')
				:wikitext('transférer le contenu de la documentation vers sa ')
				:wikitext(lienUrl(doc, 'sous-page dédiée', 'edit', ''))
				:wikitext('.<br /> ')
		end
	else
		if existeDoc then
			local lienAide = '[[Aide:Modèle|modèle]]'
			if args.module then
				lienAide = '[[Aide:Module|module]]'
			end
			contenuParagraphe
				:wikitext('La [[Aide:Documentation de modèle|documentation]] de ce ')
				:wikitext(lienAide)
				:wikitext(' est [[Aide:Inclusion|incluse]] depuis sa [[')
				:wikitext(tostring(doc))
				:wikitext('|sous-page de documentation]]&nbsp;')
				:tag('span')
					:css('font-size', '89%')
					:css('font-style', 'normal')
					:wikitext('(')
					:wikitext(lienUrl(doc, 'modifier'))
					:wikitext('&nbsp;|&nbsp;')
					:wikitext(lienUrl(doc, 'historique', 'history'))
					:wikitext(').<br /> ')
					:done()
				:wikitext('Veuillez placer les catégories dans la sous-page ')
				:wikitext(lienUrl(doc, '/Documentation'))
				:wikitext('.<br /> ')
		end
	end
	
	contenuParagraphe:wikitext('Les éditeurs peuvent travailler dans le ')
	
	local titrePageBacasable = nomDocumentation(page):gsub('/Documentation', '/Bac à sable')
	local pageBacasable = mw.title.new(titrePageBacasable)

	if existePage(pageBacasable) then
		contenuParagraphe
			:wikitext('[[' .. titrePageBacasable .. '|bac à sable]]&nbsp;')
			:tag('span')
				:css('font-size', '89%')
				:css('font-style', 'normal')
				:wikitext('(')
				:wikitext(lienUrl(pageBacasable, 'modifier'))
				:wikitext(')')
	else
		local preLoad = '2'
		if args.module then
			preLoad = nil
		end
		contenuParagraphe
			:wikitext('bac à sable&nbsp;')
			:tag('span')
				:css('font-size', '89%')
				:css('font-style', 'normal')
				:wikitext('(')
				:wikitext(lienUrl(pageBacasable, 'créer', 'edit', preLoad))
				:wikitext(')')
	end
	
	if not args.module then
		contenuParagraphe:wikitext(' et la page de ')

		local titrePageTest = nomDocumentation(page):gsub('/Documentation', '/Test')
		local pageTest = mw.title.new(titrePageTest)
 
		if existePage(pageTest) then
			contenuParagraphe
				:wikitext('[[' .. titrePageTest .. '|test]]&nbsp;')
				:tag('span')
					:css('font-size', '89%')
					:css('font-style', 'normal')
					:wikitext('(')
					:wikitext(lienUrl(pageTest, 'modifier'))
					:wikitext(')')
		else
			contenuParagraphe
				:wikitext('test&nbsp;')
				:tag('span')
					:css('font-size', '89%')
					:css('font-style', 'normal')
					:wikitext('(')
					:wikitext(lienUrl(pageTest, 'créer', 'edit', '3'))
					:wikitext(')')
		end
	end
	contenuParagraphe:wikitext('.')

	return res
end

function p._documentation(args)
	local page = mw.title.getCurrentTitle()
	local titreDoc = nomDocumentation(page)
	local doc = mw.title.new(args[1] or titreDoc)
	local existeDoc = existePage(doc)
	local res = mw.html.create()
	
	--Bandeau pour les sous-pages /Bac à sable
	if page.subpageText == 'Bac à sable' then
		res
			:tag('div')
				:css('clear', 'both')
				:done()
			:wikitext(mw.getCurrentFrame():expandTemplate{title = 'Sous-page de bac à sable'})
	end

	--Génération de la documentation
	res
		:tag('div')
			:css('clear', 'both')
			:css('margin', '1em 0 0 0')
			:css('border', '1px solid #aaa')
			:css('background', args.couleur or '#ecfcf4')
			:css('padding', '1em 1em 0.8em')
			:node(entete(args, page, doc, existeDoc))
			:wikitext(protection(page, doc, existeDoc, args['message protection']))
			:node(contenu(args, doc, existeDoc))
			:node(notice(args, page, doc, existeDoc))

	--Catégorisation des modules, en rangeant à part les modules de données
	if page.namespace == 828 and page.subpageText ~= 'Bac à sable' and page.subpageText ~= 'Test' then
		if page.isSubpage and page.baseText == 'Carte/données' then
			res:wikitext("[[Catégorie:Module de paramétrage de carte]]")
		elseif page.isSubpage and page.baseText == 'Country data' then
			res:wikitext("[[Catégorie:Module d'informations pays]]")
		else
			res:wikitext("[[Catégorie:Module en langage Lua]]")
		end
	end

	return tostring(res)
end

function p.documentation(frame)
	local args = {}
	local argsParent = frame:getParent().args

	--Paramètres vides interprétés par Lua
	for cle, val in pairs(argsParent) do
		if val ~= '' then
			args[cle] = mw.text.trim(val)
		end
	end

	return p._documentation(args)
end

function p.nomDocumentation(frame)
	if frame.args[1] and mw.text.trim(frame.args[1]) ~= '' then
		return frame.args[1]
	else
		local titreDoc = nomDocumentation(mw.title.getCurrentTitle())
		if mw.title.new(titreDoc).exists then
			return titreDoc
		end 
	end
end

return p