Módulo:Lista de episódio

Documentação do módulo[ver] [editar] [histórico] [purgar]

Uso[editar código-fonte]

{{#invoke:Lista de episódio|list}}

Ou uma sublista (que remove resumos na lista principal quando especificado) com

{{#invoke:Lista de episódio|sublist}}

Ver também[editar código-fonte]

{{Lista de episódio}}
{{Lista de episódio/sublista}}

A documentação acima é transcluída de Módulo:Lista de episódio/doc. (editar | histórico)
Editores podem experimentar nas páginas de teste (editar | dif) e de exemplos para testes (criar) deste módulo.
Subpáginas deste módulo.

local p = {}

local getArgs
local yesno = require('Módulo:Yesno')
local mm = require('Módulo:Math')
local contrast_ratio = require('Módulo:Color contrast')._ratio
local HTMLcolor = mw.loadData( 'Módulo:Color contrast/colors' )

function p.sublista(frame)
	return main(frame,true)
end

function p.lista(frame)
	return main(frame,false)
end

function idtrim(val,search)
	local valfind = string.find(val, search)
	if valfind == nil then
		return val
	else
		return string.sub(val, 0, valfind-1)
	end
end

function main(frame, sublista)
	if not getArgs then
		getArgs = require('Módulo:Arguments').getArgs
	end
	local args

	-- La mayoría de los parámetros aún deberían mostrarse cuando están en blanco, así que no elimine los espacios en blanco
	if sublista then
		args = getArgs(frame, {removeBlanks = false, wrappers = 'Predefinição:Lista de episódio/Testes/sublista'})
	else
		args = getArgs(frame, {removeBlanks = false, wrappers = 'Predefinição:Lista de episódio/Testes'})
	end
	
	local title = mw.title.getCurrentTitle()
	local page_title = mw.title.getCurrentTitle().text
	local initiallist_title = args['1'] or ''
	
	-- ¿Está esta lista en la misma página que la página llamando directamente a la plantilla?
	local on_initial_page
	
	-- Solo la sublist tenía algo de ocultación, por lo que solo es necesario verificar
	if sublista then
		on_initial_page = mw.uri.anchorEncode(page_title) == mw.uri.anchorEncode(initiallist_title)
		-- avoid processing ghost references
		if not on_initial_page then
			args.Sinopse = 'no'
			args['TítuloAlter'] = ''
		end
	else
		-- Las listas normales SIEMPRE pueden mostrar el resumen
		on_initial_page = true
	end
	
	-- Declare todas las posibles etiquetas <td> / <th> aquí, y la cadena de retorno
	local NumeroEpisodio,NumeroEpisodio2,Titulo,Aux1,Dirigido,Escrito,
			Dirigido,Aux2,Aux3,DataTransmissaoOriginal,DataAlter,DataAlter2,CodigoProd,
			Audiencia,Aux4,return_table
	
	-- Necesita solo este parámetro eliminado si está en blanco, no hay otros
	if args.Sinopse and args.Sinopse == "" then
		args.Sinopse = 'no'
	end
	if args.Sinopse then
		if not args.Sinopse:find('%S') then
			args.Sinopse = 'no'
		end
	end

	-- Color predeterminado a azul claro
	local cor_linha = args.CorLinha or 'CCCCFF'
	
	-- Agregue # al color si es necesario, y establezca el color predeterminado si no es válido
	if HTMLcolor[cor_linha] == nil then
		cor_linha = '#'..(mw.ustring.match(cor_linha, '^[%s#]*([a-fA-F0-9]*)[%s]*$') or '')
		if cor_linha == '#' then
			cor_linha = '#CCCCFF'
		end
	end
	
	-- Lista de nombres de parámetros para probar
	-- Mantener este orden como está
	local cell_names = {
		'NúmeroEpisódio2',
		'Título',
		'Aux1',
		'Dirigido',
		'Escrito',
		'Aux2',
		'Aux3',
		'DataTransmissãoOriginal',
		'DataAlter',
		'DataAlter2',
		'CódigoProd',
		'Audiência',
		'Aux4'
	}
	
	-- ¿Hay una manera de llamar a una variable por su nombre almacenado como una cadena? Dudo
	-- Esta lista hace coincidir las cadenas con las variables de celda de tabla
	local td_tags = {
		['NúmeroEpisódio2'] = NumeroEpisodio2,
		['Título'] = Titulo,
		['Aux1'] = Aux1,
		['Dirigido'] = Dirigido,
		['Escrito'] = Escrito,
		['Dirigido'] = Dirigido,
		['Aux2'] = Aux2,
		['Aux3'] = Aux3,
		['DataTransmissãoOriginal'] = DataTransmissaoOriginal,
		['DataAlter'] = DataAlter,
		['DataAlter2'] = DataAlter2,
		['CódigoProd'] = CodigoProd,
		['Audiência'] = Audiencia,
		['Aux4'] = Aux4,
	}
	
	local table_row = mw.html.create('tr')
				:addClass('vevent')
				:css('text-align','center')
	
	local row_color = yesno(args.RowColor, false)
	if args.RowColor and string.lower(args.RowColor) == 'on' then
		row_color = true
	end

	local top_color
	local epn = mm._cleanNumber(args['NúmeroEpisódio']) or 1
	if args.TopColor then
		top_color = '#'..args.TopColor
	elseif row_color and on_initial_page and mm._mod(epn,2) == 0 then
		top_color = '#E9E9E9'
	elseif on_initial_page and args.Sinopse and args.Sinopse ~= 'no' then
		top_color = '#F2F2F2'
	else
		top_color = 'inherit'
	end
		
	table_row:css('background',top_color)
	
	-- Esto decidirá el colspan= de la celda de resumen
	-- Comience como 1 porque EpisodioNúmero siempre se crea
	local nonnil_params = 1
	
	-- Creado por separado porque es la única etiqueta <th>
	
	if args['NúmeroEpisódio'] then
		if (args['NúmeroEpisódio'] == '') then args['NúmeroEpisódio'] = frame:expandTemplate{title='TableASA'}; end
		NumeroEpisodio = mw.html.create('th')
				:attr('scope','row')
				:attr('id','ep'..idtrim(idtrim(args['NúmeroEpisódio'],' ----'),'<'))
				:css('text-align','center')
				:wikitext(args['NúmeroEpisódio'])
		table_row:css('background',top_color)
		table_row:node(NumeroEpisodio)
	end
	
	-- El wikitexto en la celda Título está un poco más involucrado que los otros.
	local function add_title()
		local title_string = ''
		
		-- El título en comillas; no hay nada si está vacío
		if args['Título'] and args['Título']:find('%S') then
			title_string = title_string..'"'..args['Título']..'"'
		elseif not (
				(args['TítuloTranslit'] and args['TítuloTranslit']:find('%S')) or
				(args['TítuloNativo'] and args['TítuloNativo']:find('%S'))
			) then
			title_string = title_string .. frame:expandTemplate{title='TableASA'}
		end
		
		if args['RTítulo'] then
			title_string = title_string..args['RTítulo']
		end
		
		-- Rodea el AltTítulo con comillas; no hay nada si está vacío
		if args['TítuloAlter'] and args['TítuloAlter']:find('%S') then
			if title_string ~= '' then title_string = title_string .. '<br>' end
			title_string = title_string..'"'..args['TítuloAlter']..'"'
		elseif args['TítuloTranslit'] and args['TítuloTranslit']:find('%S') then
			if title_string ~= '' then title_string = title_string .. '<br>' end
			title_string = title_string .. 'Transcrição: "' .. args['TítuloTranslit'] .. '"'
		end
		if args['TítuloNativo'] and args['TítuloNativo']:find('%S') then
			if args['TítuloNativoIdioma'] and args['TítuloNativoIdioma']:find('%S') then
				title_string = title_string .. ' (em '..frame:expandTemplate{title='ISO 639 nome', args={args['TítuloNativoIdioma']}} ..': <span lang="'..args['TítuloNativoIdioma']..'">'..args['TítuloNativo'].. '</span>)'
			else
				title_string = title_string .. ' (' .. args['TítuloNativo'] .. ')'
			end
		end
		if args['RTítuloAlter'] then
			title_string = title_string..args['RTítuloAlter']
		end
		return title_string
	end
	
	local categories = ''

	for _,v in ipairs(cell_names) do
		-- El título está en el medio, por lo que probablemente sea mejor simplemente volver atrás una y otra vez en lugar de hacer 2 nodos
		-- luego el título, y luego el resto en un bucle
		if v == 'Título' then
			nonnil_params = nonnil_params + 1
			local title_text = add_title()
			td_tags[v] = mw.html.create('td')
			td_tags[v]:wikitext(title_text)
					:addClass('sinopse')
					:css('text-align','left')
			table_row:node(td_tags[v])
		elseif args[v] then
			-- Fechas de emisión que no usan {{Fecha}}
			if v == 'DataTransmissãoOriginal' and args[v] ~= '' and string.match(args[v], '%d%d%d%d') ~= nil and string.match(args[v], '2C2C2C') == nil and string.find(args[v],'dtfecha') == nil and on_initial_page and title.namespace == 0 then
				categories = categories..'[[Categoria:!Listas de episódios com datas de exibição não formatadas]]' 
			end
			-- Fechas de emisión alternativas que utilizan {{Fecha}}
			if v == 'DataAlter' and args[v] ~= '' and string.find(args[v],'dtstart') ~= nil and on_initial_page and title.namespace == 0 then
				categories = categories..'[[Categoria:!Listas de episódios com datas de exibição alternativas formatadas incorretamente]]' 
			end
			-- Establecer celdas vacías en ASA / ASD
			if args[v] == '' then
				-- Establezca en N/D si los espectadores no han estado disponible durante cuatro semanas, de lo contrario, configúrelo como ASD
				if v == 'Audiência' and args.DataTransmissaoOriginal and args.DataTransmissaoOriginal ~= '' then
					local day, month, year = args.DataTransmissaoOriginal:gsub("&nbsp;"," "):match("(%d+) de (%a+) de (%d+)")
					if day == nil then
						args[v] = frame:expandTemplate{title='TableASA',args={'ASD'}};
					else
						local MONTHS = {janeiro=1, fevereiro=2, marco=3, abril=4, maio=5, junho=6, julho=7, agosto=8, setembro=9, outubro=10, novembro=11, dezembro=12}
						local seconds = os.time()-os.time({day=day,month=MONTHS[month],year=year,hour=0,min=0,sec=0})
						if seconds >= 60*60*24*7*4 then args[v] = frame:expandTemplate{title='TableASA',args={'N/D'}};
						else args[v] = frame:expandTemplate{title='TableASA',args={'ASD'}}; end
					end
				else args[v] = frame:expandTemplate{title='TableASA'}; end
			end
			nonnil_params = nonnil_params + 1
			td_tags[v] = mw.html.create('td')
			td_tags[v]:wikitext(args[v])
			table_row:node(td_tags[v])
		end
	end

	-- El código de producción también tiene un atributo adicional, así que agréguelo por separado aquí
	if td_tags['CódigoProd'] and args['CódigoProd'] and (string.find(args['CódigoProd'],'ASA') == nil) then
		td_tags['CódigoProd']:attr('id','pc'..idtrim(idtrim(args['CódigoProd'],' ----'),'<'))
	end
	
	-- agregue estas categorías solo en el espacio principal y solo si están en la página donde se usa la plantilla
	if on_initial_page and title.namespace == 0 then
		if args.CorLinha and args.CorLinha ~= '' then
			local black_cr = contrast_ratio{args.CorLinha, 'black', ['error'] = 0}
			local white_cr = contrast_ratio{'white', args.CorLinha, ['error'] = 0}
			if frame:expandTemplate{title='ColorToLum',args={args.CorLinha}} == '' then
				categories = categories..'[[Categoria:!Listas de episódios com cores de linha defeituosas]]' 
			elseif black_cr < 7 and white_cr < 7 then
				categories = categories..'[[Categoria:!Listas de episódios com cores de linha não compatíveis]]' 
			end
		else
			-- categories = categories..'[[Categoria:Listas de episódios que usam CorLinha padrão]]'
		end
		
		if args.TopColor and args.TopColor ~= '' then
			categories = categories..'[[Categoria:!Listas de episódios com desvios de linha]]'

			-- Rastrea los colores superiores que tienen un índice de contraste de color inferior a AAA con
			-- respecto del color del texto, color del enlace o color del enlace visitado. Ver
			-- [[en:WP:COLOR]] para más información sobre los requisitos de contraste de color.
			local text_cr = contrast_ratio{args.TopColor, 'black', ['error'] = 0}
			local link_cr = contrast_ratio{args.TopColor, '#0B0080', ['error'] = 0}
			local visited_link_cr = contrast_ratio{args.TopColor, '#0645AD', ['error'] = 0}
			if text_cr < 7 or link_cr < 7 or visited_link_cr < 7 then
				categories = categories..'[[Categoria:!Listas de episódios com cores de topo inválidas]]'
			end
		end
	end

	-- Agrego una categoría de mantenimiento que será eliminada si se usa a través de Tabla de episodios
	-- Nota: el nombre de esta categoría debe coincidir aquí y en el Módulo:Tabla de episodios

	-- No muestre el resumen si esto se está transcluyendo en la página de la lista inicial
	-- Inclúyelo en todas las otras listas
	if on_initial_page and args.Sinopse and args.Sinopse ~= 'no' then
		local bottom_wrapper = mw.html.create('tr')
					:addClass('expand-child')
		-- corregir las listas en el breve resumen
		local ss = args.Sinopse
		if ss:match('^[*:;#]') or ss:match('^{|') then
			ss = '<span></span>\n' .. ss
		end
		if ss:match('\n[*:;#]') then
			ss = ss .. '\n<span></span>'
		end
		local Sinopse = mw.html.create('td')
					:addClass('description')
					:css('border-bottom','solid 3px '..cor_linha)
					:attr('colspan',nonnil_params)
					:newline()
					:wikitext(ss)
		bottom_wrapper:node(Sinopse)
		return tostring(table_row)..tostring(bottom_wrapper)..categories
	else
		return tostring(table_row)..categories
	end
end

return p