Moduuli:Fr:Biblio/Lien web

---

local Lien = { }

local Commun = require( 'Module:Fr:Biblio/Commun' )
local References = require( 'Module:Fr:Biblio/Références' )
--local Langue = require( 'Module:Fr:Langue' )

-- Si un concat est effectué pendant les traitements,
-- permet de réutiliser ensuite son résultat, au lieu de refaire un concat complet à la fin des traitements.
local function intermediateConcat( array )
	local state = table.concat( array )

	array[ 1 ] = state
	for i = 2, #array do
		array[ i ] = nil
	end

	return state
end

local function formatLien( args, dead )
	-- La table wiki va recevoir tous les petits morceaux de texte, et sera concaténée à la fin.
	local wiki = {}

	-- permet d'écrire "insert( value )" au lieu de "wiki[#wiki+1] = value"
	local function insert( value )
		wiki[#wiki+1] = value
	end

	local modele = '[[Modèle:Lien web|{{Lien web}}]]'
	if dead then
		modele = '[[Modèle:Lien brisé|{{Lien brisé}}]]'
	end

	-- 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 function validArg( ... )
		return Commun.validTextArg( args, ... )
	end

	-- Variables servant à la catégorisation
	args.categ = {}
	if validArg( 'dead-url', 'deadurl', 'brisé le', 'lien brisé' ) then
		dead = true
	end

	-- Span initial, id
	local spanInitial, spanFinal = Commun.spanInitial( args, validArg )
	insert( spanInitial )

	-- libellé
	insert( Commun.libelle( args ) or nil )

	-- indication de langue
	local indicLangue, codeLangue = Commun.indicationDeLangue( args, validArg )
	if indicLangue and indicLangue ~= '' then
		insert( indicLangue .. ' ' )
	end

	-- Liste des auteurs et de leurs responsabilités (principales et secondaires)
	local auteur = validArg( 'Tekijä', 'nom1', 'nom', 'auteur1', 'auteur', 'auteurs', 'auteur institutionnel', 'last1', 'last', 'author1', 'author' )
	if auteur then
		local auteurs = validArg( 'Tekijä', 'tekijä', 'auteurs' )
		if auteurs then
			insert( auteurs )
		else
			insert( Commun.responsabilitePrincipale( args, validArg ) or nil )
		end
		local coauteur = validArg( 'co-auteur', 'coauteurs', 'coauteur', 'coauthors' )
		if coauteur then
			insert( ', ' .. coauteur )
		end
		insert( Commun.responsabiliteSecondaire( args, validArg ) or nil )
		insert( ', ' )
	end

	-- url
	local url = validArg( 'Osoite', 'url', 'lire en ligne', 'url texte', 'lien', 'www' )
	local archiveUrl = validArg( 'Arkisto', 'archive-url', 'archiveurl' )
	if url then
		-- remplacement des crochets et espaces par leur équivalent HTML
		url = url:gsub( '%[', '%%5B' ):gsub( '%]', '%%5D' ):gsub( ' ', '%%20' )
		-- ajout http:// si nécessaire :
		if not ( url:match( '^https?://' ) or url:match( '^ftp://' ) or url:match( '^//' ) ) then
			url = 'http://' .. url
		end
		if dead or archiveUrl then
			insert( '<span class="noarchive">' )
		end
	elseif not validArg( 'pmid', 'pmcid', 'doi', 'jstor', 'bibcod', 'math reviews', 'zbl', 'zbmath', 'arxiv' ) then
		args.categ.url = true
	end

	-- titre
	local titre = validArg( 'Nimeke', 'Nimike', 'Otsikko', 'titre', 'title' )
	local description = validArg( 'description' )
	if titre then
		-- suppression des retours ligne éventuels, sinon MediaWiki ne reconnaît pas le lien externe
		-- et remplacement des crochets par leur équivalent HTML (uniquement le crochet de fermeture)
		titre = titre:gsub( '\n', ' ' ):gsub( '%]', '&#93;' )

		-- on teste d'abord si titre contient déjà des guillemets
		--local lQuote = ' '
		--local rQuote = ' '
		--if titre:match( '^«.+»$' ) then
			--lQuote = ''
			--rQuote = ''
		--end

		-- par précaution, ne pas modifier la valeur de la variable locale "titre"
		local sousTitre = validArg( 'sous-titre' )
		if sousTitre then
			sousTitre = ' : ' .. sousTitre
		else
			sousTitre = ''
		end

		local attributStyle = ' style="font-style:normal;"'
		if dead and not archiveUrl then
			attributStyle = ' style="font-style:normal; color:var(--color-link-red, #d73333);"'
		end

		local attributLang = ''
		if codeLangue then
			attributLang = ' lang="' .. codeLangue .. '"'
		end

		--insert( lQuote )
		if url then
			insert( '[' .. url .. ' ' )
		end
		insert( '<cite' .. attributStyle .. attributLang .. '>' )
		insert( titre .. sousTitre )
		insert( '</cite>' )
		if url then
			insert( ']' )
		end
		--insert( rQuote )

		-- traduction titre
		local traductionTitre = validArg( 'traduction titre' )
		if traductionTitre and traductionTitre ~= args.titre then
			insert( ' [ ' .. traductionTitre .. ' ]' )
		end
		if description then
			insert( ', ' .. description )
		end
	elseif description then
		if url then
			insert( '[' .. url .. ' ' )
		end
		if dead and not archiveUrl then
			insert( '<span style="color:var(--color-link-red, #d73333);">' )
			insert( description )
			insert( '</span>' )
		else
			insert( description )
		end
		if url then
			insert( ']' )
		end
	else
		args.categ.titre = true
		if url then
			insert( '[' .. url .. ']' )
		end
	end

	-- message d'erreur
	-- module is for some reason being used with journals as well which won't always have url
	-- relax the error slightly so only if both are missing we give notice:
	-- possibly somewhere above either is not correctly set currently, track the bug
	--if not args.categ.url and not args.categ.titre then
	if args.categ.url or args.categ.titre then
		local absent = { }
		if args.categ.url then
			table.insert( absent, ' <code>url</code> ' )
		end
		if args.categ.titre then
			table.insert( absent, ' <code>titre</code> ' )
		end
		table.insert( wiki, 1, '<span class="error">Modèle '
			.. modele .. ' : parametri' .. ( #absent > 1 and 's ' or ' ' )
			.. mw.text.listToText( absent ) .. ' puuttuu' .. ( #absent > 1 and 's' or '' )
			.. '.&ensp;</span>'
		)
	end

	-- liens archives pour les liens brisés
	if url and dead and not archiveUrl then
		insert( '<sup class="plainlinks">('
			.. '[https://web.archive.org/web/*/' .. url .. ' Archive.org] • '
			.. '[https://archive.wikiwix.com/cache/?url=' .. url .. ' Wikiwix] • '
			.. '[https://archive.is/' .. url .. ' Archive.is] • '
			.. '[https://webcache.googleusercontent.com/search?hl=fr&q=cache:' .. url .. ' Google] • '
			.. '[[Projet:Correction des liens externes#J\'ai trouvé un lien mort, que faire ?|Que faire ?]]'
			.. ')</sup>'
		)
	elseif archiveUrl then
		if not ( archiveUrl:match( '^http' ) or archiveUrl:match( '^//' ) ) then
			archiveUrl = 'http://' .. archiveUrl
		end
		local textArchive = 'archive'
		local dateArchive = validArg( 'Arkistoitu', 'archive-date', 'archivedate' )
		if dateArchive then
			dateArchive = Commun.inscriptionDate{ date = dateArchive }
			textArchive = ' arkistoitu '
		end
		insert( ' <small class="plainlinks cachelinks">&#91;[' .. archiveUrl .. ' ' .. textArchive .. ']&#93;</small>' )
	end
	if url and ( dead or archiveUrl ) then
		insert( '</span>' )
	end

	-- affichage de l'icône du niveau d'accès à l'information
	local paywall = validArg( 'accès url', 'url-access' )
	if paywall then
		local suffixeIcone = References.indicationIconeAcces( paywall )
		if suffixeIcone and suffixeIcone ~= '' then
			insert( suffixeIcone )
		else
			table.insert( wiki, 1, '<span class="error">Modèle '
				.. modele .. ' : paramètre  <code>accès url</code>  utilisé avec la valeur <code>'
				.. paywall .. '</code> inconnue.&ensp;</span>'
			)
		end
	end

	-- format
	local indicationDeFormat = References.indicationDeFormat( validArg( 'Tiedostomuoto', 'format électronique', 'format' ) )
	if indicationDeFormat and indicationDeFormat ~= '' then
		insert( indicationDeFormat )
	end

	-- Nature du document
	local nature = validArg( 'nature document' )
	if nature then
		insert( ' (' .. nature .. ')' )
	end

	-- série, site, éditeur
	local serie = validArg( 'série', 'work' )
	if serie then
		insert( ', <span class="italique">' .. serie .. '</span>' )
		args.categ.work = validArg( 'work' )	-- il y a ambiguïté sur l'utilisation de ce paramètre
	end
	local site = validArg( 'site', 'website' )
	if site then
		insert( ', sur <span class="italique">' .. site .. '</span>' )
	end
	local periodique = validArg( 'Julkaisu', 'périodique' )
	if periodique then
		insert( ', <i>' .. periodique .. '</i>' )
	end
	local lieu = validArg( 'Julkaisupaikka', 'lieu', 'lieu édition', 'location' )
	if lieu then
		insert( ', ' .. lieu )
	end
	local editeur = validArg( 'Julkaisija', 'éditeur', 'publisher', 'editeur' )
	if editeur then
		local lienEditeur = validArg( 'lien éditeur' )
		if lienEditeur then
			insert( ', [[' .. lienEditeur .. '|' .. editeur .. ']]' )
		else
			insert( ', ' .. editeur )
		end
	end

	-- date
	-- fiwiki lokalisaatio
	if validArg( 'Vuosi', 'Ajankohta', 'année', 'date', 'year', 'en ligne le', 'en ligne' ) then
		args.categ.enLigneLe = validArg( 'date' ) and validArg( 'en ligne le' ) and args.date ~= args['en ligne le']
		args.date = validArg( 'date', 'en ligne le', 'en ligne' )
		local dateFormatee = Commun.inscriptionDate( args )
		if dateFormatee and dateFormatee ~= '' then
			local Langue = require( 'Module:Fr:Langue' )
			local lrm = ''
			if Langue.nonLatin( intermediateConcat( wiki ) ) then
				lrm = '&lrm;'
			end
			insert( ',' .. lrm .. ' ' .. dateFormatee )
		end
	end

	-- liens externes (isbn, doi...) et "consulté le" entre parenthèses, et en plus petit, sauf en note
	local liensExternes = References.affichageLiensExternes( args, validArg, false, true )
	if liensExternes and liensExternes ~= '' then
		insert( liensExternes )
	end

	-- fin du span
	insert( spanFinal )

	-- citation et passage
	-- fiwiki lokalisaatio
	local citation = validArg( 'Lainaus', 'citation', 'extrait', 'quote' )
	if citation then
		if codeLangue then
			local Langue = require( 'Module:Fr:Langue' )
			citation = Langue.lang{ codeLangue, citation }
		end
		insert( '\194\160: <span class="citation"> ' .. citation .. ' </span>' )
	end
	-- fiwiki lokalisaatio
	local passage = validArg( 'sivu', 'sivut', 'page', 'pages', 'passage' )
	if passage then
		insert( ', ' .. Commun.formatePassage( passage ) )
	end

	-- Plume "Ouvrage utilisé pour la rédaction de l'article"
	if validArg( 'plume' ) then
		local patternPonct = '[,.;:!?] ?»?$'
		local ponctuation = intermediateConcat( wiki ):gsub( '%b<>', '' ):match( patternPonct )
		if not ponctuation then
			insert( '.' )
		end
		insert( Commun.plume )
	end

	if mw.title.getCurrentTitle().namespace == 0 then
		insert(
			( args.categ.langue and '[[Catégorie:Page du modèle Lien web comportant une erreur|langue]]' or '' )
			.. ( args.categ.url and '[[Catégorie:Page du modèle Lien web comportant une erreur|Url]]' or '' )
			.. ( args.categ.titre and '[[Catégorie:Page du modèle Lien web comportant une erreur|titre]]' or '' )
			.. ( args.categ.enLigneLe and '[[Catégorie:Page du modèle Lien web comportant une erreur|enLigneLe]]' or '' )
			.. ( args.categ.isbnInvalid and '[[Luokka:Sivut, joissa on virheellinen ISBN-tunniste]]' or '' )
			.. ( args.categ.issnInvalid and '[[Luokka:Sivut, joissa on virheellinen ISSN-tunniste]]' or '' )
		)
	end

	if dead and not validArg( 'nocat' ) then
		if mw.title.getCurrentTitle().namespace == 0 then
			insert( '[[Catégorie:Article contenant un lien mort]]' )
		else
			insert( '[[Catégorie:Page contenant un lien mort]]' )
		end
	end

	return table.concat( wiki )
end

function Lien.lienWeb( args )
	return formatLien( args, false )
end

function Lien.lienBrise( args )
	args.titre = Commun.validTextArg( args, 'titre', 'title', 'url', 'lire en ligne', 'url texte', 'lien' )
	return formatLien( args, true )
end

return Lien