Modul:Mapframe
Dokumentasjon for modulen kan opprettast på Modul:Mapframe/dok
local math_mod = require( "Module:Math" )
local useLanguage = {
["Q17"] = "en", -- Japan
["Q20"] = "nn", -- Noreg
["Q79"] = "en", -- Egypt
["Q115"] = "en", -- Etiopia
["Q148"] = "en", -- Kina
["Q159"] = "nn", -- Russland
["Q212"] = "nn", -- Ukraina
["Q229"] = "nn", -- Kypros
["Q230"] = "nn", -- Georgia
["Q423"] = "en", -- Nord-Korea
["Q424"] = "en", -- Kambodsja
["Q668"] = "en", -- India
["Q794"] = "en", -- Iran
["Q796"] = "en", -- Irak
["Q801"] = "en", -- Israel
["Q810"] = "en", -- Jordan
["Q819"] = "en", -- Laos
["Q822"] = "en", -- Libanon
["Q836"] = "en", -- Myanmar
["Q842"] = "en", -- Oman
["Q843"] = "en", -- Pakistan
["Q846"] = "en", -- Qatar
["Q851"] = "en", -- Saudi-Arabia
["Q858"] = "en", -- Syria
["Q865"] = "en", -- Republikken Kina - Taiwan
["Q869"] = "en", -- Thailand
["Q878"] = "en", -- Dei sameinte arabiske emirate
["Q884"] = "en", -- Sør-Korea
["Q889"] = "en", -- Afghanistan
["Q902"] = "en", -- Bangladesh
["Q917"] = "en", -- Bhutan
["Q986"] = "en", -- Eritrea
["Q23792"] = "en" -- Palestina
}
local p = {}
local function lonlat(args)
local newargs = args
if not args["lat"] and not args["lon"] then
if args["breiddegrad"] and args["lengdegrad"] then
newargs["lat"] = tonumber(args["breiddegrad"]) or nil
newargs["lon"] = tonumber(args["lengdegrad"]) or nil
end
end
return newargs
end
local function selectSingleClaim(claims)
if not claims then
return nil
end
local selectedClaim = nil
for idx,claim in pairs(claims) do
if claim.rank == 'preferred' then
return claim
end
if claim.rank == 'normal' then
if not selectedClaim then
selectedClaim = claim
end
end
end
return selectedClaim
end
local function wdCoords(entity)
local wdlat,wdlon = nil,nil
if entity.claims and entity.claims["P625"] then
local claim = selectSingleClaim(entity.claims["P625"])
if claim and claim.mainsnak.datavalue then
local coord = claim.mainsnak.datavalue.value or nil
wdlat = coord["latitude"] or nil
wdlon = coord["longitude"] or nil
end
end
return wdlat,wdlon
end
local function wdGeoShape(entity)
local shape = nil
if entity.claims and entity.claims["P3896"] then
local claim = selectSingleClaim(entity.claims["P3896"])
local value = claim.mainsnak.datavalue.value or nil
if value then
local shape = {
["type"] = "ExternalData",
["service"] = "page",
["title"] = value
}
return shape
end
end
return nil
end
local function selectMapLanguage(entity)
local lang = "local"
if entity.claims and entity.claims["P17"] then
local claim = selectSingleClaim(entity.claims["P17"])
if claim and claim.mainsnak.datavalue then
local value = claim.mainsnak.datavalue.value or nil
if value then
lang = useLanguage[value["id"]] or "local"
end
end
end
return lang
end
local function mappoint(latitude,longitude,title,description)
local point = {}
point["type"] = "Feature"
local geo = {}
geo["type"] = "Point"
local pos = {}
geo["coordinates"] = pos
-- ensure the coordinates are not too long for the geojson
geo["coordinates"][1] = math_mod._round( longitude, 6 )
geo["coordinates"][2] = math_mod._round( latitude, 6 )
local prop = {}
if title then
prop["title"] = title
end
if description then
prop["description"] = description
end
prop["marker-size"] = "small"
point["properties"] = prop
point["geometry"] = geo
return point
end
local function geoline(id,stroke)
local line = {
["type"] = "ExternalData",
["service"] = "geoline",
["ids"] = id,
['properties'] = {
["stroke"] = stroke,
["stroke-width"]= 2
}
}
return line
end
local function geoshape(id,stroke,opacity)
local line = {
["type"] = "ExternalData",
["service"] = "geoshape",
["ids"] = id,
['properties'] = {
["stroke"] = stroke,
["stroke-width"]= 2,
["fill-opacity"] = opacity or 0.1
}
}
return line
end
local function showEntity(geojson,id,entity,stroke,title,opacity,createLink)
local wdlat,wdlon = wdCoords(entity)
local text = title or mw.wikibase.label(id)
local link = mw.wikibase.sitelink(id)
if createLink and text and link then
text = "[[" .. link .. "|" .. text .. "]]"
end
local description = nil
if createLink then
if entity.claims and entity.claims["P18"] then
local claim = selectSingleClaim(entity.claims["P18"])
local image = claim.mainsnak.datavalue.value or nil
if image then
description = "[[File:" .. image .. "]]"
end
end
end
local shape = geoshape(id,stroke,opacity)
table.insert(geojson, shape)
local line = geoline(id,stroke)
table.insert(geojson, line)
if wdlat and wdlon then
local point = mappoint(wdlat,wdlon,text,description)
table.insert(geojson, point)
end
return geojson
end
-- Visualize an entity through boundary, marker with name of entity. geojson updated by showEntity
local function visEntity(geojson,id,stroke,opacity)
if not id then
return nil
end
local entity = mw.wikibase.getEntity(id)
if not entity then
return nil
end
return showEntity(geojson,id,entity,stroke,nil,opacity,"createLink")
end
local function includeProp(geojson,entity,prop)
if not entity or not prop or not entity.claims then
return nil
end
local claims = entity.claims[prop] or nil
if not claims then
return nil
end
local stroke = "#880000"
for idx,claim in pairs(claims) do
local qualifiers = claim.qualifiers
local endtime = nil
if qualifiers then
endtime = claim.qualifiers["P582"] or nil
end
-- todo: Test on end time simplified. This assumes that all end times are in the past
if not endtime then
local id = claim.mainsnak.datavalue.value['id'] or nil
visEntity(geojson,id,stroke,0.1)
end
end
return geojson
end
local function mapNoWikidata(args,infoboks)
local geojson = {}
local zoom = args["zoom"] or 8
local lat = args["latitude"] or args["lat"]
local lon = args["longitude"] or args["lon"]
if not lat or not lon then
return ""
end
local point = mappoint(lat,lon)
local width = tonumber(args["width"]) or 250
local height = tonumber(args["height"]) or width
local text = args["text"] or ""
table.insert(geojson, point)
local frameargs = {
['height'] = height,
['width'] = width,
['align'] = align
}
if zoom then
frameargs['zoom'] = zoom
frameargs['latitude'] = lat
frameargs['longitude'] = lon
end
local linkargs = {
['height'] = height,
['width'] = width,
['align'] = align,
['latitude'] = lat,
['longitude'] = lon,
['zoom'] = zoom or 8
}
local mlink = ''
local klink = ''
if infobox then
-- mlink = '<br/>' .. mw.getCurrentFrame():extensionTag('maplink', mw.text.jsonEncode(geojson), linkargs)
klink = '<br/>' .. mw.getCurrentFrame():expandTemplate{title='koord',args = { lat, lon, vis='tekst'} }
end
frameargs['text'] = text .. mlink .. klink
return mw.getCurrentFrame():extensionTag('mapframe', mw.text.jsonEncode(geojson), frameargs)
end
local function map2(args,infobox)
local id = args['id'] or args[1] or nil
if id == "" then
id = nil
end
local entity = mw.wikibase.getEntity(id) or nil
if not id then
if not entity then
return ""
end
id = entity.id
end
local width = args["width"] or nil
if width ~= "full" then
width = tonumber(args["width"]) or 350
end
local height = tonumber(args["height"]) or width
if height == "full" then
return ""
end
local zoom = args["zoom"] or 8
local lat = args["latitude"] or args["lat"]
local lon = args["longitude"] or args["lon"]
local includeProperty = args["include property"] or nil
local wdlat,wdlon = wdCoords(entity)
if not lat or not lon then
lat = wdlat
lon = wdlon
end
if not lon or not lat then
return ""
end
local text = args["text"] or mw.wikibase.label(id) or ""
local align = args["align"] or 'right'
local lang = selectMapLanguage(entity)
local geojson = {}
local stroke = "#ff0000"
local title = nil
local opacity = 0.1
if includeProperty then
opacity = 0.0
end
showEntity(geojson,id,entity,stroke,title,opacity)
if args['marker'] and lat and lon then
local point = mappoint(lat,lon)
table.insert(geojson, point)
end
if includeProperty then
includeProp(geojson,entity,includeProperty)
end
local frameargs = {
['height'] = height,
['width'] = width,
['align'] = align,
['lang'] = lang
}
if zoom then
frameargs['zoom'] = zoom
frameargs['latitude'] = lat
frameargs['longitude'] = lon
end
local linkargs = {
['height'] = height,
['width'] = width,
['align'] = align,
['latitude'] = lat,
['longitude'] = lon,
['zoom'] = zoom or 8,
['lang'] = lang
}
local mlink = ''
local klink = ''
if text then
if infobox then
-- mlink = '<br/>' .. mw.getCurrentFrame():extensionTag('maplink', mw.text.jsonEncode(geojson), linkargs)
klink = '<br/>' .. mw.getCurrentFrame():expandTemplate{title='koord',args = { lat, lon , vis='tekst'} }
frameargs['frameless'] = 'frameless'
return mw.getCurrentFrame():extensionTag('mapframe', mw.text.jsonEncode(geojson), frameargs) .. '<br/>' .. text .. mlink .. klink
end
frameargs['text'] = text .. mlink .. klink
end
return mw.getCurrentFrame():extensionTag('mapframe', mw.text.jsonEncode(geojson), frameargs)
-- return "<pre>" .. mw.text.jsonEncode(geojson, mw.text.JSON_PRETTY) .. "</pre>"
end
function p.infoboxLocation(frame)
-- return "<pre>" .. mw.text.jsonEncode(frame:getParent().args, mw.text.JSON_PRETTY) .. "</pre>"
local args = lonlat(mw.getCurrentFrame():getParent().args)
local argframe = mw.getCurrentFrame().args
local vis = argframe["vis"] or ""
if vis == "nei" then
return ""
end
args["width"] = args["width"] or argframe["width"] or 250
args["zoom"] = tonumber(args["zoom"]) or tonumber(argframe["zoom"]) or 8
args[1] = ""
args["align"] = "center"
local maptxt = map2(args,1)
if not maptxt or maptxt =="" then
return mapNoWikidata(args,1)
end
return maptxt
end
function p.map(frame)
-- return "<pre>" .. mw.text.jsonEncode(frame:getParent().args, mw.text.JSON_PRETTY) .. "</pre>"
return map2(mw.getCurrentFrame():getParent().args)
end
return p