642
回編集
template>K-iczn (z-index追加) |
Triple-Zeta (トーク | 投稿記録) 細 (13版 をインポートしました) |
||
(3人の利用者による、間の10版が非表示) | |||
4行目: | 4行目: | ||
local getArgs = require('Module:Arguments').getArgs | local getArgs = require('Module: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) | function p.getMapParams(map, frame) | ||
if not map then | if not map then | ||
error(' | error('Location mapの名前は必ず指定しなければなりません。', 2) | ||
end | end | ||
local moduletitle = mw.title.new('Module:Location map/data/' .. map) | local moduletitle = mw.title.new('Module:Location map/data/' .. map) | ||
if not moduletitle then | if not moduletitle then | ||
error(' | error(string.format('%qはLocation mapの名前として無効です。', map), 2) | ||
elseif moduletitle.exists then | elseif moduletitle.exists then | ||
local mapData = mw.loadData('Module:Location map/data/' .. map) | local mapData = mw.loadData('Module:Location map/data/' .. map) | ||
return function(name, params) | return function(name, params) | ||
if mapData[name] == nil then | if name == nil then | ||
return 'Module:Location map/data/' .. map | |||
elseif mapData[name] == nil then | |||
return '' | return '' | ||
elseif params then | elseif params then | ||
25行目: | 32行目: | ||
elseif mw.title.new('Template:Location map ' .. map).exists then | elseif mw.title.new('Template:Location map ' .. map).exists then | ||
local cache = {} | local cache = {} | ||
if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then | |||
error('古いLocation mapを使うときにフレームが存在しなければなりません。') | |||
end | |||
return function(name, params) | return function(name, params) | ||
if params then | if params then | ||
return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }} | return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }} | ||
else | else | ||
if cache[name] == nil then | if name == nil then | ||
return 'Template:Location map ' .. map | |||
elseif cache[name] == nil then | |||
cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }} | cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }} | ||
end | end | ||
36行目: | 48行目: | ||
end | end | ||
else | else | ||
error(' | error('Location mapのモジュール「"Module:Location map/data/' .. map .. '"」もしくはテンプレート「"Template:Location map ' .. map .. '"」が作成されていません。', 2) | ||
end | end | ||
end | end | ||
42行目: | 54行目: | ||
function p.data(frame, args, map) | function p.data(frame, args, map) | ||
if not args then | if not args then | ||
args = getArgs(frame) | args = getArgs(frame, {frameOnly = true}) | ||
end | end | ||
if not map then | if not map then | ||
53行目: | 65行目: | ||
end | end | ||
end | end | ||
return map(args[2], #params and params) | return map(args[2], #params ~= 0 and params) | ||
end | end | ||
62行目: | 74行目: | ||
local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction) | local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction) | ||
if | if decimal then | ||
if degrees then | |||
error(' | error(direction .. 'において10進数形式と度分秒は両方指定できません。', 2) | ||
elseif minutes then | |||
error(direction .. 'において分は度分秒方式でのみ指定してください。', 2) | |||
elseif seconds then | |||
error(direction .. 'において秒は度分秒方式でのみ指定してください。', 2) | |||
elseif hemisphere then | |||
error(direction .. 'において半球は度分秒方式でのみ指定してください。', 2) | |||
end | end | ||
local retval = tonumber(decimal) | local retval = tonumber(decimal) | ||
70行目: | 88行目: | ||
return retval | return retval | ||
end | end | ||
error(' | error(direction .. 'の値"' .. decimal .. '"は無効です。', 2) | ||
elseif seconds and not minutes then | |||
error(direction .. 'の秒を指定する時は分も指定してください。', 2) | |||
elseif not degrees then | |||
if minutes then | |||
error(direction .. 'の分を指定する時は度も指定してください。', 2) | |||
elseif hemisphere then | |||
error(direction .. 'の半球を指定する時は度も指定してください。', 2) | |||
end | |||
return nil | |||
end | end | ||
decimal = tonumber(degrees) | decimal = tonumber(degrees) | ||
if not decimal then | if not decimal then | ||
error(' | error(direction .. 'の度の値"' .. degrees .. '"は無効です。', 2) | ||
elseif minutes and not tonumber(minutes) then | |||
error(direction .. 'の分の値"' .. minutes .. '"は無効です。', 2) | |||
error(' | elseif seconds and not tonumber(seconds) then | ||
error(direction .. 'の秒の値"' .. seconds .. '"は無効です。', 2) | |||
error(' | |||
end | end | ||
decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600 | decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600 | ||
86行目: | 111行目: | ||
local multiplier = hemisphereMultipliers[direction][hemisphere] | local multiplier = hemisphereMultipliers[direction][hemisphere] | ||
if not multiplier then | if not multiplier then | ||
error(' | error(direction .. 'の半球である"' .. hemisphere .. '"は無効です。', 2) | ||
end | end | ||
decimal = decimal * multiplier | decimal = decimal * multiplier | ||
end | end | ||
return decimal | 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('不正な座標指定です。', 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 | end | ||
function p.top(frame, args, map) | function p.top(frame, args, map) | ||
if not args then | if not args then | ||
args = getArgs(frame) | args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc}) | ||
end | end | ||
if not map then | if not map then | ||
101行目: | 158行目: | ||
end | end | ||
local width | local width | ||
local default_as_number = tonumber(mw.ustring.match(tostring(args.default_width),"%d*")) | |||
if not args.width then | if not args.width then | ||
width = | width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1)) | ||
elseif mw.ustring.sub(args.width, -2) == 'px' then | elseif mw.ustring.sub(args.width, -2) == 'px' then | ||
width = mw.ustring.sub(args.width, 1, -3) | width = mw.ustring.sub(args.width, 1, -3) | ||
108行目: | 166行目: | ||
width = args.width | width = args.width | ||
end | end | ||
local width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0; | |||
if width_as_number == 0 then | |||
-- check to see if width is junk. If it is, then use default calculation | |||
width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1)) | |||
width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0; | |||
end | |||
if args.max_width ~= "" and args.max_width ~= nil then | |||
-- check to see if width bigger than max_width | |||
local max_as_number = tonumber(mw.ustring.match(args.max_width,"%d*")) or 0; | |||
if width_as_number>max_as_number and max_as_number>0 then | |||
width = args.max_width; | |||
end | |||
end | |||
local retval = args.float == 'center' and '<div class="center">' or '' | local retval = args.float == 'center' and '<div class="center">' or '' | ||
if args.caption then | if args.caption and args.caption ~= '' and args.border ~= 'infobox' then | ||
retval = retval .. '<div class="thumb ' | retval = retval .. '<div class="noviewer thumb ' | ||
if args.float == '"left"' or args.float == 'left' then | if args.float == '"left"' or args.float == 'left' then | ||
retval = retval .. 'tleft' | retval = retval .. 'tleft' | ||
138行目: | 209行目: | ||
retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">' | retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">' | ||
end | end | ||
local | local image = getContainerImage(args, map) | ||
retval = string.format( | |||
'%s[[File:%s|%spx|%s%s]]', | |||
retval, | |||
image, | |||
width, | |||
args.alt or ((args.label or mw.title.getCurrentTitle().text) .. 'の位置(' .. map('name')) .. '内)', | |||
args.maplink and ('|link=' .. args.maplink) or '' | |||
) | |||
if args.overlay_image then | if args.overlay_image then | ||
return retval .. '<div style="position:absolute | return retval .. '<div style="position:absolute;top:0;left:0">[[File:' .. args.overlay_image .. '|' .. width .. 'px]]</div>' | ||
else | else | ||
return retval | return retval | ||
156行目: | 227行目: | ||
function p.bottom(frame, args, map) | function p.bottom(frame, args, map) | ||
if not args then | if not args then | ||
args = getArgs(frame) | args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc}) | ||
end | end | ||
if not map then | if not map then | ||
map = p.getMapParams(args[1], frame) | map = p.getMapParams(args[1], frame) | ||
end | end | ||
local retval = '</div> | local retval = '</div>' | ||
if not args.caption or args.border == 'infobox' then | |||
retval = retval .. | 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">[[:File:' .. getContainerImage(args, map) .. '| ]]</div>' .. args.caption .. '</div>' | |||
end | end | ||
retval = retval .. '< | |||
if args.switcherLabel then | |||
retval = retval .. '</ | 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') .. 'の地図を表示</span>' | |||
end | end | ||
retval = retval .. '</div></div>' | |||
if args.caption_undefined then | if args.caption_undefined then | ||
mw.log('caption_undefinedは廃止されたパラメータです。') | |||
local parent = frame:getParent() | |||
if parent then | |||
mw.log('Parent is ' .. parent:getTitle()) | |||
end | |||
mw.logObject(args, 'args') | |||
retval = retval .. '' | retval = retval .. '' | ||
end | end | ||
if map('skew') ~= '' or map('lat_skew') ~= '' or map('crosses180') ~= '' or map('type') ~= '' then | |||
end | mw.log(map() .. 'において廃止されたパラメータです。') | ||
retval = retval .. '' | |||
end | |||
if string.find(map('name'), '|', 1, true) then | |||
mw.log(map() .. 'のLocation map名でパイプを使用しています。') | |||
retval = retval .. '' | |||
end | end | ||
if | if args.float == 'center' then | ||
retval = retval .. '</div>' | |||
end | end | ||
return | return retval | ||
end | end | ||
local function markOuterDiv(x, y, | local function markOuterDiv(x, y, imageDiv, labelDiv) | ||
return ' | return mw.html.create('div') | ||
:cssText('position:absolute;z-index:1;top:' .. round(y, 3) .. '%;left:' .. round(x, 3) .. '%') | |||
:node(imageDiv) | |||
:node(labelDiv) | |||
end | end | ||
local function markImageDiv(mark, marksize, label, link, alt, title) | local function markImageDiv(mark, marksize, label, link, alt, title) | ||
local | 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 | if marksize ~= 0 then | ||
builder:wikitext(string.format( | |||
'[[File:%s|%dx%dpx|%s|link=%s%s]]', | |||
mark, | |||
marksize, | |||
marksize, | |||
label, | |||
link, | |||
alt and ('|alt=' .. alt) or '' | |||
)) | |||
end | end | ||
return | return builder | ||
end | end | ||
local function markLabelDiv(label, label_size, label_width, position, background, x) | local function markLabelDiv(label, label_size, label_width, position, background, x, marksize) | ||
local | 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 | 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 | 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 | 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 | else -- specified right or autodetected to right | ||
builder:cssText('top:-0.75em;left:' .. distance .. 'px;text-align:left') | |||
spanCss = 'float:left' | |||
end | end | ||
builder = builder:tag('span') | |||
:cssText('padding:1px') | |||
:cssText(spanCss) | |||
:wikitext(label) | |||
if background then | if background then | ||
builder:cssText('background-color:' .. background) | |||
end | end | ||
return | return builder:done() | ||
end | end | ||
241行目: | 351行目: | ||
function p.mark(frame, args, map) | function p.mark(frame, args, map) | ||
if not args then | if not args then | ||
args = getArgs(frame) | args = getArgs(frame, {wrappers = 'Template:Location map~'}) | ||
end | end | ||
if not map then | if not map then | ||
249行目: | 359行目: | ||
longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, args.long, 'longitude') | 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') | latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, args.lat, 'latitude') | ||
if args.coordinates then | |||
if | -- Temporarily removed to facilitate infobox conversion. | ||
-- if longitude or latitude then | |||
-- error('[[Module:Coordinates]]からの座標とローカル指定座標の両方を提供できません。') | |||
-- 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('緯度の値が指定されていません。') | |||
elseif not latitude then | |||
error('経度の値が指定されていません。') | |||
end | |||
local builder = mw.html.create() | |||
if (not args.lon_deg) ~= (not args.lat_deg) then | |||
builder:wikitext('') | |||
elseif (not args.lon_min) ~= (not args.lat_min) then | |||
builder:wikitext('') | |||
elseif (not args.lon_sec) ~= (not args.lat_sec) then | |||
builder:wikitext('') | |||
elseif (not args.lon_dir) ~= (not args.lat_dir) then | |||
builder:wikitext('') | |||
elseif (not args.long) ~= (not args.lat) then | |||
builder:wikitext('') | |||
end | |||
if args.skew or args.lon_shift or args.markhigh then | |||
mw.log('呼び出しにおいて廃止されたパラメータです。') | |||
local parent = frame:getParent() | |||
if parent then | |||
mw.log(parent:getTitle() .. 'の親です。') | |||
end | |||
mw.logObject(args, 'args') | |||
builder:wikitext('') | |||
end | end | ||
if map('x') ~= '' then | if map('x') ~= '' then | ||
x = | x = tonumber(mw.ext.ParserFunctions.expr(map('x', { latitude, longitude }))) | ||
else | else | ||
x = getX(longitude, map('left'), map('right')) | x = tonumber(getX(longitude, map('left'), map('right'))) | ||
end | end | ||
if map('y') ~= '' then | if map('y') ~= '' then | ||
y = | y = tonumber(mw.ext.ParserFunctions.expr(map('y', { latitude, longitude }))) | ||
else | else | ||
y = getY(latitude, map('top'), map('bottom')) | 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('外部フラグ設定無しに地図外にマークが置かれました。 x = ' .. x .. ', y = ' .. y) | |||
local parent = frame:getParent() | |||
if parent then | |||
mw.log(parent:getTitle() .. 'の親です。') | |||
end | |||
mw.logObject(args, 'args') | |||
builder:wikitext('') | |||
end | end | ||
local mark = args.mark or map('mark') | local mark = args.mark or map('mark') | ||
267行目: | 424行目: | ||
mark = 'Red pog.svg' | mark = 'Red pog.svg' | ||
end | end | ||
local | 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 | 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 | end | ||
return | return builder:node(markOuterDiv(x, y, imageDiv, labelDiv)) | ||
end | end | ||
function | local function switcherSeparate(s) | ||
if | if s == nil then return {} end | ||
local retval = {} | |||
for i in string.gmatch(s .. '#', '([^#]*)#') do | |||
i = mw.text.trim(i) | |||
retval[#retval + 1] = (i ~= '' and i) | |||
end | end | ||
return retval | |||
return | |||
end | end | ||
function p.main(frame, args, map) | |||
function p. | |||
if not args then | if not args then | ||
args = getArgs(frame) | args = getArgs(frame, {wrappers = 'Template:Location map', valueFunc = p.valueFunc}) | ||
end | end | ||
if | if args.useWikidata == nil then | ||
args | args.useWikidata = true | ||
end | end | ||
if not map then | 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 | end | ||
if #map == 1 then map = map[1] end | |||
else | |||
map = p.getMapParams('World', frame) | |||
end | end | ||
end | end | ||
table. | if type(map) == 'table' then | ||
local altmaps = switcherSeparate(args.AlternativeMap) | |||
if #altmaps > #map then | |||
error(string.format('%dのAlternativeMapsが提供されていますが、%dの地図のみの提供になります。', #altmaps, #map)) | |||
end | |||
local overlays = switcherSeparate(args.overlay_image) | |||
if #overlays > #map then | |||
error(string.format('%dのoverlay_imagesが提供されていますが、%dの地図のみの提供になります。', #overlays, #map)) | |||
end | |||
local outputs = {} | |||
args.autoSwitcherLabel = true | |||
for k,v in ipairs(map) do | |||
args.AlternativeMap = altmaps[k] | |||
args.overlay_image = overlays[k] | |||
outputs[k] = p.main(frame, args, v) | |||
end | 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 | ||
end | end | ||
return p | return p |