imported>ProcrastinatingReader at 13:37, 5 December 2020

2020-12-05T13:37:11Z

New page

local getArgs = require('Module:Arguments').getArgs

local p = {}

local function isempty(s)
return s == nil or s == ''
end

local function dataValue(frame, settlementName, parameterName, itemName)
return frame:expandTemplate{ title = 'Data '..settlementName..' municipality', args = {
parameterName,
itemName
}}
end

local function getNetValue(frame, argCategory, argName)
local args = getArgs(frame)
local argType = args['arg_type'] and (args['arg_type']..'_') or ''
local paramName = argCategory..'_'..argType..argName

local net = args[paramName] or dataValue(frame, args['subdivision_name'], paramName, args['name'])

return net
end

function p.nativeName(frame)
local val = frame.args[1]

if val then
local match = mw.ustring.match(val, "{{[Ii]nfobox (%a*)")
--if true then return match end
if match and match[1] then
return match[1]
end
end

return ""
end

function p.area(frame)
local args = getArgs(frame)

local argCategory = 'area'

local km2 = getNetValue(frame, argCategory, 'km2')
local ha = getNetValue(frame, argCategory, 'ha')
local acre = getNetValue(frame, argCategory, 'acre')
local sqmi = getNetValue(frame, argCategory, 'sq_mi')
local dunam = getNetValue(frame, argCategory, 'dunam')

if not (isempty(km2) and isempty(ha) and isempty(acre) and isempty(sqmi) and isempty(dunam)) then
return frame:expandTemplate{ title = 'infobox_settlement/areadisp', args = {
['km2'] = km2,
['ha'] = ha,
['acre'] = acre,
['sqmi'] = sqmi,
['dunam'] = dunam,
['link'] = args['dunam_link'],
['pref'] = args['unit_pref'],
['name'] = args['subdivision_name'],
['mag'] = args['area_magnitude']
}}
else
return ""
end
end

function p.demographics(frame)
local args = getArgs(frame)
local tArgs = {
['child'] = 'yes',
['headerstyle'] = 'text-align:left',
}

for i = 1,2 do
local dtype = getNetValue(frame, 'demographics', 'type'..i)
if not isempty(dtype) then
local series = i + 20 * (i-1)
tArgs['header'..series] = dtype..'<div style="font-weight:normal;display:inline;">'.. getNetValue(frame, 'demographics1', 'footnotes') ..'</div>'
tArgs['rowclass'..series] = 'mergedtoprow'
for j = 1,10 do
local dval = getNetValue(frame, 'demographics1', 'title'..j)
if not isempty(dval) then
tArgs['rowclass'..(series + j)] = 'mergedrow'
tArgs['label'..(series + j)] = ' • '..getNetValue(frame, 'demographics1', 'title'..j)
tArgs['data'..(series + j)] = getNetValue(frame, 'demographics1', 'info'..j)
end
end
end
end

return frame:expandTemplate{ title = 'infobox', args = tArgs}
end

function p.generic(frame)
local args = getArgs(frame)
local paramName = args['param_name']

return getNetValue(frame, 'area', paramName)
end

return p

Module:Sandbox/ProcrastinatingReader/ib - Revision history

imported>ProcrastinatingReader at 13:37, 5 December 2020