Module:Mapframe/simple

local p = {}

local Mapframe = require('Module:Mapframe')

-- This function was imported from Module:Maplink, should probably be "required" instead function parseCoords(coords) local parts = mw.text.split((mw.ustring.match(coords,'[_%.%d]+[NS][_%.%d]+[EW]') or ''), '_')

local lat_d = tonumber(parts[1]) local lat_m = tonumber(parts[2]) -- nil if coords are in decimal format local lat_s = lat_m and tonumber(parts[3]) -- nil if coords are either in decimal format or degrees and minutes only local lat = lat_d + (lat_m or 0)/60 + (lat_s or 0)/3600 if parts[#parts/2] == 'S' then lat = lat * -1 end

local long_d = tonumber(parts[1+#parts/2]) local long_m = tonumber(parts[2+#parts/2]) -- nil if coords are in decimal format local long_s = long_m and tonumber(parts[3+#parts/2]) -- nil if coords are either in decimal format or degrees and minutes only local long = long_d + (long_m or 0)/60 + (long_s or 0)/3600 if parts[#parts] == 'W' then long = long * -1 end

return lat, long end

-- Entry point for templates function p.main(frame) local parent = frame.getParent(frame) local output = p._main(parent.args) return frame:preprocess(output) end

-- Entry point for modules function p._main(_args) local targs = {} local pins = {} local del = _args['delimiter'] or '<>' local post_title_offset = _args['has_jurisdiction_metadata'] and 1 or 0 local jurisdiction_filter = _args['jurisdiction_filter'] for k,v in pairs(_args) do		if k then k = tostring(k) if k:match('^%s*%d+%s*$') then local vals = mw.text.split(v, '%s*' .. del .. '%s*') local title = vals[1					] or '' local coord = vals[2 + post_title_offset] or '' local mtype = vals[3 + post_title_offset] or _args['type'] or 'point' local markr = vals[4 + post_title_offset] or _args['marker'] or '' local msize = vals[5 + post_title_offset] or _args['marker-size'] or '' local mcolr = vals[6 + post_title_offset] or _args['marker-color'] or '' local lat,lon = parseCoords(coord) lat,lon = tonumber(lat),tonumber(lon) if jurisdiction_filter then local jurisdiction = vals[2] if mw.ustring.match(jurisdiction, jurisdiction_filter, 1) then table.insert(pins, {lat or 90, lon or -180, title, coord, mtype, markr, msize, mcolr}) end else table.insert(pins, {lat or 90, lon or -180, title, coord, mtype, markr, msize, mcolr}) end elseif k == 'delimiter' or k == 'type' or k == 'marker' or k == 'marker-size' or k == 'marker-color' or k:match('%d%s$') then else targs[k] = v			end end end table.sort(pins, function (a, b) 			return a[1] > b[1] or (a[1] == b[1] and a[2] < b[2])			end) for k,v in ipairs(pins) do		if k == 1 then k = '' end targs['title' .. k] = v[3] ~= '' and v[3] targs['coord' .. k] = v[4] ~= '' and v[4] targs['type' .. k] = v[5] ~= '' and v[5] targs['marker' .. k] = v[6] ~= '' and v[6] targs['marker-size' .. k] = v[7] ~= '' and v[7] targs['marker-color' .. k] = v[8] ~= '' and v[8] end return Mapframe._main(targs) end

return p