मोड्युल:Location map

Module documentation[view] [edit] [history] [purge]
This module is subject to page protection. It is a highly visible module in use by a very large number of pages, or is substituted very frequently. Because vandalism or mistakes would affect many pages, and even trivial editing might cause substantial load on the servers, it is protected from editing.
ई आकृति कऽ प्रयोग 435,000+ पृष्ठसभमे कएल जा रहल अछि ।
पैग मात्रामे व्यवधान आ अनावश्यक सर्भर लोडसँ वचवाक लेल, कोनो भी परिवर्तनके पहिने ई आकृतिके /प्रयोगपृष्ठ उपपृष्ठ या अपन उपयोगकर्ता स्थान पर जाँचि कऽ देखी । जाँचल गेल परिवर्तनके ई आकृतिमे एक बेरमे जोड़ल जा सकैत अछि । अन्य उपयोगकर्ताक लेल, परिवर्तन करिसँ पहिने एहिसँ सम्बन्धित वार्तालाप वार्ता पृष्ठ पर करी ।
Usage

This module implements the {{Location map}} and {{Location map~}} templates. Please see the template pages for usage instructions.
The above documentation is transcluded from मोड्युल:Location map/doc. (edit | history)
Editors can experiment in this module's sandbox (create | mirror) and testcases (create) pages.
Subpages of this module.
require('Module:No globals')

local p = {}

local _getArgs = require('Module:Arguments').getArgs

local function getArgsX(args, ...)
	-- Return args after translation.
	local noTranslate = {
		[1] = true,  -- do not translate name of map
		AlternativeMap = true,
		alt = true,
		caption = true,
		label = true,
		link = true,
		mark = true,
		overlay_image = true,
	}
	args = args or _getArgs(...)
	if not args._doneTranslate_ then
		local clone = {}  -- cleaner to not change caller's table
		for k, v in pairs(args) do
			if type(v) ~= 'string' or noTranslate[k] then
				clone[k] = v
			else
				v = mw.ustring.gsub(v, '%d', {
					['०'] = '0',
					['१'] = '1',
					['२'] = '2',
					['३'] = '3',
					['४'] = '4',
					['५'] = '5',
					['६'] = '6',
					['७'] = '7',
					['८'] = '8',
					['९'] = '9',
				})
				clone[k] = v
					:gsub(' *उत्तर', 'N')
					:gsub(' *पूर्व' , 'E')
					:gsub(' *दक्षिण', 'S')
					:gsub(' *पश्चिम', 'W')
			end
		end
		clone._doneTranslate_ = true
		return clone
	end
	return args
end

local function round(n, decimals)
	local pow = 10^(decimals or 0)
	return math.floor(n * pow + 0.5) / pow
end

function p.getMapParams(map, frame)
	if not map then
		error('उपयोगक लेल स्थानक नक्शा परिभाषा नाम निर्दिष्ट होनाए चाही', 2)
	end
	local moduletitle = mw.title.new('Module:Location map/data/' .. map)
	if not moduletitle then
		error('स्थान नक्साकें परिभाषाक लेल "' .. map .. '" वैद्य नाम नै', 2)
		elseif moduletitle.exists then
		local mapData = mw.loadData('Module:Location map/data/' .. map)
		return function(name, params)
			if name == nil then
				return 'Module:Location map/data/' .. map
			elseif mapData[name] == nil then
				return ''
			elseif params then
				return mw.message.newRawMessage(tostring(mapData[name]), unpack(params)):plain()
			else
				return mapData[name]
			end
		end
	elseif mw.title.new('Template:Location map ' .. map).exists then
		local cache = {}
		if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then
			error('A frame must be provided when using a legacy location map')
		end
		return function(name, params)
			if params then
				return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }}
			else
				if name == nil then
					return 'Template:Location map ' .. map
				elseif cache[name] == nil then
					cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }}
				end
				return cache[name]
			end
		end
	else
		error('Unable to find the specified location map definition. Neither "Module:Location map/data/' .. map .. '" nor "Template:Location map ' .. map .. '" exists', 2)
	end
end

