Module:Coordinates and Module:Coordinates/sandbox: Difference between pages

{{#invoke:Coordinates | coord }} : General function formatting and displaying

{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal

{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format

{{#invoke:Coordinates | link }} : Export the link used to reach the tools

require('strict')

local isSandbox = mw.getCurrentFrame():getTitle():find('sandbox', 1, true);

local coord_link = 'https://geohack.toolforge.org/geohack.php?pagename=' .. page_name .. '&params='

local function displaytitle(coords)

return mw.getCurrentFrame():extensionTag{

name = 'indicator',

args = { name = 'coordinates' },

content = '<span id="coordinates">[[Geographic coordinate system|Coordinates]]: ' .. coords .. '</span>'

}

local function dmsTest(first, second)

return coordinates[funcName](args, frame)

result = result .. '<strong class="error">Coordinates: ' .. v[2] .. '</strong><br />'

mode is the display mode (dec or dms) that we will need to determine the css class for

.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '

.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'

.. '</span>'

geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"

.. geodeclat .. ' '

.. geodeclong

.. '</span>'

.. coordinateSpec["dec-lat"] .. '; '

.. coordinateSpec["dec-long"]

.. '</span>'

inner = inner .. geodechtml

inner = inner .. '<span class="vcard">' .. geodechtml

local stylesheetLink = 'Module:Coordinates' .. ( isSandbox and '/sandbox' or '' ) .. '/styles.css'

return mw.getCurrentFrame():extensionTag{

name = 'templatestyles', args = { src = stylesheetLink }

} .. '<span class="plainlinks nourlexpansion">[' .. coord_link .. uriComponents ..

' ' .. inner .. ']</span>' .. '[[Category:Pages using gadget WikiMiniAtlas]]'

local function convert_dec2dms_dm(coordinate)

--[[

Helper function, convert decimal latitude or longitude to

degrees, minutes, and seconds format based on the specified precision.

local decimal = factor * (degrees+(minutes+seconds/60)/60)

--[[

--[[

end

Transforms decimal format latitude and longitude into the

errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );

coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}

Transforms degrees, minutes, seconds format latitude and longitude

local coordinateSpec, errors, backward = {}, {}

lat_d, long_d, lat_m, long_m, lat_s, long_s, lat_f, long_f, backward = long_d, lat_d, long_m, lat_m, long_s, lat_s, long_f, lat_f, true;

end

if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then

if lat_f:upper() == 'S' then

if long_f:upper() == 'W' then

end

end

end

end

return coordinateSpec, errors, backward

--[[

local backward, primary = false, false

end

-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation

-- wikiminiatlas doesn't support D;D notation

-- #coordinates parserfunction doesn't support negative decimals with NSWE

result.param = table.concat({

math.abs(tonumber(args[1])),

((tonumber(args[1]) or 0) < 0) and 'S' or 'N',

math.abs(tonumber(args[2])),

((tonumber(args[2]) or 0) < 0) and 'W' or 'E',

args[3] or ''}, '_')

result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],

result, errors, backward = parseDMS(args[1], args[2], nil, args[3],

result, errors, backward = parseDMS(args[1], nil, nil, args[2],

end

return errorPrinter({{"formatTest", "Unknown argument format"}}) .. '[[Category:Pages with malformed coordinate tags]]'

if args[v] then

return ret, backward

local function makeWikidataCategories(qid)

local qid = qid or mw.wikibase.getEntityIdForCurrentPage()

if qid and mw.wikibase.entityExists(qid) and mw.wikibase.getBestStatements(qid, "P625") and mw.wikibase.getBestStatements(qid, "P625")[1] then

local snaktype = mw.wikibase.getBestStatements(qid, "P625")[1].mainsnak.snaktype

{{#invoke:Coordinates | link }}

{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |

end

{{#invoke:Coordinates | dms2dec | direction_flag | degrees |

direction_flag is one of N, S, E, W, and determines whether the output is

{{#invoke:Coordinates | coord }}

{{#invoke:Coordinates | coord | lat | long }}

{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}

Refer to {{coord}} documentation page for many additional parameters and

order to load coordinates into the database, the {{#coordinates:}} parser

if not tonumber(args[1]) and not args[2] then

args[3] = args[1]; args[1] = nil

local entity = mw.wikibase.getEntityObject(args.qid)

if entity

args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude

args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude

precision = -math_mod._round(math.log(precision)/math.log(10),0)

args[1] = math_mod._round(args[1],precision)

args[2] = math_mod._round(args[2],precision)

local contents, backward = formatTest(args)

-- it and ti are short for inline,title and title,inline

local function coord_wrapper(in_args)

-- Calls the parser function {{#coordinates:}}.

return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or ''

end

text = text .. '<span class="geo-inline">' .. contents .. Notes .. '</span>'

-- Add to output since indicator content is invisible to Lua later on

if not isInline(Display) then

text = text .. '<span class="geo-inline-hidden noexcerpt">' .. contents .. Notes .. '</span>'

end

text = text .. displaytitle(contents .. Notes) .. makeWikidataCategories(args.qid)

end

if not args.nosave then

local page_title, count = mw.title.getCurrentTitle(), 1

if backward then

local tmp = {}

while not string.find((args[count-1] or ''), '[EW]') do tmp[count] = (args[count] or ''); count = count+1 end

tmp.count = count; count = 2*(count-1)

while count >= tmp.count do table.insert(tmp, 1, (args[count] or '')); count = count-1 end

for i, v in ipairs(tmp) do args[i] = v end

else

while count <= 9 do args[count] = (args[count] or ''); count = count+1 end

end

if isInTitle(Display) and not page_title.isTalkPage and page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end

args.notes, args.format, args.display = nil

text = text .. coord_wrapper(args)

end

--[[

coord2text

Extracts a single value from a transclusion of {{Coord}}.

IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coord2text | {{Coord}} | parameter }}

Valid values for the second parameter are: lat (signed integer), long (signed integer), type, scale, dim, region, globe, source

]]

function coordinates._coord2text(coord,type)

if coord == '' or type == '' or not type then return nil end

type = mw.text.trim(type)

if type == 'lat' or type == 'long' then

local result, negative = mw.text.split((mw.ustring.match(coord,'[%.%d]+°[NS] [%.%d]+°[EW]') or ''), ' ')

if type == 'lat' then

result, negative = result[1], 'S'

else

result, negative = result[2], 'W'

end

result = mw.text.split(result, '°')

if result[2] == negative then result[1] = '-'..result[1] end

return result[1]

else

return mw.ustring.match(coord, 'params=.-_' .. type .. ':(.-)[ _]')

end

end

function coordinates.coord2text(frame)

return coordinates._coord2text(frame.args[1],frame.args[2])

end

--[[

coordinsert

Injects some text into the Geohack link of a transclusion of {{Coord}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Coord}}.

IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}

Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} documentation.

]]

function coordinates.coordinsert(frame)

-- for the 2nd or later integer parameter (the first is the coord template, as above)

for i, v in ipairs(frame.args) do

if i ~= 1 then

-- if we cannot find in the coord_template the i_th coordinsert parameter e.g. region

if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then

-- find from the params= up to the first possibly-present underscore

-- and append the i_th coordinsert parameter and a space

-- IDK why we're adding a space but it does seem somewhat convenient

frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ')

end

end

end

if frame.args.name then

-- if we can't find the vcard class

if not mw.ustring.find(frame.args[1], '<span class="vcard">') then

-- take something that looks like a coord template and add the vcard span with class and fn org class

local namestr = frame.args.name

frame.args[1] = mw.ustring.gsub(

frame.args[1],

'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)',

'%1<span class="vcard">%2<span style="display:none">&#xfeff; (<span class="fn org">' .. namestr .. '</span>)</span></span>%3'

)

-- then find anything from coordinates parameters to the 'end' and attach the title parameter

frame.args[1] = mw.ustring.gsub(

frame.args[1],

'(&params=[^&"<>%[%] ]*) ',

'%1&title=' .. mw.uri.encode(namestr) .. ' '

)

end

end

-- replace the existing indicator with a new indicator using the modified content

frame.args[1] = mw.ustring.gsub(

frame.args[1],

'(<span class="geo%-inline[^"]*">(.+)</span>)\127[^\127]*UNIQ%-%-indicator%-%x+%-%-?QINU[^\127]*\127',

function (inline, coord) return inline .. displaytitle(coord) end

)

return frame.args[1]