Module:Sandbox/Innesw/Infobox Australian place explained

-- This is Template:Infobox_Australian_place converted to Lua

local p = local lframe

local shortDescription = require('Module:GetShortDescription').mainlocal plainText = require('Module:Plain text')._mainlocal infobox = require('Module:Infobox').infoboxlocal getArgs = require('Module:Arguments').getArgslocal infoboxImage = require('Module:InfoboxImage').InfoboxImagelocal australianPlaceMap = require('Module:Australian place map').mainlocal coordinates = require('Module:Coordinates').coordinsertlocal populationFromWikidata = require('Module:PopulationFromWikidata').ListForInfoboxlocal url = require('Module:URL')._urllocal check = require('Module:Check for unknown parameters')._check

local lang = mw.language.getContentLanguage

local function inb(s) -- is not blank return s and s ~= end

local function backcolour(typ) local colour if typ

'city' then colour = '#f9f6d2' elseif typ

'town' then colour = '#e9f9d2' elseif typ

'suburb' then colour = '#f9e2d2' elseif typ

'lga' then colour = '#d2d5f9' elseif typ

'region' then colour = '#e6c4fb' elseif typ

'cadastral' then colour = '#ffffe0' elseif typ

'protected' then colour = 'transparent' elseif typ

'other' then colour = 'transparent' else colour = '#ccc' end return colourend

local function state_longname(state) state = string.lower(state) local longname if state

'sa' then longname = 'South Australia' elseif state

'vic' then longname = 'Victoria' elseif state

'nsw' then longname = 'New South Wales' elseif state

'qld' then longname = 'Queensland' elseif state

'nt' then longname = 'Northern Territory' elseif state

'wa' then longname = 'Western Australia' elseif state

'tas' then longname = 'Tasmania' elseif state

'act' then longname = 'Australian Capital Territory' elseif state

'jbt' then longname = 'Jervis Bay Territory' elseif state

'ni' then longname = 'Norfolk Island' elseif state

'au' then longname = 'Australia' elseif inb(state) then -- state supplied, but with unrecognised value longname = lframe:expandTemplate else -- state not supplied longname = lframe:expandTemplate end return longnameend

local function coords_region(state) state = string.lower(state) local region if state

'sa' then region = 'AU-SA' elseif state

'vic' then region = 'AU-VIC' elseif state

'nsw' then region = 'AU-NSW' elseif state

'qld' then region = 'AU-QLD' elseif state

'nt' then region = 'AU-NT' elseif state

'wa' then region = 'AU-WA' elseif state

'tas' then region = 'AU-TAS' elseif state

'act' then region = 'AU-ACT' elseif state

'jbt' then region = 'AU-JBT' elseif state

'ni' then region = 'NF' else region = 'AU' end return regionend