function p.data(frame, args, map)
	args = getArgsX(args, frame, {frameOnly = true})
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local params = {}
	for k,v in ipairs(args) do
		if k > 2 then
			params[k-2] = v
		end
	end
	return map(args[2], #params ~= 0 and params)
end

local hemisphereMultipliers = {
	longitude = { W = -1, w = -1, E = 1, e = 1 },
	latitude = { S = -1, s = -1, N = 1, n = 1 }
}

local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction)
	if decimal then
		if degrees then
			error(direction .. '-एकरा लेल दशमलव आ डिएमएस दोनो डिग्री प्रदान नै कएल जा सकैत अछि', 2)
		elseif minutes then
			error(direction .. '-मात्र डिएमएस डिग्रीकें सङ्ग मिनेट प्रदान कएल जा सकैत अछि', 2)
		elseif seconds then
			error(direction .. '-मात्र डिएमएस डिग्रीकें सङ्ग सेकेन्ड प्रदान कएल जा सकैत अछि', 2)
		elseif hemisphere then
			error(direction .. '-मात्र डिएमएस डिग्रीकें सङ्ग गोलार्द्ध प्रदान कएल जा सकैत अछि', 2)
		end
		local retval = tonumber(decimal)
		if retval then
			return retval
		end
		error(direction .. '-कऽ लेल बनाएल "'.. decimal .. '" मान अमान्य', 2)
	elseif seconds and not minutes then
		error('মিনিট প্রদান করা ছাড়াই ' .. direction .. '-এর জন্য সেকেন্ড প্রদান করা হয়েছে', 2)
	elseif not degrees then
		if minutes then
			error('ডিগ্রি প্রদান করা ছাড়াই ' .. direction .. '-এর জন্য মিনিট প্রদান করা হয়েছে', 2)
		elseif hemisphere then
			error('ডিগ্রি প্রদান করা ছাড়াই ' .. direction .. '-এর জন্য গোলার্ধ প্রদান করা হয়েছে', 2)
		end
		return nil
	end
	decimal = tonumber(degrees)
	if not decimal then
		error(direction .. '-लेल निर्मित "'.. degrees .. '" डिग्री मान अमान्य', 2)
	elseif minutes and not tonumber(minutes) then
		error(direction .. '-लेल निर्मित "'.. minutes .. '" मिनेट मान अमान्य', 2)
	elseif seconds and not tonumber(seconds) then
		error(direction .. '-लेल निर्मित "'.. seconds .. '"सेकेन्ड मान अमान्य', 2)
	end
	decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600
	if hemisphere then
		local multiplier = hemisphereMultipliers[direction][hemisphere]
		if not multiplier then
			error(direction .. '-लेल निर्मित "'.. hemisphere .. '" गोलार्द्ध मान अमान्य', 2)
		end
		decimal = decimal * multiplier
	end
	return decimal
end

-- Finds a parameter in a transclusion of {{Coord}}.
local function coord2text(para, coord)
	local value, direction, longitude, ew = coord:match('(%-?[.%d]+)°([NS]) (%-?[.%d]+)°([EW])')
	if para == 'longitude' then value, direction = longitude, ew end
	value = tonumber(value)
	if value then
		return value * hemisphereMultipliers[para][direction]
	end
	error('निर्देशाङ्क मान विकृत', 2)
end

-- effectively make removeBlanks false for caption and maplink, and true for everything else
-- if useWikidata is present but blank, convert it to false instead of nil
-- p.top, p.bottom, and their callers need to use this
function p.valueFunc(key, value)
	if value then
		value = mw.text.trim(value)
	end
	if value ~= '' or key == 'caption' or key == 'maplink' then
		return value
	elseif key == 'useWikidata' then
		return false
	end
end

local function getContainerImage(args, map)
	if args.AlternativeMap then
		return args.AlternativeMap
	elseif args.relief and map('image1') ~= '' then
		return map('image1')
	else
		return map('image')
	end
end

