Modül:Konum haritası
Gezinti kısmına atla
Arama kısmına atla
![]() | Bu Lua modülü yaklaşık 10.000 sayfada kullanılmakta olup üzerinde yapılan değişiklikler hemen fark edilecektir. Lütfen yapacağınız değişiklikleri öncelikle şablonun deneme tahtası ile test senaryosu alt sayfalarında ya da kendi kullanıcı sayfanızda test ediniz. Eğer yapmayı planladığınız değişiklikler ile istediğiniz sonucu elde edemiyorsanız tartışma sayfasında görüş alışverişinde bulununuz. |
Bu modülle {{Konum haritası}}, {{Konum haritası~}} ve {{Yapı bilgi kutusu}} şablonları yürütülür.
Yukarıdaki belgeleme içeriği Modül:Konum haritası/belge sayfasından yansıtılmaktadır. (değiştir | geçmiş) Kullanıcılar denemelerini bu şablonun deneme tahtası (oluştur | hata) ve test senaryosu (oluştur) sayfalarında yapabilirler. Lütfen kategorileri /belge alt sayfasına ekleyin. Bu modül ile ilgili alt sayfalar için buraya tıklayınız. |
require('Modül:No globals')
local p = {}
local getArgs = require('Modül:Arguments').getArgs
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('Kullanılacak konum haritası tanımının adı belirtilmek zorundadır', 2)
end
local moduletitle = mw.title.new('Modül:Location map/data/' .. map)
if not moduletitle then
error('"' .. map .. '" konum haritası tanımı için geçerli ad değil', 2)
elseif moduletitle.exists then
local mapData = mw.loadData('Modül:Location map/data/' .. map)
return function(name, params)
if name == nil then
return 'Modül: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('Şablon:' .. map .. ' konum haritası').exists then
local cache = {}
if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then
error('Eski bir konum haritası kullanılırken bir çerçeve sağlanmalıdır')
end
return function(name, params)
if params then
return frame:expandTemplate{title = map .. ' konum haritası', args = { name, unpack(params) }}
else
if name == nil then
return 'Şablon:' .. map .. ' konum haritası'
elseif cache[name] == nil then
cache[name] = frame:expandTemplate{title = map .. ' konum haritası', args = { name }}
end
return cache[name]
end
end
elseif mw.title.new('Şablon:Location map '.. map).exists then
local cache = {}
if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then
error('Eski bir konum haritası kullanılırken bir çerçeve sağlanmalıdır')
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 'Şablon: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('Belirtilen konum haritası tanımı bulunamıyor. Ne "Modül:Location map/data/' .. map .. '" ne de "Şablon:' .. map .. ' konum haritası" var', 2)
end
end
function p.data(frame, args, map)
if not args then
args = getArgs(frame, {frameOnly = true})
end
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('Desimal ve DDS dereceleri her iki ' .. direction .. ' için değer verilebilir', 2)
elseif minutes then
error('Dakikaya ' .. direction ..' için yalnızca DDS dereceleri ile değer verilebilir', 2)
elseif seconds then
error('Saniyeye ' .. direction ..' için yalnızca DDS dereceleri ile değer verilebilir', 2)
elseif hemisphere then
error('Bir yarımküreye ' .. direction ..' için yalnızca DDS dereceleri ile değer verilebilir', 2)
end
local retval = tonumber(decimal)
if retval then
return retval
end
error(direction .. ' için verilen değer ' .. decimal .. ' için geçerli değil', 2)
elseif seconds and not minutes then
error('Ayrıca ' .. direction .. ' için değer verilen dakika olmadan saniyeye değer verildi', 2)
elseif not degrees then
if minutes then
error('Ayrıca ' .. direction .. ' için değer verilen derece olmadan dakikaya değer verildi', 2)
elseif hemisphere then
error('Ayrıca ' .. direction .. ' için değer verilen derece olmadan bir yarımküreye değer verildi', 2)
end
return nil
end
decimal = tonumber(degrees)
if not decimal then
error(direction .. ' için verilen değer ' .. degrees .. ' için geçerli değil', 2)
elseif minutes and not tonumber(minutes) then
error(direction .. ' için verilen değer ' .. minutes .. ' için geçerli değil', 2)
elseif seconds and not tonumber(seconds) then
error(direction .. ' için verilen değer ' .. seconds .. ' için geçerli değil', 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 .. ' için verilen değer ' .. hemisphere .. ' için geçerli değil', 2)
end
decimal = decimal * multiplier
end
return decimal
end
-- Finds a parameter in a transclusion of {{Coord}}.
local function coord2text(para,coord) -- this should be changed for languages which do not use Arabic numerals or the degree sign
local result = mw.text.split(mw.ustring.match(coord,'%-?[%.%d]+°[NS] %-?[%.%d]+°[EW]') or '', '[ °]')
if para == 'longitude' then result = {result[3], result[4]} end
if not tonumber(result[1]) or not result[2] then return error('Malformed coordinates value', 2) end
return tonumber(result[1]) * hemisphereMultipliers[para][result[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)
if not args then
args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
end
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[[Dosya:%s|%spx|%s%s]]',
retval,
image,
width,
args.alt or ((args.label or mw.title.getCurrentTitle().text) .. "'nın " .. map('name') .. "'da bulunduğu yer"),
args.maplink and ('|link=' .. args.maplink) or ''
)
if args.overlay_image then
return retval .. '<div style="position:absolute;top:0;left:0">[[Dosya:' .. args.overlay_image .. '|' .. width .. 'px]]</div>'
else
return retval
end
end
function p.bottom(frame, args, map)
if not args then
args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
end
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">[[:Dosya:' .. 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') .. " haritasını göster</span>"
end
retval = retval .. '</div></div>'
if args.caption_undefined then
mw.log('Silinen caption_undefined parametresi kullanıldı.')
local parent = frame:getParent()
if parent then
mw.log('Temel ' .. parent:getTitle())
end
mw.logObject(args, 'args')
local key = (args.skew and 'skew' or '') ..
(args.lon_shift and 'lon_shift' or '') ..
(args.markhigh and 'markhigh' or '')
retval = retval .. '[[Kategori:Konum haritaları ile olası hataları|Sayfa parametresi kullanılarak kaldırılanlar]]'
end
if map('skew') ~= '' or map('lat_skew') ~= '' or map('crosses180') ~= '' or map('type') ~= '' then
mw.log('Silinen parametre ' .. map() .. "'nın harita tanımında kullanıldı")
local key = (map('skew') ~= '' and 'skew' or '') ..
(map('lat_skew') ~= '' and 'lat_skew' or '') ..
(map('crosses180') ~= '' and 'crosses180' or '') ..
(map('type') ~= '' and 'type' or '')
retval = retval .. '[[Kategori:Konum haritaları ile olası hataları|Harita parametresi kullanılarak kaldırılanlar]]'
end
if string.find(map('name'), '|', 1, true) then
mw.log('Boru haritası tanımı ' .. map() ..' adına kullandı')
retval = retval .. '[[Kategori:Konum haritaları ile olası hataları|Adı içeren boru]]'
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(
'[[Dosya:%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)
if not args then
args = getArgs(frame, {wrappers = 'Şablon:Konum haritası~'})
end
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('Boylam için herhangi bir değer sağlandı')
end
if not latitude then
error('Enlem için herhangi bir değer sağlandı')
end
local builder = mw.html.create()
if (not args.lon_deg) ~= (not args.lat_deg) then
builder:wikitext('[[Kategori:Konum haritaları ile farklı enlem ve boylam presizyonları|Derece]]')
elseif (not args.lon_min) ~= (not args.lat_min) then
builder:wikitext('[[Kategori:Konum haritaları ile farklı enlem ve boylam presizyonları|Dakika]]')
elseif (not args.lon_sec) ~= (not args.lat_sec) then
builder:wikitext('[[Kategori:Konum haritaları ile farklı enlem ve boylam presizyonları|Saniye]]')
elseif (not args.lon_dir) ~= (not args.lat_dir) then
builder:wikitext('[[Kategori:Konum haritaları ile farklı enlem ve boylam presizyonları|Yarımküre]]')
elseif (not args.long) ~= (not args.lat) then
builder:wikitext('[[Kategori:Konum haritaları ile farklı enlem ve boylam presizyonları|Desimal]]')
end
if args.skew or args.lon_shift or args.markhigh then
mw.log('Silinen parametre çağrıda kullanıldı.')
local parent = frame:getParent()
if parent then
mw.log('Temel ' .. parent:getTitle())
end
mw.logObject(args, 'args')
builder:wikitext('[[Kategori:Konum haritaları ile olası hataları|Sayfa parametresi kullanılarak kaldırılanlar]]')
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('İşaret, dış bayrak koyulmadan dış harita sınırlarına yerleştirildi. x = ' .. x .. ', y = ' .. y)
local parent = frame:getParent()
if parent then
mw.log('Temel ' .. parent:getTitle())
end
mw.logObject(args, 'args')
local key = frame:preprocess('{{FULLPAGENAME}}')
builder:wikitext('[[Kategori:Konum haritaları ile olası hataları|Dış bayrak kullanılmadan işaretli dış harita]]')
end
local mark = args.mark or map('mark')
if mark == '' then
mark = 'Locator_Dot.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
function p.main(frame, args, map)
if not args then
args = getArgs(frame, {wrappers = 'Şablon:Konum haritası', valueFunc = p.valueFunc})
end
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('World', frame)
end
end
if type(map) == 'table' then
local outputs = {}
args.autoSwitcherLabel = true
for k,v in ipairs(map) do
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