local function location(loc, dir, dist, list) if not (inb(loc) and inb(dist)) then return end local sloc = if list then table.insert(sloc, '

  • ') end table.insert(sloc, lframe:expandTemplate) if inb(dir) then table.insert(sloc, ' ' .. dir .. ' of ') else table.insert(sloc, ' from ') end if inb(loc) then table.insert(sloc, lframe:expandTemplate) end if list then table.insert(sloc, '
    • ') end return table.concat(sloc)end

    local function lgas_article(state) state = string.lower(state) local art if state

    'sa' then art = 'LGA(s)' elseif state

    'vic' then art = 'LGA(s)' elseif state

    'nsw' then art = 'LGA(s)' elseif state

    'qld' then art = 'LGA(s)' elseif state

    'nt' then art = 'LGA(s)' elseif state

    'wa' then art = 'LGA(s)' elseif state

    'tas' then art = 'LGA(s)' elseif state

    'act' then art = 'District' else art = 'LGA(s)' end return artend

    local function pageExists(pagename) local pageTitle = mw.title.makeTitle("", pagename) if pageTitle then return pageTitle.exists end return falseend

    local function state_protectedPage(state) state = string.lower(state) local prot if state

    'sa' then prot = 'Protected areas of South Australia' elseif state

    'vic' then prot = 'Protected areas of Victoria' elseif state

    'nsw' then prot = 'Protected areas of
    New South Wales    ' elseif state

    'qld' then prot = 'Protected areas of Queensland' elseif state

    'nt' then prot = 'Protected areas of the Northern Territory' elseif state

    'wa' then prot = 'List of protected areas of
    Western Australia    ' elseif state

    'tas' then prot = 'Protected areas of Tasmania' elseif state

    'act' then prot = 'Australian Capital Territory
    protected areas    ' else prot = nil end return protend

    local function shortDesc(args) local sd =

    -- only set short description in article namespace, and for articles where not already set local title = mw.title.getCurrentTitle if title.namespace

    0 and shortDescription

    then table.insert(sd, '') end

    return table.concat(sd)end

    local function ibox(args) local tmp

    local InfoboxArgs = local typ = (args.type or ):lower local city = args.city or local state = (args.state or ):lower local name = args.name or

    InfoboxArgs.bodyclass = 'vcard'

    InfoboxArgs.abovestyle = 'font-size: 125%; line-height: 1.3em; background-color:' .. backcolour(typ) if inb(name) then tmp = '

    ' .. name .. '
    ' if inb(args.native_name) then tmp = tmp .. '

    ' .. args.native_name .. '

    ' end tmp = tmp .. '

    ' if city ~= then tmp = tmp .. lframe:expandTemplate .. ', ' end tmp = tmp .. state_longname(state) ..'' InfoboxArgs.above = tmp end InfoboxArgs.aboveclass = 'adr' InfoboxArgs.subheaderstyle = 'font-size: 100%;' if typ

    'protected' then InfoboxArgs.subheader1 = lframe:expandTemplate end

    if inb(args.image) then local siz if inb(args.image_size) then siz = args.image_size elseif inb(args.imagesize) then siz = args.imagesize end local upr = '1.23' if inb(args.image_upright) then upr = args.image_upright end local ialt if inb(args.image_alt) then ialt = args.image_alt elseif inb(args.alt) then ialt = args.alt end InfoboxArgs.image = infoboxImage end InfoboxArgs.imagestyle = nil InfoboxArgs.caption = (args.caption or ) InfoboxArgs.captionstyle = nil if inb(args.image2) then local siz if inb(args.image_size2) then siz = args.image_size2 elseif inb(args.imagesize2) then siz = args.imagesize2 end local upr = '1.23' if inb(args.image2_upright) then upr = args.image2_upright end local ialt if inb(args.image2_alt) then ialt = args.image2_alt elseif inb(args.alt2) then ialt = args.alt2 end InfoboxArgs.image2 = infoboxImage end InfoboxArgs.caption2 = (args.caption2 or )

    InfoboxArgs.headerstyle = 'background-color:#ddf;' InfoboxArgs.labelstyle = 'width:40%; background-color:' .. backcolour(typ) InfoboxArgs.datastyle = nil

    InfoboxArgs.data1 = australianPlaceMap(lframe)

    InfoboxArgs.data2 = nil if inb(args.local_map) then InfoboxArgs.data2 = lframe:expandTemplate end

    InfoboxArgs.label3 = '

    Nearest town or city' InfoboxArgs.data3 = nil if typ

    'protected' then InfoboxArgs.data3 = lframe:expandTemplate end

    InfoboxArgs.label4 = 'Coordinates' InfoboxArgs.data4 = nil if inb(args.coordinates) then -- the type: and region: parameters to Module:Coordinates seem to be over-ridden by this code, even though they could be in the call that produces the content of the coordinates parameter local mtyp = if typ

    'protected' then mtyp = 'landmark' else mtyp = 'city' end InfoboxArgs.data4 = coordinates .. (args.coord_ref or ) end

    InfoboxArgs.label6 = 'Population' tmp = nil if inb(args.pop) then if inb(args.pop2) then tmp = '

    ' end else local wdpop = populationFromWikidata if inb(wdpop) then -- The

    here prevents the output from populationFromWikidata appearing above the infobox instead of within it. -- I don't know why, but the output from in the template version is treated properly, -- but the output from calling require('Module:PopulationFromWikidata').ListForInfobox in this module is not, requiring this fix. tmp = '

    ' .. wdpop .. '

    ' end end InfoboxArgs.data6 = tmp

    InfoboxArgs.label7 = ' • Density' tmp = nil if inb(args.density) then tmp = lframe:expandTemplate .. ' ' .. (args.density_footnotes or ) else if inb(args.pop) and lang:parseFormattedNumber(args.pop) and inb(args.area) then tmp = lframe:expandTemplate .. ' ' .. (args.density_footnotes or ) end end InfoboxArgs.data7 = tmp

    InfoboxArgs.label8 = 'Established' tmp = nil if inb(args.established) then tmp = args.established .. (args.established_footnotes or ) elseif inb(args.est) then tmp = args.est .. (args.established_footnotes or ) end InfoboxArgs.data8 = tmp

    InfoboxArgs.label9 = 'Abolished' InfoboxArgs.data9 = args.abolished or InfoboxArgs.label10 = 'Gazetted' InfoboxArgs.data10 = args.gazetted or InfoboxArgs.label11 = 'Postcode(s)' InfoboxArgs.data11 = args.postcode or InfoboxArgs.label12 = 'Elevation' if inb(args.elevation) then InfoboxArgs.data12 = lframe:expandTemplate .. (args.elevation_footnotes or ) end InfoboxArgs.label13 = 'Area' if inb(args.area) then InfoboxArgs.data13 = lframe:expandTemplate .. (args.area_footnotes or ) end

    InfoboxArgs.label14 = 'Time zone' if inb(args.timezone) then InfoboxArgs.data14 = args.timezone .. ' ' .. '(UTC' .. (args.utc or ) .. ')' end

    InfoboxArgs.label15 = ' • Summer (DST)' if inb(args['timezone-dst']) then InfoboxArgs.data15 = args['timezone-dst'] .. ' ' .. '(UTC' .. (args['utc-dst'] or ) .. ')' end

    InfoboxArgs.label16 = (args.mayortitle or 'Mayor') if typ

    'lga' and inb(args.mayor) then InfoboxArgs.data16 = args.mayor end

    InfoboxArgs.label17 = 'Location' tmp = if inb(args.dist2) then tmp = '

    ' elseif inb(args.location1) then tmp = location(args.location1, args.dir1, args.dist1, false) end InfoboxArgs.data17 = tmp

    InfoboxArgs.label18 = lgas_article(state) tmp = nil if inb(args.lga) then local lga2 = args.lga2 or if lga2 ~= then tmp = '

    ' end end InfoboxArgs.data18 = tmp InfoboxArgs.label19 = 'Council seat' InfoboxArgs.data19 = args.seat or

    InfoboxArgs.label20 = 'Region' if inb(args.region) then InfoboxArgs.data20 = lframe:expandTemplate end

    InfoboxArgs.label21 = 'County' if inb(args.county) then InfoboxArgs.data21 = lframe:expandTemplate end InfoboxArgs.label22 = 'Parish' InfoboxArgs.data22 = args.parish or if typ

    'cadastral' then InfoboxArgs.label23 = 'Hundred' InfoboxArgs.data23 = args.hundred or InfoboxArgs.label24 = 'Hundred (former)' InfoboxArgs.data24 = args.former_hundred or InfoboxArgs.label25 = 'Division' InfoboxArgs.data25 = args.division or end if state

    'act' or state

    'nt' or state

    'jbt' then InfoboxArgs.label26 = 'Territory electorates(s)' else InfoboxArgs.label26 = 'State electorate(s)' end tmp = nil if inb(args.stategov) then local stategov2 = (args.stategov2 or ) if stategov2 ~= then tmp = '

    ' end end InfoboxArgs.data26 = tmp

    InfoboxArgs.label27 = 'Federal division(s)' tmp = nil if inb(args.fedgov) then local fedgov2 = args.fedgov2 or if fedgov2 ~= then tmp = '

    ' end end InfoboxArgs.data27 = tmp

    if inb(args.logo) then local siz if inb(args.logosize) then siz = args.logosize end local upr = '0.8' if inb(args.logo_upright) then upr = args.logo_upright end local lalt if inb(args.logo_alt) then lalt = args.logo_alt end InfoboxArgs.data28 = infoboxImage end

    InfoboxArgs.label29 = 'Visitation' if typ

    'protected' then tmp = nil if inb(args.visitation_num) then if tonumber(args.visitation_num) then -- visitation_num looks like a number tmp = lang:formatNum(tonumber(args.visitation_num)) else -- just show it tmp = args.visitation_num end if inb(args.visitation_year) then tmp = tmp .. ' (in ' .. args.visitation_year .. ')' end tmp = tmp .. (args.visitation_footnotes or ) InfoboxArgs.data29 = tmp end InfoboxArgs.label30 = '

    Managing authorities' if inb(args.managing_authorities) then InfoboxArgs.data30 = lframe:expandTemplate end end

    InfoboxArgs.label31 = 'Website' if inb(args.url) then InfoboxArgs.data31 = url(args.url, name) .. ' ' end

    tmp = nil if inb(args.maxtemp) or inb(args.mintemp) or inb(args.rainfall) then tmp = '

    ' .. '\'\'\'Mean max temp\'\'\ .. (args.maxtemp_footnotes or ) .. '\'\'\'Mean min temp\'\'\ .. (args.mintemp_footnotes or ) .. '\'\'\'Annual rainfall\'\'\ .. (args.rainfall_footnotes or ) .. '
    ' if inb(args.maxtemp) then tmp = tmp .. lframe:expandTemplate .. '' if inb(args.mintemp) then tmp = tmp .. lframe:expandTemplate .. '' if inb(args.rainfall) then tmp = tmp .. lframe:expandTemplate .. '
    ' end InfoboxArgs.data32 = tmp

    tmp = nil if inb(args['near']) or inb(args['near-nw']) or inb(args['near-n']) or inb(args['near-ne']) or inb(args['near-w']) or inb(args['near-e']) or inb(args['near-sw']) or inb(args['near-se']) or inb(args['near-s']) then tmp = '

    \'\'\ if typ

    'cadastral' then tmp = tmp .. 'Lands administrative divisions' elseif typ

    'lga' then tmp = tmp .. 'LGAs' elseif typ

    'suburb' then if city ~= then if pageExists('List of ' .. city .. ' suburbs') then tmp = tmp .. 'Suburbs' elseif pageExists('Category:Suburbs of the City of ' .. city) then tmp = tmp .. '' elseif pageExists('Category:Suburbs of ' .. city) then tmp = tmp .. '' else tmp = tmp .. 'Suburbs' end else tmp = tmp .. 'Suburbs' end else tmp = tmp .. 'Localities' end tmp = tmp .. ' around ' if name ~= then tmp = tmp .. name else tmp = tmp .. lframe:expandTemplate end tmp = tmp .. '\'\'\'

    ' .. (args['near-nw'] or ) .. '' .. (args['near-n'] or ) .. '' .. (args['near-ne'] or ) .. '
    ' .. (args['near-w'] or ) .. '' .. args['near'] .. '' .. name .. '' .. (args['near-e'] or ) .. '
    ' .. (args['near-sw'] or ) .. '' .. (args['near-s'] or ) .. '' .. (args['near-se'] or ) .. '
    ' end InfoboxArgs.data33 = tmp

    InfoboxArgs.label34 = 'Footnotes' InfoboxArgs.data34 = args.footnotes or

    InfoboxArgs.label35 = 'See also' if typ

    'protected' and inb(args.iucn_category) and state~= then InfoboxArgs.data35 = state_protectedPage(state) end

    tmp = nil if typ

    then tmp = lframe:expandTemplate elseif not (typ

    'city' or typ

    'town' or typ

    'suburb' or typ

    'lga' or typ

    'region' or typ

    'cadastral' or typ

    'protected' or typ

    'other') then tmp = lframe:expandTemplate end InfoboxArgs.data36 = tmp return infobox(InfoboxArgs)end

    local function categories(args) local cats = local typ = string.lower(args.type or ) local state = string.lower(args.state or ) if mw.title.getCurrentTitle.namespace

    0 then -- no categories are created except in article namespace if inb(args._noautocat) then -- suppress auto categories. Note: does not suppress the tracking categories else local name = (args.name or ) if typ

    'town' then if state

    'sa' then table.insert(cats, '') elseif state

    'vic' then table.insert(cats, '') elseif state

    'nsw' then table.insert(cats, '') elseif state

    'qld' then table.insert(cats, '') elseif state

    'nt' then table.insert(cats, '') elseif state

    'wa' then table.insert(cats, '') elseif state

    'tas' then table.insert(cats, '') elseif state

    'act' then table.insert(cats, '') elseif state

    'ni' then table.insert(cats, '') end elseif typ

    'suburb' then local city = args.city or if pageExists('Category:Suburbs of the City of ' .. city) then table.insert(cats, '') elseif pageExists('Category:Suburbs of ' .. city) then table.insert(cats, '') else if state

    'sa' and pageExists('Category:Suburbs of ' .. city .. ', South Australia') then table.insert(cats, '') elseif state

    'vic' and pageExists('Category:Suburbs of ' .. city .. ', Victoria') then table.insert(cats, '') elseif state

    'nsw' and pageExists('Category:Suburbs of ' .. city .. ', New South Wales') then table.insert(cats, '') elseif state

    'qld' and pageExists('Category:Suburbs of ' .. city .. ', Queensland') then table.insert(cats, '') elseif state

    'nt' and pageExists('Category:Suburbs of ' .. city .. ', Northern Territory') then table.insert(cats, '') elseif state

    'wa' and pageExists('Category:Suburbs of ' .. city .. ', Western Australi') then table.insert(cats, '') elseif state

    'tas' and pageExists('Category:Suburbs of ' .. city .. ', Tasmania') then table.insert(cats, '') elseif state

    'act' and pageExists('Category:Suburbs of ' .. city .. ', ACT') then table.insert(cats, '') end end elseif inb(args.est) and typ

    'lga' then if pageExists('Category:Populated places established in ' .. (args.est or )) then table.insert(cats, '') elseif pageExists('Category:Populated places established in the ' .. (args.est or )) then table.insert(cats, '') elseif pageExists('Category:' .. (args.est or ) .. ' establishments in Australia') then table.insert(cats, '') end end end

    -- Tracking categories if args['1'] then -- The '1' parameter occurs when there is a missing equals sign, or spurious pipes. Usually harmless, but can mask other issues, so it is better to track them. table.insert(cats, '') end if (args.type or )

    then table.insert(cats, '') end if (args.state or )

    then table.insert(cats, '') end if inb(args.pop) then if (args.pop_year or )

    then table.insert(cats, '') end if (args.pop_footnotes or )

    then table.insert(cats, '') end end if inb(args.pop2) then if (args.pop2_year or )

    then table.insert(cats, '') end if (args.pop2_footnotes or )

    then table.insert(cats, '') end end if (args.density or )

    and inb(args.pop) and inb(args.area) then if lang:parseFormattedNumber(args.pop) and type(args.area)

    'number' then -- density calculation should be OK else table.insert(cats, '') end end if args.imagesize or args.image2size or args.imagesize2 or args.image_alt2 then table.insert(cats, '') end if args.logosize then table.insert(cats, '') end if args.official_site then table.insert(cats, '') end if args.coordinates then if typ

    'lga' then if string.lower(args.map_type or )

    or string.lower(args.map_type or )

    'auto' then if inb(args.alternative_location_map) or inb(args.force_national_map) or inb(args.use_lga_map) then table.insert(cats, '') else table.insert(cats, '') end else table.insert(cats, '') end elseif string.lower(args.map_type or )

    'nomap' then table.insert(cats, '') end end table.insert(cats, check(args)) end return table.concat(cats)end

    function p.main(frame) lframe = frame local getArgs = require('Module:Arguments').getArgs local args = getArgs(frame) return shortDesc(args) .. ibox(args) .. categories(args)end

    return p

    This article is licensed under the GNU Free Documentation License. It uses material from the Wikipedia article "Module:Sandbox/Innesw/Infobox Australian place".

    Except where otherwise indicated, Everything.Explained.Today is © Copyright 2009-2024, A B Cryer, All Rights Reserved. Cookie policy.