Module:Biblio/Atik
La documentation pour ce module peut être créée à Module:Biblio/Atik/doc
local Atik = { }
local Commun = require( 'Module:Biblio/Commun' )
local References = require( 'Module:Biblio/Références' )
local Nombre2texte = require( 'Module:Nombre2texte' )
local TableBuilder = require( 'Module:TableBuilder' )
local Langue = require( 'Module:Langue' )
function Atik.atik( args )
-- La table wiki va recevoir tous les petits bouts de texte, et sera concaténée à la fin.
-- Elle utilise la meta-table de TableBuilder, permettant d'utiliser les fonctions de la
-- library table comme des méthodes. minsert permet d'insérer plusieurs éléments en une
-- seule fois en, ignorant les paramètres nil.
local wiki = TableBuilder.new()
-- validArg renvoie le premier paramètre non vide, ou nil s'ils sont tous vides.
-- Seuls les noms des paramètres doivent être transmis à la fonction.
local validArg = function ( ... ) return Commun.validTextArg( args, ... ) or false end
-- table servant à la catégorisation
args.categ = {}
-- clarification paramètre nécessaire pour les COinS
args['périodique'] = validArg( 'peryodik', 'periodik', 'jounal', 'periodical', 'périodique', 'revue', 'journal' )
args.titre = validArg( 'tit', 'titre', 'title' )
args.passage = validArg('paj', 'pages', 'page', 'passage', 'p.', 'pp.' )
args['format électronique'] = args.format
args.format = false
-- span initial (id) et libellé
local spanInitial, spanFinal = Commun.spanInitial ( args, validArg )
wiki.minsert( spanInitial, Commun.libelle( args ) )
-- indication de langue
local indicLangue, codeLangue = Commun.indicationDeLangue ( args, validArg )
if indicLangue and indicLangue ~= '' then
wiki.minsert( indicLangue, ' ' )
end
-- Liste des auteurs et de leur responsabilités (principale et secondaire)
local auteur = validArg( 'nom1', 'nom', 'auteur1', 'auteur', 'auteurs', 'auteur institutionnel', 'last1', 'last', 'author1', 'author' )
if auteur then
if validArg( 'auteurs' ) then
wiki.minsert( args.auteurs )
if validArg( 'et al.', 'et alii' ) then
wiki.minsert( " ''<abbr class=\"abbr\" title=\"et alii (et d’autres)\">et al.</abbr>''" )
end
else
wiki.minsert( Commun.responsabilitePrincipale( args, validArg ) )
end
wiki.minsert( Commun.responsabiliteSecondaire( args, validArg ), ', ' )
args.categ.auteur = validArg( 'auteur', 'auteurs', 'author1', 'author', 1, 2, 3, 4 )
args.categ.coauteur = validArg( 'coauteurs', 'coauteur', 'coauthors' )
end
-- titre, sous-titre
if args.titre then
if codeLangue then
local dir = Langue.directionLangue( codeLangue )
if dir == 'rtl' then dir = '" dir="rtl'
else dir = nil
end
wiki.minsert( '<span lang="', codeLangue, dir, '">')
end
local titre, sousTitre = args.titre, validArg( 'sous-titre' )
if sousTitre then
titre = titre .. ' : ' .. sousTitre
end
titre = Commun.fusionTexteLien( titre, args['lien titre'], args.categ )
wiki.minsert( '« <cite style="font-style:normal;">', titre, '</cite> »', codeLangue and '</span>' )
else
args.categ.titre = true
wiki.minsert( '<span class="error">[[Modèl:Atik|{{Atik}}]] : paramètre « <code>titre</code> » manquant</span>' )
end
-- Titre original et traducteur
local traductionTitre = validArg( 'traduction titre', 'titre original' )
if traductionTitre and traductionTitre ~= args.titre then
wiki.minsert( ' [« ', traductionTitre, ' »]' )
end
if not auteur then
local responsabiliteSecondaire = Commun.responsabiliteSecondaire( args, validArg )
if responsabiliteSecondaire then
wiki.minsert( ' ', responsabiliteSecondaire )
end
end
-- Nature du document et établissement (pour les thèses...)
local nature = validArg( 'nature atik', 'nature ouvrage' )
if nature then
wiki.minsert( ' (', nature, ')')
end
local etablissement = validArg( 'établissement' )
if etablissement then
wiki.minsert( ', ', etablissement )
end
-- périodique
local periodique = validArg( 'peryodik', 'periodik', 'periodical', 'périodique' )
if periodique then
-- on applique le code langue spécifique ou celui de l'article
local languePeriodique = validArg( 'langue périodique' )
if languePeriodique then
languePeriodique = Langue.codeLangue2( languePeriodique )
end
languePeriodique = languePeriodique or codeLangue
if languePeriodique and languePeriodique ~= 'fr' then
periodique = Langue.lang{ languePeriodique, periodique }
end
local periodiqueEtLien = Commun.fusionTexteLien( periodique, args['lien périodique'], args.categ )
if Langue.nonLatin( periodique ) then
-- caractères non latin donc police droite
wiki.minsert( ', ', periodiqueEtLien )
else
-- le titre et son lien éventuel sont affichés en italique
wiki.minsert( ', <i>', periodiqueEtLien, '</i>' )
end
else
args.categ.periodique = true
if args.categ.titre then
wiki.minsert( ', <span class="error">paramètre « <code>périodique</code> » manquant</span>' )
else
wiki.minsert( ', <span class="error">[[Modèl:Atik|{{Atik}}]] : paramètre « <code>périodique</code> » manquant</span>' )
end
end
-- références : lieu, éditeur
local lieu = validArg( 'lieu', 'lieu édition', 'location' )
if lieu then
wiki.minsert( ', ', lieu )
end
local editeur = validArg( 'éditeur', 'publisher' )
if editeur then
local lienEditeur = validArg( 'lien éditeur' )
wiki.minsert( ', ', Commun.fusionTexteLien( editeur, lienEditeur, args.categ ) )
end
-- références : série, volume
local hors_serie = false-- booléen utilisé plus bas pour ne pas insérer de virgule dans certains cas.
local serie = validArg( 'série' )
if serie then
if tonumber( serie ) then
wiki.minsert( ', ', Nombre2texte.ordinal( serie, true ), ' série' )
else
if string.match( serie, '<sup>e</sup>$') then
wiki.minsert( ', ', serie, ' série' )
elseif string.gmatch( serie, '^[Hh]ors[- ][Ss]érie') then
wiki.minsert( ', ', serie:sub(1,1):lower()..serie:sub(2) )
if string.gmatch( serie, '^[Hh]ors[- ][Ss]érie$') then
hors_serie = true
end
else
wiki.minsert( ', série ', serie )
end
end
end
local volume = validArg( 'volume', 'vol' )
if volume then
wiki.minsert( ', ', Commun.vol, volume )
end
local tome = validArg( 'tome' )
if tome then
wiki.minsert( ', ', Commun.tome, tome )
end
local titreVolume = validArg( 'titre volume', 'titre vol' )
if titreVolume then
if codeLangue then
wiki.minsert( ' ', Langue.lang{ codeLangue, '« ' .. titreVolume .. ' »' } )
else
wiki.minsert( ' « ', titreVolume, ' »' )
end
end
-- références : n° du périodique et titre du n° et date de publication
local numero = validArg( 'numéro', 'no', 'issue' )
if numero then
if hors_serie==true and not (volume or tome or titreVolume) then
wiki.minsert( ' ' )
else
wiki.minsert( ', ' )
end
if mw.ustring.match( numero, "^%d+ ?[-–—/,;àe]t? ?%d" ) then
wiki.minsert( Commun.numeros, numero )
else
wiki.minsert( Commun.numero, numero )
end
end
local titreNumero = validArg( 'titre numéro', 'titre no' )
if titreNumero then
if codeLangue then
wiki.minsert( ' ', Langue.lang{ codeLangue, '« ' .. titreNumero .. ' »' } )
else
wiki.minsert( ' « ', titreNumero, ' »' )
end
end
if validArg('ane', 'année', 'date', 'dat', 'year' ) then
args.mois = validArg( 'mois', 'saison' )
wiki.minsert( ',‎ ', Commun.inscriptionDate( args ) )
-- le &lrm est une marque de texte gauche à droite, utile si le texte qui précède est en droite à gauche (arabe, hébreu, etc.)
else
args.categ.date = true
if args.categ.titre or args.categ.periodique then
wiki.minsert( ', <span class="error">paramètre « <code>date</code> » manquant</span>' )
else
wiki.minsert( ', <span class="error">[[Modèl:Atik|{{Atik}}]] : paramètre « <code>date</code> » manquant</span>' )
end
end
-- format livre
local format = validArg( 'format livre' )
if format then
wiki.minsert( ', ', format )
end
-- pages
local page = validArg( 'paj', 'passage', 'pages', 'page', 'p.', 'pp.' )
if page then
wiki.minsert( ', ', Commun.formatePassage( page ) )
end
local noAtik = validArg( 'numéro atik' )
if noAtik then
wiki.minsert( ', atik ', Commun.numero, noAtik )
end
-- lien vers l'article en ligne (isbn, issn, pmid, doi, lire en ligne, résumé...)
-- on n'affiche "consulté le" que si "lire en ligne" ou "url" est fourni
local lireEnLigne = validArg( 'lire en ligne' )
local parametreUrl = validArg('url')
if lireEnLigne then
wiki.minsert( References.affichageLiensExternes( args, validArg, true, true ) )
elseif parametreUrl then
wiki.minsert( References.affichageLiensExternes( args, validArg, true, true ) )
else
wiki.minsert( References.affichageLiensExternes( args, validArg, true, false ) )
end
-- ajout des métadonnées COinS (ContextObjects in Spans)
wiki.minsert( Commun.COinS( args, validArg, 'atik' ) )
-- fin du span (id) et de la description de l'ouvrage
wiki.minsert( spanFinal )
-- plume "Ouvrage utilisé pour la rédaction de l'article"
if validArg( 'plume' ) then
local patternPonct = '[,.;:!?]$'
local ponctuation = wiki.concat():gsub( '%b<>', '' ):match( patternPonct )
if not ponctuation then
wiki.minsert( '.' )
end
wiki.minsert( Commun.plume )
end
-- citation et commentaire de cet ouvrage
local citation = validArg( 'extrait', 'quote', 'citation' )
if citation then
if codeLangue then
citation = Langue.lang{ codeLangue, citation }
end
wiki.minsert( ' :<blockquote>« ', citation, ' »</blockquote>' )
end
wiki.minsert( Commun.commentaire( args ) )
if mw.title.getCurrentTitle().namespace == 0 then
wiki.minsert(
args.categ.coauteur and '[[Catégorie:Recension temporaire pour le modèle Article|coauteur]]',
args.categ.langue and '[[Catégorie:Page du modèle Article comportant une erreur|langue]]',
args.categ.titre and '[[Catégorie:Page du modèle Article comportant une erreur|titre]]',
args.categ.periodique and '[[Catégorie:Page du modèle Article comportant une erreur|périodique]]',
args.categ.date and '[[Catégorie:Page du modèle Article comportant une erreur|date]]',
args.categ.lienExterne and '[[Catégorie:Page du modèle Article comportant une erreur|externe]]',
args.categ.isbnInvalid and '[[Catégorie:Page avec ISBN invalide]]',
args.categ.issnInvalid and '[[Catégorie:Page avec ISSN invalide]]'
)
if codeLangue then
if Langue.directionLangue( codeLangue ) == 'rtl' then
wiki.minsert( '[[Catégorie:Recension temporaire pour le modèle Article|rtl]]' )
end
end
end
return wiki.concat()
end
return Atik