function p.top(frame, args, map)
	args = getArgsX(args, frame, {frameOnly = true, valueFunc = p.valueFunc})
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local width
	if not args.width then
		width = round((args.default_width or 240) * (tonumber(map('defaultscale')) or 1))
	elseif mw.ustring.sub(args.width, -2) == 'px' then
		width = mw.ustring.sub(args.width, 1, -3)
	else
		width = args.width
	end
	local retval = args.float == 'center' and '<div class="center">' or ''
	if args.caption and args.caption ~= '' and args.border ~= 'infobox' then
		retval = retval .. '<div class="noviewer thumb '
		if args.float == '"left"' or args.float == 'left' then
			retval = retval .. 'tleft'
		elseif args.float == '"center"' or args.float == 'center' or args.float == '"none"' or args.float == 'none' then
			retval = retval .. 'tnone'
		else
			retval = retval .. 'tright'
		end
		retval = retval .. '"><div class="thumbinner" style="width:' .. (width + 2) .. 'px'
		if args.border == 'none' then
			retval = retval .. ';border:none'
		elseif args.border then
			retval = retval .. ';border-color:' .. args.border
		end
		retval = retval .. '"><div style="position:relative;width:' .. width .. 'px' .. (args.border ~= 'none' and ';border:1px solid lightgray">' or '">')
	else
		retval = retval .. '<div style="width:' .. width .. 'px;'
		if args.float == '"left"' or args.float == 'left' then
			retval = retval .. 'float:left;clear:left'
		elseif args.float == '"center"' or args.float == 'center' then
			retval = retval .. 'float:none;clear:both;margin-left:auto;margin-right:auto'
		elseif args.float == '"none"' or args.float == 'none' then
			retval = retval .. 'float:none;clear:none'
		else
			retval = retval .. 'float:right;clear:right'
		end
		retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">'
	end
	local image = getContainerImage(args, map)
	retval = string.format(
		'%s[[File:%s|%spx|%s%s]]',
		retval,
		image,
		width,
		args.alt or ((args.label or mw.title.getCurrentTitle().text) .. ' ' .. map('name') .. 'पर अवस्थित'),
		args.maplink and ('|link=' .. args.maplink) or ''
	)
	if args.overlay_image then
		return retval .. '<div style="position:absolute;top:0;left:0">[[File:' .. args.overlay_image .. '|' .. width .. 'px]]</div>'
	else
		return retval
	end
end

function p.bottom(frame, args, map)
	args = getArgsX(args, frame, {frameOnly = true, valueFunc = p.valueFunc})
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local retval = '</div>'

	if not args.caption or args.border == 'infobox' then
		if args.border then
			retval = retval .. '<div>'
		else
			retval = retval .. '<div style="font-size:90%;padding-top:3px">'
		end
		retval = retval
		.. (args.caption or (args.label or mw.title.getCurrentTitle().text) .. ' (' .. map('name') .. ')')
		.. '</div>'
	elseif args.caption ~= ''  then
		-- This is not the pipe trick. We're creating a link with no text on purpose, so that CSS can give us a nice image
		retval = retval .. '<div class="thumbcaption"><div class="magnify">[[:File:' .. getContainerImage(args, map) .. '| ]]</div>' .. args.caption .. '</div>'
	end

	if args.switcherLabel then
		retval = retval .. '<span class="switcher-label" style="display:none">' .. args.switcherLabel .. '</span>'
	elseif args.autoSwitcherLabel then
		retval = retval .. '<span class="switcher-label" style="display:none">' .. map('name') .. 'कऽ नक्सा देखी</span>'
	end

	retval = retval .. '</div></div>'
	if args.caption_undefined then
		mw.log('निकालल गेल प्यारामिटर caption_undefined कऽ उपयोग कएल गेल अछि।')
		local parent = frame:getParent()
		if parent then
			mw.log('प्रधान छी ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		retval = retval .. '[[বিষয়শ্রেণী:সম্ভাব্য ত্রুটিসহ অবস্থান মানচিত্র|পাতা সরানো প্যারামিটার ব্যবহার করছে]]'
	end
	if map('skew') ~= '' or map('lat_skew') ~= '' or map('crosses180') ~= '' or map('type') ~= '' then
		mw.log(map().. ' মানচিত্রের নামের সংজ্ঞায় সরানো প্যারামিটার ব্যবহৃত হয়েছে')
		retval = retval .. '[[বিষয়শ্রেণী:সম্ভাব্য ত্রুটিসহ অবস্থান মানচিত্র|পাতা সরানো প্যারামিটার ব্যবহার করছে]]'
	end
	if string.find(map('name'), '|', 1, true) then
		mw.log(map().. 'पाइपक उपयोग नक्साकें नाम परिभाषित करवाक लेल कएल जाएत अछि')
		retval = retval .. '[[श्रेणी:सम्भावित त्रुटी भेल स्थानक नक्सा|पाइप कथित]]'
	end
	if args.float == 'center' then
		retval = retval .. '</div>'
	end
	return retval
end

local function markOuterDiv(x, y, imageDiv, labelDiv)
	return mw.html.create('div')
		:cssText('position:absolute;top:' .. round(y, 3) .. '%;left:' .. round(x, 3) .. '%')
		:node(imageDiv)
		:node(labelDiv)
end

local function markImageDiv(mark, marksize, label, link, alt, title)
	local builder = mw.html.create('div')
		:cssText('position:absolute;left:-' .. round(marksize / 2) .. 'px;top:-' .. round(marksize / 2) .. 'px;line-height:0')
		:attr('title', title)
	if marksize ~= 0 then
		builder:wikitext(string.format(
			'[[File:%s|%dx%dpx|%s|link=%s%s]]',
			mark,
			marksize,
			marksize,
			label,
			link,
			alt and ('|alt=' .. alt) or ''
		))
	end
	return builder
end

local function markLabelDiv(label, label_size, label_width, position, background, x, marksize)
	if tonumber(label_size) == 0 then
		return mw.html.create('div'):cssText('font-size:0%;position:absolute'):wikitext(label)
	end
	local builder = mw.html.create('div')
		:cssText('font-size:' .. label_size .. '%;line-height:110%;position:absolute;width:' .. label_width .. 'em')
	local distance = round(marksize / 2 + 1)
	local spanCss
	if position == 'top' then -- specified top
		builder:cssText('bottom:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em;text-align:center')
	elseif position == 'bottom' then -- specified bottom
		builder:cssText('top:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em;text-align:center')
	elseif position == 'left' or (tonumber(x) > 70 and position ~= 'right') then -- specified left or autodetected to left
		builder:cssText('top:-0.75em;right:' .. distance .. 'px;text-align:right')
		spanCss = 'float:right'
	else -- specified right or autodetected to right
		builder:cssText('top:-0.75em;left:' .. distance .. 'px;text-align:left')
		spanCss = 'float:left'
	end
	builder = builder:tag('span')
		:cssText('padding:1px')
		:cssText(spanCss)
		:wikitext(label)
	if background then
		builder:cssText('background-color:' .. background)
	end
	return builder:done()
end

local function getX(longitude, left, right)
	local width = (right - left) % 360
	if width == 0 then
		width = 360
	end
	local distanceFromLeft = (longitude - left) % 360
	-- the distance needed past the map to the right equals distanceFromLeft - width. the distance needed past the map to the left equals 360 - distanceFromLeft. to minimize page stretching, go whichever way is shorter
	if distanceFromLeft - width / 2 >= 180 then
		distanceFromLeft = distanceFromLeft - 360
	end
	return 100 * distanceFromLeft / width
end

local function getY(latitude, top, bottom)
	return 100 * (top - latitude) / (top - bottom)
end

function p.mark(frame, args, map)
	args = getArgsX(args, frame, {wrappers = 'Template:Location map~'})
	if not map then
		map = p.getMapParams(args[1], frame)
	end
	local x, y, longitude, latitude
	longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, args.long, 'longitude')
	latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, args.lat, 'latitude')
	if args.coordinates then
