 | This is the module sandbox page for Module:WikidataCoord ( diff). |
 | This Lua module is used on approximately 11,000 pages and changes may be widely noticed. Test changes in the module's /sandbox or /testcases subpages, or in your own module sandbox. Consider discussing changes on the talk page before implementing them. |
This module accepts, as the first unnamed or positional parameter, a latitude and longitude string in the form returned by Wikidata or as plain-text. The lat/long is stripped of all but its numeric values which are then used in a call to Template:Coord for proper visual rendering and link to GeoHack.
Wikidata returns text strings in this form where the minute and second symbols are html numeric character references for single and double quotes:
{{#property:P625|from=Q218501}}47°34'12"N, 52°40'55"W- 47°34'12"N, 52°40'55"W
The module will accept degree-minute-second (dms) plain-text strings in the form:
47°34'12"N, 52°40'55"W
where the minutes and seconds indicators are single and double quotes or single and double prime symbols (′, ″; U+2032, U+2033)
Latitude and longitude in decimal-degree format is also accepted:
53.67667°N 112.82861°W
Because Template:Coord supports a variety of coordinate and template parameters, this module accepts but does not act on these parameter except to pass them on in the call to Template:Coord. In the module {{#invoke:}}, coordinate parameters, if provided, must be the second unnamed or positional parameter. The template parameters are named so their order in the {{#invoke:}} is not important.
A typical template use where the latitude / longitude is drawn from Wikidata might look like this:
{{#invoke:WikidataCoord|main|{{#property:P625|from={{{1|}}}}}|{{{2|}}}|display={{{display|}}}|format={{{format|}}}|name={{{name|}}}|notes={{{notes|}}}}}
require('strict')
local getArgs = require('Module:Arguments').getArgs
local p = {}
--[[--------------------------< I S _ S E T >------------------------------------------------------------------
Whether variable is set or not. A variable is set when it is not nil and not empty.
]]
local function is_set( var )
return not (var == nil or var == '');
end
--[[--------------------------< M A I N >----------------------------------------------------------------------
Template entry point. This function takes up to two unnamed positional parameters:
1 = coordinate string typically from a call to Wikidata like this: {{#property:P625|from=Q...}}
2 = coordinate parameters; see Template:Coord
Also takes the named parameters |display=, |format=, |name=, |notes= which it passes on to {{coord}}
Reformats the Wikidata coordinate string into unnamed parameters for {{coord}}
{{#invoke:WikdataCoord|main|{{#property:P625|from={{{1}}}}}|{{{2}}}|display={{{display}}}|format={{{format}}}|name={{{name}}}|notes={{{notes}}}}}
]]
function p.main (frame)
local args = getArgs(frame);
local lat_long = {}; -- table of lat/long coords extracted from wikidata return
if not is_set (args1]) then -- in case wikidata returns nothing (happens when Q... is wrong)
return '<span style="font-size:100%" class="error">{{WikidataCoord}} – missing coordinate data'; -- error message and quit
elseif mw.ustring.match (args1], '%d+°%d+'[%d%.]+"[NS],%s*%d+°%d+'[%d%.]+"[EW]') then -- if the returned data looks like 55°13'12"N, 23°17'17"E
lat_long1], lat_long2], lat_long3], lat_long4], lat_long5], lat_long6], lat_long7], lat_long8 = -- parse it into the table
mw.ustring.match (args1], '(%d+)°(%d+)'([%d%.]+)"([NS]),%s*(%d+)°(%d+)'([%d%.]+)"([EW])')
elseif mw.ustring.match (args1], '%d+°%d+'[NS],%s*%d+°%d+'[EW]') then -- if the returned data looks like 54°24'N, 25°25'E
lat_long1], lat_long2], lat_long3], lat_long4], lat_long5], lat_long6 = -- parse it into the table
mw.ustring.match (args1], '(%d+)°(%d+)'([NS]),%s*(%d+)°(%d+)'([EW])')
elseif mw.ustring.match (args1], '%d+°%d+[′\'][%d%.]+[″\"][NS],?%s*%d+°%d+[′\'][%d%.]+[″\"][EW]') then -- when args[1] is a dms string that uses quotes or primes
lat_long1], lat_long2], lat_long3], lat_long4], lat_long5], lat_long6], lat_long7], lat_long8 = -- parse it into the table
mw.ustring.match (args1], '(%d+)°(%d+)[′\']([%d%.]+)[″\"]([NS]),?%s*(%d+)°(%d+)[′\']([%d%.]+)[″\"]([EW])')
elseif mw.ustring.match (args1], '%d+°%d+[′\'][NS],?%s*%d+°%d+[′\'][EW]') then -- when args[1] is a dms string that uses quotes or primes, bit shorter format
lat_long1], lat_long2], lat_long3], lat_long4], lat_long5], lat_long6 = -- parse it into the table
mw.ustring.match (args1], '(%d+)°(%d+)[′\']([NS]),?%s*(%d+)°(%d+)[′\']([EW])')
elseif mw.ustring.match (args1], '%d+%.?%d*°[NS],?%s*%d+%.?%d*°[EW]') then -- when args[1] is a decimal degrees string
lat_long1], lat_long2], lat_long3], lat_long4 = -- parse it into the table
mw.ustring.match (args1], '(%d+%.?%d*)°([NS]),?%s*(%d+%.?%d*)°([EW])')
else
return '<span style="font-size:100%" class="error">{{WikidataCoord}} – malformed coordinate data'; -- wikidata returned something else
end
if is_set (args2]) then -- coordinate parameters are in second unnammed positional parameter
if is_set (lat_long5]) then -- set when args[1] format is dms
lat_long9 = args2];
else
lat_long5 = args2]; -- this one when args[1] is decimal degrees format
end
end
if is_set (args.display) then
lat_long.display = args.display;
end
if is_set (args.format) then
lat_long.format = args.format;
end
if is_set (args.name) then
lat_long.name = args.name;
end
if is_set (args.notes) then
lat_long.notes = args.notes;
end
return frame:expandTemplate{title = 'coord', args = lat_long} -- invoke template {{coord}} with wikidata lat/long
end
return p;