Ugrás a tartalomhoz

Modul:Infobox

A Wikikönyvekből, a szabad elektronikus könyvtárból.

A modult a Modul:Infobox/doc lapon tudod dokumentálni

require"strict"
local getArgs = require"Modul:Arguments".getArgs
local wd = require"Modul:Wikidata"

local p = {}

p.row = function (args)
	args = getArgs(args)
	local val, label, group, undertag
	val = args[1]
	if not val then
		return nil
	end
	if args[3] then
		label = '[[' .. args[3] .. '|' .. args[2] .. ']]'
	else
		label = args[2]
	end
	group = args['csoportazonosító']
	undertag = not (not args['címke alatt'])
	local row = mw.html.create('tr')
	if group then
		row:addClass( 'csoport-' .. tostring(group) )
	end
	local labeltag = row:tag('td')
	labeltag:addClass(undertag and 'cimkealatt' or 'cimke')
	if not undertag then
		labeltag:css('font-weight', 'bolder')
	end
	labeltag:wikitext(label)
	labeltag:done()
	local valtag = row:tag('td')
	valtag:wikitext(val)
	valtag:done()
	return tostring(row)
end

p["ország"] = function (frame)
	local args = getArgs(frame, { wrappers = "Sablon:Infobox/Ország" })
	local cdata = require('Modul:Country data').main
	if args[1] == "-" then
		return nil
	end
	return p.row{
		cdata{ [1] = args[1], ['size'] = args[4] },
		'Ország'
	}
end

p.image = function (filename, legend, property)
	if filename == '-' then
		return nil, nil
	end
	if (not filename) and property then
		local item = mw.wikibase.getEntity()
		if not item then
			return nil, nil
		end
		local image = item:getBestStatements(string.upper(property))[1]
		if image and image.mainsnak.snaktype == 'value' then
			filename = image.mainsnak.datavalue.value
			legend = nil
			if image.qualifiers and image.qualifiers.P2096 then
				for _, snak in ipairs(image.qualifiers.P2096) do
					if snak.snaktype == 'value' then
						if snak.datavalue.value.language == 'hu' then
							legend = snak.datavalue.value.text
						elseif snak.datavalue.value.language == 'en' and not legend then
							legend = snak.datavalue.value.text
						end
					end
				end
			end
		else
			return nil, nil
		end
	end
	return filename, legend
end

p["kép"] = function (frame)
	local args = getArgs(frame, {wrappers = "Sablon:Infobox/Kép"})
	local filename, legend = p.image(args[1], args[3], args["wd-property"])
	if not filename then
		return nil
	end
	local link = "[[Fájl:" .. filename .. "|" .. (args[2] or "250px")
	if legend then
		link = link .. "|" .. legend
	end
	link = link .. "]]"
	local result = tostring(mw.html.create"tr"
		:tag"td"
		:attr("colspan", "2")
		:css("text-align", "center")
		:wikitext(link)
		:allDone()
	)
	if legend then
		result = result .. tostring(mw.html.create"tr"
			:tag"td"
			:attr("colspan", "2")
			:css("text-align", "center")
			:css("font-size", "92%")
			:wikitext(legend)
			:allDone()
		)
	end
	return result
end

local function coordRow(coordinatesLink)
	return '<tr><td colspan="2" style="text-align:center">' .. coordinatesLink .. '</td></tr>'
end

--[[
	Helyi értékű paramétereket átalakítja szám szerinti paraméterekké.
	Modul:Pozíciós térkép-ből is.
--]]
function p.coord(frame, args)
	local coorArgs = {args[9], display = args.display, format = 'dms'}
	if args[1] and args[5] then
		local hemisphereMultipliers = {
			longitude = { W = -1, w = -1, E = 1, e = 1, NY = -1, Ny = -1, ny = -1, K = 1, k = 1 },
			latitude = { S = -1, s = -1, N = 1, n = 1, D = -1, d = -1, ['É'] = 1, ['é'] = 1 }
		}
		table.insert(coorArgs, 1, hemisphereMultipliers.latitude[args[4]] and args[4] or 'N')
		table.insert(coorArgs, 2, hemisphereMultipliers.longitude[args[8]] and args[8] or 'E')
		table.insert(coorArgs, 1, args[1])
		table.insert(coorArgs, 3, args[5])
		if args[2] and args[6] then
			table.insert(coorArgs, 2, args[2])
			table.insert(coorArgs, 5, args[6])
			if args[3] and args[7] then
				table.insert(coorArgs, 3, args[3])
				table.insert(coorArgs, 7, args[7])
			end
		else
			if not args[4] or not args[8] then
				table.remove(coorArgs, 4)
				table.remove(coorArgs, 2)
			end
		end
	elseif args.lat and args.long then
		table.insert(coorArgs, 1, args.lat)
		table.insert(coorArgs, 2, args.long)
		coorArgs.precision = 'wikidata'
	else
		return nil
	end
	return frame:expandTemplate{title = 'Koord', args = coorArgs}