--		Temporarily removed to facilitate infobox conversion. See [[Wikipedia:Coordinates in infoboxes]]

--		if longitude or latitude then
--			error('Coordinates from [[Module:Coordinates]] and individual coordinates cannot both be provided')
--		end
		longitude = coord2text('longitude', args.coordinates)
		latitude = coord2text('latitude', args.coordinates)
	elseif not longitude and not latitude and args.useWikidata then
		-- If they didn't provide either coordinate, try Wikidata. If they provided one but not the other, don't.
		local entity = mw.wikibase.getEntity()
		if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1].mainsnak.snaktype == 'value' then
			local value = entity.claims.P625[1].mainsnak.datavalue.value
			longitude, latitude = value.longitude, value.latitude
		end
	end
	if not longitude then
		error('देशान्तरक लेल कोनो मान प्रयोग नै कएल गेल')
	elseif not latitude then
		error('अक्षांशक लेल कोनो मान प्रयोग नै कएल गेल')
	end
	local builder = mw.html.create()
	if (not args.lon_deg) ~= (not args.lat_deg) then
		builder:wikitext('[[श्रेणी:विभिन्न देशान्तर आ अक्षांश विवरण सहित स्थानक नक्सा|डिग्री]]')
	elseif (not args.lon_min) ~= (not args.lat_min) then
		builder:wikitext('[[श्रेणी:विभिन्न देशान्तर आ अक्षांश विवरण सहित स्थानक नक्सा|मिनेट]]')
	elseif (not args.lon_sec) ~= (not args.lat_sec) then
		builder:wikitext('[[श्रेणी:विभिन्न देशान्तर आ अक्षांश विवरण सहित स्थानक नक्सा|सेकेन्ड]]')
	elseif (not args.lon_dir) ~= (not args.lat_dir) then
		builder:wikitext('[[श्रेणी:विभिन्न देशान्तर आ अक्षांश विवरण सहित स्थानक नक्सा|गोलार्द्ध]]')
	elseif (not args.long) ~= (not args.lat) then
		builder:wikitext('[[श्रेणी:विभिन्न देशान्तर आ अक्षांश विवरण सहित स्थानक नक्सा|दशमलव]]')
	end
	if args.skew or args.lon_shift or args.markhigh then
		mw.log('अमान्य प्यारामिटर उपयोग कएल गेल।')
		local parent = frame:getParent()
		if parent then
			mw.log('प्रधान छी ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		builder:wikitext('[[श्रेणी:सम्भावित त्रुटी भेल स्थानक नक्सा|पृष्ठ घसकाएल मापदण्डक प्रयोग कएल गेल]]')
	end
	if map('x') ~= '' then
		x = tonumber(mw.ext.ParserFunctions.expr(map('x', { latitude, longitude })))
	else
		x = tonumber(getX(longitude, map('left'), map('right')))
	end
	if map('y') ~= '' then
		y = tonumber(mw.ext.ParserFunctions.expr(map('y', { latitude, longitude })))
	else
		y = tonumber(getY(latitude, map('top'), map('bottom')))
	end
	if (x < 0 or x > 100 or y < 0 or y > 100) and not args.outside then
		mw.log('निसानकें नक्साक सीमाकें बाहर बिना झण्डाकें बाहर राखल गेल अछि। x = ' .. x .. ', y = ' .. y)
		local parent = frame:getParent()
		if parent then
			mw.log('प्रधान छी ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		builder:wikitext('[[श्रेणी:सम्भावित त्रुटीक सङ्ग स्थिति मानचित्र|कोनो ध्वज नै बाहरी नक्साक  सङ्ग प्रमाणित कएल गेल छल]]')
	end
	local mark = args.mark or map('mark')
	if mark == '' then
		mark = 'Red pog.svg'
	end
	local marksize = tonumber(args.marksize) or tonumber(map('marksize')) or 8
	local imageDiv = markImageDiv(mark, marksize, args.label or mw.title.getCurrentTitle().text, args.link or '', args.alt, args[2])
	local labelDiv
	if args.label and args.position ~= 'none' then
		labelDiv = markLabelDiv(args.label, args.label_size or 90, args.label_width or 6, args.position, args.background, x, marksize)
	end
	return builder:node(markOuterDiv(x, y, imageDiv, labelDiv))
end

local function switcherSeparate(s)
	if s == nil then return {} end
	local retval = {}
	for i in string.gmatch(s .. '#', '([^#]*)#') do
		i = mw.text.trim(i)
		retval[#retval + 1] = (i ~= '' and i)
	end
	return retval
end

function p.main(frame, args, map)
	args = getArgsX(args, frame, {wrappers = 'Template:Location map', valueFunc = p.valueFunc})
	if args.useWikidata == nil then
		args.useWikidata = true
	end
	if not map then
		if args[1] then
			map = {}
			for mapname in string.gmatch(args[1], '[^#]+') do
				map[#map + 1] = p.getMapParams(mapname, frame)
			end
			if #map == 1 then map = map[1] end
		else
			map = p.getMapParams('पृथ्वी', frame)
		end
	end
	if type(map) == 'table' then
		local altmaps = switcherSeparate(args.AlternativeMap)
		if #altmaps > #map then
			error(string.format('%d AlternativeMaps प्रदान कएल गेल, मुदा मात्र %d नक्सा उपलब्ध कराएल गेल', #altmaps, #map))
		end
		local overlays = switcherSeparate(args.overlay_image)
		if #overlays > #map then
			error(string.format('%d overlay_images प्रदान कएल गेल, मुदा मात्र %d नक्सा उपलब्ध कराएल गेल', #overlays, #map))
		end
		local outputs = {}
		args.autoSwitcherLabel = true
		for k,v in ipairs(map) do
			args.AlternativeMap = altmaps[k]
			args.overlay_image = overlays[k]
			outputs[k] = p.main(frame, args, v)
		end
		return '<div class="switcher-container">' .. table.concat(outputs) .. '</div>'
	else
		return p.top(frame, args, map) .. tostring( p.mark(frame, args, map) ) .. p.bottom(frame, args, map)
	end
end

return p