end

p["pozíciós térkép"] = function (frame)
	local args = getArgs(frame, {wrappers = "Sablon:Infobox/Pozíciós térkép"})
	if args[4] == '-' or args[8] == '-' then
		return nil
	end
	local mapArgs = {
		args[1],
		['felirat'] = "'''" .. (args[2] ~= '{{{név}}}' and args[2] or require'Modul:String'.simpletitle{args = {}}) .. "'''",
		['keret'] = 'none',
		['felirat pozíciója'] = args[3],
		['jel'] = args.jel or 'Green pog.svg',
		['felirat mérete'] = '100',
		['méret'] = '248',
		['igazítás'] = 'none',
		['térképtípus'] = args['térképtípus'],
		['meta'] = args.meta,
		['jel mérete'] = args['jel mérete']
	}
	if args[4] and args[8] then
		mapArgs['szélesség'] = args[7]
		mapArgs['hosszúság'] = args[11]
		mapArgs['szélességi fok'] = args[4]
		mapArgs['hosszúsági fok'] = args[8]
		if args[5] and args[9] then
			mapArgs['szélességi ívperc'] = args[5]
			mapArgs['hosszúsági ívperc'] = args[9]
			if args[6] and args[10] then
				mapArgs['szélességi ívmásodperc'] = args[6]
				mapArgs['hosszúsági ívmásodperc'] = args[10]
			end
		end
	else
		local item = mw.wikibase.getEntity()
		if item and item.claims and item.claims.P625 then
			mapArgs.lat = item.claims.P625[1].mainsnak.datavalue.value.latitude
			mapArgs.long = item.claims.P625[1].mainsnak.datavalue.value.longitude
		else
			return nil
		end
	end
	local result = {}
	local trackWikidata = false
	if not args[1] then
		if not args['koordinátakategória nélkül'] then
			table.insert(result, '[[Kategória:Koordináták térkép nélkül]]')
		end
	elseif args[1] ~= '-' then
		local title = mw.title.new('Sablon:Pozíciós térkép ' .. args[1])
		if title and title.exists then
			local success, map = pcall(require'Modul:Pozíciós térkép'.many, frame, mapArgs)
			if not success then
				map = '<strong class="error">' .. map .. '</strong>[[Kategória:Hibásan használt pozícióstérkép-sablonok]]'
			else
				trackWikidata = true
			end
			table.insert(result, '<tr><td colspan="2" align="center">' .. map .. '</td></tr>\n')
		else
			table.insert(result, '[[Kategória:Pozíciós térképet hiányoló lapok]]')
		end
	end

	if args['koordináta a térkép alatt'] then
		table.insert(result, coordRow(p.coord(frame, {args[4], args[5], args[6], args[7], 
			args[8], args[9], args[10], args[11], args.meta, display = args['koordináta a cím alatt'] and 'inline,title', 
			lat = mapArgs.lat, long = mapArgs.long})))
		trackWikidata = true
	elseif args['koordináta a cím alatt'] then
		table.insert(result, p.coord(frame, {args[4], args[5], args[6], args[7], 
			args[8], args[9], args[10], args[11], args.meta, display = 'title', 
			lat = mapArgs.lat, long = mapArgs.long}))
		trackWikidata = true
	end
	if trackWikidata and mapArgs.lat then
		table.insert(result, '[[Kategória:Wikidata koordinátákat használó lapok]]')
	end

	return table.concat(result)
end

p["koordináta"] = function (frame)
	local args = getArgs(frame, {wrappers = "Sablon:Infobox/Koordináta"})
	if args[1] == '-' or args[5] == '-' then
		return nil
	end
	if not args[1] or not args[5] then
		local item = mw.wikibase.getEntity()
		if item and item.claims and item.claims.P625 then
			args.lat = item.claims.P625[1].mainsnak.datavalue.value.latitude
			args.long = item.claims.P625[1].mainsnak.datavalue.value.longitude
		else
			return nil
		end
	end
	return coordRow(p.coord(frame, args))
end

return p