Cultopedia - User contributions [en]

User:Cultopedia-admin/Scientology Overlay Preview 4

2026-04-05T13:22:32Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview 3

2026-04-05T13:13:35Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview 2

2026-04-05T13:09:46Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-05T13:02:07Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-05T12:56:55Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-05T12:52:38Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

Jorge Ángel Livraga Rizzi

2026-04-05T10:08:29Z

Cultopedia-admin: Cultopedia: fix malformed cite templates on Jorge Ángel Livraga Rizzi

{{Short description|Argentine writer and poet (1930–1991)}}
{{Multiple issues|
{{Primary sources|date=January 2018}}
{{Original research|date=January 2018}}
}}
{{Infobox philosopher
| image =
| region = Western Philosophy
| era = [[20th-century philosophy]]
| name = Jorge Angel Livraga Rizzi
| birth_date = September 3, 1930
| birth_place = [[Buenos Aires]], Argentina
| death_date = October 7, 1991
| death_place = [[Madrid]], Spain
| school_tradition = [[Western esotericism|Esotericism]], [[Theosophy (Blavatskian)|Theosophy]], [[Neoplatonism]], [[Humanism]]
}}

'''Jorge Ángel Livraga Rizzi''' (September 3, 1930 – October 7, 1991) was an Argentine poet, novelist,<ref>[http://id.loc.gov/authorities/names/n83220316.html Library of the US Congress], consulted on March 11, 2018</ref><ref>[https://dialnet.unirioja.es/servlet/autor?codigo=1631878 Dialnet Foundation, University of La Rioja, Spain], consulted on March 11, 2018</ref><ref>[http://datos.bne.es/persona/XX4578835.html National Library of Spain], consulted on March 11, 2018</ref> self-taught philosopher, essayist, educator and lecturer of Italian heritage best known for having founded and directed [[New Acropolis]], an international philosophical educational and cultural organisation.

His works have been translated into several languages, titles in English include the novels ''The Alchemist'' and ''Ankor, the Last Prince of Atlantis'', as well as ''The Spirits of Nature'' and ''Thebes'', two studies on [[Western esotericism|esotericism]].

He was born in [[Buenos Aires]], [[Argentina]], and died in [[Madrid]], [[Spain]].<ref>{{cite news| title = Biography of Jorge Livraga| work = Baklabra.net website| url = http://www.bakalabra.net/acropol/index.php?option=com_content&task=view&id=50&Itemid=125 | access-date = 2008-03-25}} {{Dead link|date=October 2010|bot=H3llBot}}</ref><ref>{{Cite web |url=https://www.acropolis.org/en/our-founder |title=New Acropolis, International Page |access-date=2019-09-12 |archive-date=2020-08-04 |archive-url=https://web.archive.org/web/20200804232558/https://www.acropolis.org/en/our-founder |url-status=dead }}</ref>

Livraga was convicted for illegal arm possession in 1988 by Madrid's Provincial Court.<ref>[http://www.pepe-rodriguez.com/Sectas/Casos/NA/Nueva_Acropolis_Livraga.htm Condena de Jorge Livraga.]</ref>

==Biography==

His mother, Victoria Rizzi, and his father, Ángel Livraga, an industrial engineer, were of Italian origin whose families had emigrated to Argentina in the late 19th century; (Livraga himself would later gain Italian citizenship). Livraga's father died when he was 15, and this led to a spiritual crisis, where, via his English teacher, he eventually came into contact with the Argentine [[Theosophical Society]] in the early fifties.<ref name="About the founder of NA">{{cite news|title=About the founder of NA |work=New Acropolis Uruguay website |url=http://www.acropolis.org.uy/QuienesSomos/JAL.asp |access-date=2008-03-29 |archive-url=https://web.archive.org/web/20080113142116/http://acropolis.org.uy/QuienesSomos/JAL.asp |archive-date=2008-01-13 |url-status=dead }}</ref> He was a member of the Theosophical Society from 1950 to 1962.<ref>{{cite news| title = Theosophy talk| work =archives | url = http://www.theos-talk.com/archives/199802/tt00311.html| access-date = 2016-04-28}}</ref>

At some point, he founded the magazine ''Estudios Teosóficos'' with [[Ada Albrecht]], and founded [[New Acropolis]], an association intended to promote Philosophy, along the lines of the classical Schools of Philosophy, such as Plato’s Academy. Livraga began to expand New Acropolis to other Latin American countries: Uruguay, Chile (in 1965),<ref>{{cite news|title=About NA |work=New Acropolis Chile website |url=http://www.nueva-acropolischile.org/que_es_na.html |archive-url=https://web.archive.org/web/20070217005425/http://www.nueva-acropolischile.org/que_es_na.html |url-status=dead |archive-date=2007-02-17 |access-date=2008-03-29 }}</ref> Perú, Brasil and Bolivia.<ref name="About the founder of NA"/> Livraga's activities during this period consisted in writing the extensive course manuals.<ref>{{cite news| title = Study program| work = New Acropolis UK website| url = http://www.newacropolisuk.org/Courses.php| access-date = 2008-03-27| archive-date = 2016-07-17| archive-url = https://web.archive.org/web/20160717195426/http://www.newacropolisuk.org/courses.php| url-status = dead}}</ref>

He also had an interest in archeology, regularly organizing private expeditions and maintained a collection housed in a private museum, the [[Rodrigo Caro]] Museum.<ref name="Martinez text">{{cite news| title = Martinez text| work =the story of the founder of NA}}</ref> After his death, his natal home in Buenos Aires was converted into a museum in his name.<ref>{{cite news|title=About the founder of NA |work=New Acropolis Spain website |url=http://www.nueva-acropolis.es/NuevaAcropolis/fundador.htm |access-date=2008-03-29 |archive-url=https://web.archive.org/web/20080303180141/http://www.nueva-acropolis.es/NuevaAcropolis/fundador.htm |archive-date=2008-03-03 |url-status=dead }}</ref>

==Claims==
His official New Acropolis biography {{cn|date=February 2019}} claims that he was an academic member of the Esoteric group known as the International Philo-Byzantine Academy and University (IPHBAU) that according to the [[James Randi Foundation]] gives doctorates in Divinity,<ref>{{cite web|last1=Randi|first1=James|title=Bad and Good Stars in the Sky|url=http://archive.randi.org/site/index.php/swift-blog/441-bad-and-good-sta..|access-date=9 January 2018}}</ref> and the New Acropolis-related publishing house International Burckhardt Academy in Italy.<ref name="Juan">{{cite web|last1=Ruysbröeck|first1=Juan|title=El Gran Engaño La verdad sobre Nueva Acrópolis|url=http://alerta-elgranengano.blogspot.com/|access-date=9 January 2018}}</ref> It also claims that he was a knight of the fictional Real Orden de San Ildefonso y San Atilano, and a recipient of the silver cross from the Société Académique Arts Sciences Lettres (France), nevertheless apart from his New Acropolis biography no second hand source confirms such claims.<ref>{{cite web|last=Deslauriers|first=Catherine|title=Philosophie ou secte dans notre quartier|date=2 September 2013|url=http://impactcampus.ca/actualites/philosophie-secte-notre-quartier/|website=Impact Campus|access-date=9 January 2018}}</ref><ref name="controverse">{{cite web|title=La controverse acropolitaine|date=27 April 2014|url=http://montagnedesdieux.com/la-controverse-acropolitaine/|website=Montagne des Dieux|access-date=9 January 2018}}</ref> His official biography use to list him as archeologist and doctor in philosophy from the inexistent Aztec Academy of Arts, but once such Academy was proven to be fictional the claim was retired.<ref name="Juan" />

His official biography often claims that he won the Argentine National Poetry Prize with his book ''Lotuses'', however no source of such claim exists outside of New Acropolis and he's not listed as such in any source of the Argentinean government.<ref>{{cite web |last1=Ozaeta |first1=Ulysses |title=Nueva Acrópolis, una secta disfrazada de organización cultural y filantrópica |url=https://www.youtube.com/watch?v=za5lpDLVPmo |archive-url=https://ghostarchive.org/varchive/youtube/20211221/za5lpDLVPmo |archive-date=2021-12-21 |url-status=live|website=Ulysses Ozaeta - Página Oficial |date=5 February 2017 |access-date=13 January 2019}}{{cbignore}}</ref>

==Selected works (original Spanish editions)==
* Ankor, El Discipulo - (A novel about spiritual initiation in Atlantis)- 1972 - Cunillera. Nuevas Ciencias.<ref>[http://www.libreroonline.com/espana/libros/522385/livraga-rizzi-jorge-a/ankor-el-discipulo.html Librero en línea, ed. Cunillera, S.L.],
accessed September 12, 2019</ref>
* El Alqimista - (a historical novel) 1974 - {{ISBN|84-230-0041-9}} - {{ISBN|978-84-230-0041-8}} - Editorial Cunillera.<ref>[http://www.libreroonline.com/espana/libros/522382/livraga-rizzi-jorge-a/alquimista-el.html Librero en línea, ed. Cunillera, S.L.], accessed September 12, 2019</ref>
* Manual de primer curso: [ética, socio-política, filosofía de la historia]- Madrid : Nueva Acrópolis, D.L. 1978. {{ISBN|84-300-0173-5}}
* Moassy El Perro - (a novel about society)- 1980 - Nueva Acrópolis
* Cartas a Delia y Fernando - (philosophical work) Madrid : Nueva Acròpolis, 1981. {{ISBN|84-300-4075-7}}
* Pensamientos - (a collection of quotations)- 1982 -Nueva Acrópolis - {{ISBN|84-85982-02-9}}
* Ideario - vols. I, II & III - (A compilation of magazine articles)
* Los espíritus elementales de la naturaleza (The elemental spirits of nature, an esoteric study) - Madrid : Nueva Acrópolis, D.L. 1985. {{ISBN|84-85982-19-3}}
* Tebas - (Thebes, a study of Egypt) Valencia : Nueva Acrópolis, D.L. 1986. {{ISBN|84-85982-26-6}}
* Jorge Ángel Livraga. El teatro Mistérico en Grecia I. La Tragedia. (A study of ancient Greek theater) Ed. NA -1987 -Editorial Nueva Acrópolis - {{ISBN|84-85982-28-2}}
* Magia, Religion y Ciencia para el tercer Milenio I, II, III & IV- (a collection of lecture transcripts) 1995 - Nueva Acropolis, A.C.-{{ISBN|84-85982-61-4}}

==References==
{{Reflist}}

==External links==
* [https://web.archive.org/web/20060127202304/http://www.acropolis.org/about/jal.aspx?lang=eng Livraga's biography on acropolis.org]
*
{{Authority control}}
{{DEFAULTSORT:Livraga Rizzi, Jorge Angel}}
[[Category:1930 births]]
[[Category:1991 deaths]]
[[Category:20th-century Argentine philosophers]]
[[Category:Argentine people of Italian descent]]

Module:EditAtWikidata

2026-04-05T10:07:42Z

Cultopedia-admin: Cultopedia: guard Module:EditAtWikidata on non-Wikibase wiki

-- Module to display an icon with a tooltip such as "Edit this at Wikidata".
-- Icon is linked to the Wikidata entry for the article where this is placed.
-- This message is only displayed if a local_parameter is not supplied
-- i.e. when called from a template, it can be coded not to display the message.
-- The qid of a Wikidata entry can optionally be supplied for testing outside the article.
-- Usage:
-- {{#invoke:EditAtWikidata|showMessage|local_parameter}}
-- {{#invoke:EditAtWikidata|showMessage|qid=<ArticleID>|local_parameter}}

local p = {}

local i18n =
{
["message"] = "Edit this at Wikidata"
}

local function trimToNil(text)
-- Return trimmed non-empty text, or nil.
if type(text) == 'string' then
return text:match('(%S.-)%s*$')
end
end

function p._showMessage(args)
local local_parm = trimToNil(args[1])
if local_parm then return "" end
if not mw.wikibase then return "" end
-- Parameter qid=x specifies the Wikidata ID for the article.
-- This is not normally used except for testing outside the article.
local qid = trimToNil(args.qid) or (mw.wikibase.getEntityIdForCurrentPage and mw.wikibase.getEntityIdForCurrentPage())
if qid and mw.wikibase.entityExists(qid) then
-- Parameter pid=x uses x as an anchor in the link to the Wikidata entry.
local anchor = trimToNil(args.pid)
-- Parameter nbsp replaces the leading space with  
local space = trimToNil(args.nbsp) and " " or " "
return
space ..
"[[File:OOjs UI icon edit-ltr-progressive.svg|frameless|text-top|10px" ..
"|alt=" .. i18n.message ..
"|link=https://www.wikidata.org/wiki/" .. qid ..
(anchor and ("#" .. anchor) or "") ..
"|class=noprint" ..
"|" .. i18n.message ..
"]]"
end
return ""
end

function p.showMessage(frame)
return p._showMessage(frame.args)
end

return p

Module:Coordinates

2026-04-05T10:06:12Z

Cultopedia-admin: Cultopedia: guard Module:Coordinates Wikibase tracking on non-Wikibase wiki

--[[
This module is intended to replace the functionality of {{Coord}} and related
templates. It provides several methods, including

{{#invoke:Coordinates | coord }} : General function formatting and displaying
coordinate values.

{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal
degree values to DMS format.

{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
to decimal degree format.

{{#invoke:Coordinates | link }} : Export the link used to reach the tools

]]

require('strict')

local math_mod = require("Module:Math")
local coordinates = {};
local isSandbox = mw.getCurrentFrame():getTitle():find('sandbox', 1, true);

local current_page = mw.title.getCurrentTitle()
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
local coord_link = 'https://geohack.toolforge.org/geohack.php?pagename=' .. page_name .. '&params='

--[[ Helper function, replacement for {{coord/display/title}} ]]
local function displaytitle(coords)
return mw.getCurrentFrame():extensionTag{
name = 'indicator',
args = { name = 'coordinates' },
content = '<span id="coordinates">[[Geographic coordinate system|Coordinates]]: ' .. coords .. '</span>'
}
end

--[[ Helper function, used in detecting DMS formatting ]]
local function dmsTest(first, second)
if type(first) ~= 'string' or type(second) ~= 'string' then
return nil
end
local s = (first .. second):upper()
return s:find('^[NS][EW]$') or s:find('^[EW][NS]$')
end

--[[ Wrapper function to grab args, see Module:Arguments for this function's documentation. ]]
local function makeInvokeFunc(funcName)
return function (frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = 'Template:Coord'
})
return coordinates[funcName](args, frame)
end
end

--[[ Helper function, handle optional args. ]]
local function optionalArg(arg, supplement)
return arg and arg .. supplement or ''
end

--[[
Formats any error messages generated for display
]]
local function errorPrinter(errors)
local result = ""
for i,v in ipairs(errors) do
result = result .. '<strong class="error">Coordinates: ' .. v[2] .. '</strong><br />'
end
return result
end

--[[
Determine the required CSS class to display coordinates

Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
default is the mode as specificied by the user when calling the {{coord}} template
mode is the display mode (dec or dms) that we will need to determine the css class for
]]
local function displayDefault(default, mode)
if default == "" then
default = "dec"
end

if default == mode then
return "geo-default"
else
return "geo-nondefault"
end
end

--[[
specPrinter

Output formatter. Takes the structure generated by either parseDec
or parseDMS and formats it for inclusion on Wikipedia.
]]
local function specPrinter(args, coordinateSpec)
local uriComponents = coordinateSpec["param"]
if uriComponents == "" then
-- RETURN error, should never be empty or nil
return "ERROR param was empty"
end
if args["name"] then
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end

local geodmshtml = '<span class="geo-dms" title="Maps, aerial photos, and other data for this location">'
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '</span>'

local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local geodeclat
if lat < 0 then
-- FIXME this breaks the pre-existing precision
geodeclat = tostring(coordinateSpec["dec-lat"]):sub(2) .. "°S"
else
geodeclat = (coordinateSpec["dec-lat"] or 0) .. "°N"
end

local long = tonumber( coordinateSpec["dec-long"] ) or 0
local geodeclong
if long < 0 then
-- FIXME does not handle unicode minus
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"
else
geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
end

local geodechtml = '<span class="geo-dec" title="Maps, aerial photos, and other data for this location">'
.. geodeclat .. ' '
.. geodeclong
.. '</span>'

local geonumhtml = '<span class="geo">'
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
.. '</span>'

local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';

if not args["name"] then
inner = inner .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>'
else
inner = inner .. '<span class="vcard">' .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>'
.. '<span style="display:none"> (<span class="fn org">'
.. args["name"] .. '</span>)</span></span></span>'
end

local stylesheetLink = 'Module:Coordinates' .. ( isSandbox and '/sandbox' or '' ) .. '/styles.css'
return mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = stylesheetLink }
} .. '<span class="plainlinks nourlexpansion">[' .. coord_link .. uriComponents ..
' ' .. inner .. ']</span>' .. '[[Category:Pages using gadget WikiMiniAtlas]]'
end

--[[ Helper function, convert decimal to degrees ]]
local function convert_dec2dms_d(coordinate)
local d = math_mod._round( coordinate, 0 ) .. "°"
return d .. ""
end

--[[ Helper function, convert decimal to degrees and minutes ]]
local function convert_dec2dms_dm(coordinate)
coordinate = math_mod._round( coordinate * 60, 0 );
local m = coordinate % 60;
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."°"

return d .. string.format( "%02d′", m )
end

--[[ Helper function, convert decimal to degrees, minutes, and seconds ]]
local function convert_dec2dms_dms(coordinate)
coordinate = math_mod._round( coordinate * 60 * 60, 0 );
local s = coordinate % 60
coordinate = math.floor( (coordinate - s) / 60 );
local m = coordinate % 60
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."°"

return d .. string.format( "%02d′", m ) .. string.format( "%02d″", s )
end

--[[
Helper function, convert decimal latitude or longitude to
degrees, minutes, and seconds format based on the specified precision.
]]
local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
local coord = tonumber(coordinate)
local postfix
if coord >= 0 then
postfix = firstPostfix
else
postfix = secondPostfix
end

precision = precision:lower();
if precision == "dms" then
return convert_dec2dms_dms( math.abs( coord ) ) .. postfix;
elseif precision == "dm" then
return convert_dec2dms_dm( math.abs( coord ) ) .. postfix;
elseif precision == "d" then
return convert_dec2dms_d( math.abs( coord ) ) .. postfix;
end
end

--[[
Convert DMS format into a N or E decimal coordinate
]]
local function convert_dms2dec(direction, degrees_str, minutes_str, seconds_str)
local degrees = tonumber(degrees_str)
local minutes = tonumber(minutes_str) or 0
local seconds = tonumber(seconds_str) or 0

local factor = 1
if direction == "S" or direction == "W" then
factor = -1
end

local precision = 0
if seconds_str then
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
elseif minutes_str and minutes_str ~= '' then
precision = 3 + math.max( math_mod._precision(minutes_str), 0 );
else
precision = math.max( math_mod._precision(degrees_str), 0 );
end

local decimal = factor * (degrees+(minutes+seconds/60)/60)
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
end

--[[
Checks input values to for out of range errors.
]]
local function validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, source, strong )
local errors = {};
lat_d = tonumber( lat_d ) or 0;
lat_m = tonumber( lat_m ) or 0;
lat_s = tonumber( lat_s ) or 0;
long_d = tonumber( long_d ) or 0;
long_m = tonumber( long_m ) or 0;
long_s = tonumber( long_s ) or 0;

if strong then
if lat_d < 0 then
table.insert(errors, {source, "latitude degrees < 0 with hemisphere flag"})
end
if long_d < 0 then
table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"})
end
--[[
#coordinates is inconsistent about whether this is an error. If globe: is
specified, it won't error on this condition, but otherwise it will.

For not simply disable this check.

if long_d > 180 then
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
end
]]
end

if lat_d > 90 then
table.insert(errors, {source, "latitude degrees > 90"})
end
if lat_d < -90 then
table.insert(errors, {source, "latitude degrees < -90"})
end
if lat_m >= 60 then
table.insert(errors, {source, "latitude minutes >= 60"})
end
if lat_m < 0 then
table.insert(errors, {source, "latitude minutes < 0"})
end
if lat_s >= 60 then
table.insert(errors, {source, "latitude seconds >= 60"})
end
if lat_s < 0 then
table.insert(errors, {source, "latitude seconds < 0"})
end
if long_d >= 360 then
table.insert(errors, {source, "longitude degrees >= 360"})
end
if long_d <= -360 then
table.insert(errors, {source, "longitude degrees <= -360"})
end
if long_m >= 60 then
table.insert(errors, {source, "longitude minutes >= 60"})
end
if long_m < 0 then
table.insert(errors, {source, "longitude minutes < 0"})
end
if long_s >= 60 then
table.insert(errors, {source, "longitude seconds >= 60"})
end
if long_s < 0 then
table.insert(errors, {source, "longitude seconds < 0"})
end

return errors;
end

--[[
parseDec

Transforms decimal format latitude and longitude into the
structure to be used in displaying coordinates
]]
local function parseDec( lat, long, format )
local coordinateSpec = {}
local errors = {}

if not long then
return nil, {{"parseDec", "Missing longitude"}}
elseif not tonumber(long) then
return nil, {{"parseDec", "Longitude could not be parsed as a number: " .. long}}
end

errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
coordinateSpec["dec-lat"] = lat;
coordinateSpec["dec-long"] = long;

local mode = coordinates.determineMode( lat, long );
coordinateSpec["dms-lat"] = convert_dec2dms( lat, "N", "S", mode) -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}

if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dec"
end

return coordinateSpec, errors
end

--[[
parseDMS

Transforms degrees, minutes, seconds format latitude and longitude
into the a structure to be used in displaying coordinates
]]
local function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
local coordinateSpec, errors, backward = {}, {}

lat_f = lat_f:upper();
long_f = long_f:upper();

-- Check if specified backward
if lat_f == 'E' or lat_f == 'W' then
lat_d, long_d, lat_m, long_m, lat_s, long_s, lat_f, long_f, backward = long_d, lat_d, long_m, lat_m, long_s, lat_s, long_f, lat_f, true;
end

errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
if not long_d then
return nil, {{"parseDMS", "Missing longitude" }}
elseif not tonumber(long_d) then
return nil, {{"parseDMS", "Longitude could not be parsed as a number:" .. long_d }}
end

if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then
if math_mod._precision( lat_d ) > 0 or math_mod._precision( long_d ) > 0 then
if lat_f:upper() == 'S' then
lat_d = '-' .. lat_d;
end
if long_f:upper() == 'W' then
long_d = '-' .. long_d;
end

return parseDec( lat_d, long_d, format );
end
end

coordinateSpec["dms-lat"] = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. lat_f
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. long_f
coordinateSpec["dec-lat"] = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- {{coord/dms2dec|{{{4}}}|{{{1}}}|0{{{2}}}|0{{{3}}}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}

if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dms"
end

return coordinateSpec, errors, backward
end

--[[
Check the input arguments for coord to determine the kind of data being provided
and then make the necessary processing.
]]
local function formatTest(args)
local result, errors
local backward, primary = false, false

local function getParam(args, lim)
local ret = {}
for i = 1, lim do
ret[i] = args[i] or ''
end
return table.concat(ret, '_')
end

if not args[1] then
-- no lat logic
return errorPrinter( {{"formatTest", "Missing latitude"}} )
elseif not tonumber(args[1]) then
-- bad lat logic
return errorPrinter( {{"formatTest", "Unable to parse latitude as a number:" .. args[1]}} )
elseif not args[4] and not args[5] and not args[6] then
-- dec logic
result, errors = parseDec(args[1], args[2], args.format)
if not result then
return errorPrinter(errors);
end
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation
-- wikiminiatlas doesn't support D;D notation
-- #coordinates parserfunction doesn't support negative decimals with NSWE
result.param = table.concat({
math.abs(tonumber(args[1])),
((tonumber(args[1]) or 0) < 0) and 'S' or 'N',
math.abs(tonumber(args[2])),
((tonumber(args[2]) or 0) < 0) and 'W' or 'E',
args[3] or ''}, '_')
elseif dmsTest(args[4], args[8]) then
-- dms logic
result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],
args[5], args[6], args[7], args[8], args.format)
if args[10] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 9)
elseif dmsTest(args[3], args[6]) then
-- dm logic
result, errors, backward = parseDMS(args[1], args[2], nil, args[3],
args[4], args[5], nil, args[6], args['format'])
if args[8] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 7)
elseif dmsTest(args[2], args[4]) then
-- d logic
result, errors, backward = parseDMS(args[1], nil, nil, args[2],
args[3], nil, nil, args[4], args.format)
if args[6] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 5)
else
-- Error
return errorPrinter({{"formatTest", "Unknown argument format"}}) .. '[[Category:Pages with malformed coordinate tags]]'
end
result.name = args.name

local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
for _, v in ipairs(extra_param) do
if args[v] then
table.insert(errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' })
end
end

local ret = specPrinter(args, result)
if #errors > 0 then
ret = ret .. ' ' .. errorPrinter(errors) .. '[[Category:Pages with malformed coordinate tags]]'
end
return ret, backward
end

--[[
Generate Wikidata tracking categories.
]]
local function makeWikidataCategories(qid)
local ret
if not mw.wikibase then
return ''
end
local qid = qid or (mw.wikibase.getEntityIdForCurrentPage and mw.wikibase.getEntityIdForCurrentPage())
if current_page.namespace == 0 then
if qid and mw.wikibase.entityExists(qid) and mw.wikibase.getBestStatements(qid, "P625") and mw.wikibase.getBestStatements(qid, "P625")[1] then
local snaktype = mw.wikibase.getBestStatements(qid, "P625")[1].mainsnak.snaktype
if snaktype == 'value' then
-- coordinates exist both here and on Wikidata, and can be compared.
ret = 'Coordinates on Wikidata'
elseif snaktype == 'somevalue' then
ret = 'Coordinates on Wikidata set to unknown value'
elseif snaktype == 'novalue' then
ret = 'Coordinates on Wikidata set to no value'
end
else
-- We have to either import the coordinates to Wikidata or remove them here.
ret = 'Coordinates not on Wikidata'
end
end
if ret then
return string.format('[[Category:%s]]', ret)
else
return ''
end
end

--[[
link

Simple function to export the coordinates link for other uses.

Usage:
{{#invoke:Coordinates | link }}

]]
function coordinates.link(frame)
return coord_link;
end

--[[
dec2dms

Wrapper to allow templates to call dec2dms directly.

Usage:
{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
negative_suffix | precision }}

decimal_coordinate is converted to DMS format. If positive, the positive_suffix
is appended (typical N or E), if negative, the negative suffix is appended. The
specified precision is one of 'D', 'DM', or 'DMS' to specify the level of detail
to use.
]]
coordinates.dec2dms = makeInvokeFunc('_dec2dms')
function coordinates._dec2dms(args)
local coordinate = args[1]
local firstPostfix = args[2] or ''
local secondPostfix = args[3] or ''
local precision = args[4] or ''

return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
end

--[[
Helper function to determine whether to use D, DM, or DMS
format depending on the precision of the decimal input.
]]
function coordinates.determineMode( value1, value2 )
local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
if precision <= 0 then
return 'd'
elseif precision <= 2 then
return 'dm';
else
return 'dms';
end
end

--[[
dms2dec

Wrapper to allow templates to call dms2dec directly.

Usage:
{{#invoke:Coordinates | dms2dec | direction_flag | degrees |
minutes | seconds }}

Converts DMS values specified as degrees, minutes, seconds too decimal format.
direction_flag is one of N, S, E, W, and determines whether the output is
positive (i.e. N and E) or negative (i.e. S and W).
]]
coordinates.dms2dec = makeInvokeFunc('_dms2dec')
function coordinates._dms2dec(args)
local direction = args[1]
local degrees = args[2]
local minutes = args[3]
local seconds = args[4]

return convert_dms2dec(direction, degrees, minutes, seconds)
end

--[[
coord

Main entry point for Lua function to replace {{coord}}

Usage:
{{#invoke:Coordinates | coord }}
{{#invoke:Coordinates | coord | lat | long }}
{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
...

Refer to {{coord}} documentation page for many additional parameters and
configuration options.

Note: This function provides the visual display elements of {{coord}}. In
order to load coordinates into the database, the {{#coordinates:}} parser
function must also be called, this is done automatically in the Lua
version of {{coord}}.
]]
coordinates.coord = makeInvokeFunc('_coord')
function coordinates._coord(args)
if not tonumber(args[1]) and not args[2] then
args[3] = args[1]; args[1] = nil
local entity = mw.wikibase.getEntityObject(args.qid)
if entity
and entity.claims
and entity.claims.P625
and entity.claims.P625[1].mainsnak.snaktype == 'value'
then
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
if precision then
precision = -math_mod._round(math.log(precision)/math.log(10),0)
args[1] = math_mod._round(args[1],precision)
args[2] = math_mod._round(args[2],precision)
end
end
end

local contents, backward = formatTest(args)
local Notes = args.notes or ''
local Display = args.display and args.display:lower() or 'inline'

-- it and ti are short for inline,title and title,inline
local function isInline(s)
-- Finds whether coordinates are displayed inline.
return s:find('inline') ~= nil or s == 'i' or s == 'it' or s == 'ti'
end
local function isInTitle(s)
-- Finds whether coordinates are displayed in the title.
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
end

local function coord_wrapper(in_args)
-- Calls the parser function {{#coordinates:}} when available.
local ok, result = pcall(function()
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args)
end)
if ok then
return result or ''
end
return ''
end

local text = ''
if isInline(Display) then
text = text .. '<span class="geo-inline">' .. contents .. Notes .. '</span>'
end
if isInTitle(Display) then
-- Add to output since indicator content is invisible to Lua later on
if not isInline(Display) then
text = text .. '<span class="geo-inline-hidden noexcerpt">' .. contents .. Notes .. '</span>'
end
text = text .. displaytitle(contents .. Notes) .. makeWikidataCategories(args.qid)
end
if not args.nosave then
local page_title, count = mw.title.getCurrentTitle(), 1
if backward then
local tmp = {}
while not string.find((args[count-1] or ''), '[EW]') do tmp[count] = (args[count] or ''); count = count+1 end
tmp.count = count; count = 2*(count-1)
while count >= tmp.count do table.insert(tmp, 1, (args[count] or '')); count = count-1 end
for i, v in ipairs(tmp) do args[i] = v end
else
while count <= 9 do args[count] = (args[count] or ''); count = count+1 end
end
if isInTitle(Display) and not page_title.isTalkPage and page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
args.notes, args.format, args.display = nil
text = text .. coord_wrapper(args)
end
return text
end

--[[
coord2text

Extracts a single value from a transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coord2text | {{Coord}} | parameter }}

Valid values for the second parameter are: lat (signed integer), long (signed integer), type, scale, dim, region, globe, source

]]
function coordinates._coord2text(coord,type)
if coord == '' or type == '' or not type then return nil end
type = mw.text.trim(type)
if type == 'lat' or type == 'long' then
local coordString = mw.ustring.match(coord,'[%.%d]+°[NS] [%.%d]+°[EW]')
if not coordString then
return nil
end
local result = mw.text.split(coordString, ' ')
local negative
if type == 'lat' then
result, negative = result[1], 'S'
else
result, negative = result[2], 'W'
end
if not result then
return nil
end
result = mw.text.split(result, '°')
if not result[1] then
return nil
end
if result[2] == negative then result[1] = '-'..result[1] end
return result[1]
else
return mw.ustring.match(coord, 'params=.-_' .. type .. ':(.-)[ _]')
end
end

function coordinates.coord2text(frame)
return coordinates._coord2text(frame.args[1],frame.args[2]) or ''
end

--[[
coordinsert

Injects some text into the Geohack link of a transclusion of {{Coord}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}

Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} documentation.

]]
function coordinates.coordinsert(frame)
-- for the 2nd or later integer parameter (the first is the coord template, as above)
for i, v in ipairs(frame.args) do
if i ~= 1 then
-- if we cannot find in the coord_template the i_th coordinsert parameter e.g. region
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then
-- find from the params= up to the first possibly-present underscore
-- and append the i_th coordinsert parameter and a space
-- IDK why we're adding a space but it does seem somewhat convenient
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ')
end
end
end
if frame.args.name then
-- if we can't find the vcard class
if not mw.ustring.find(frame.args[1], '<span class="vcard">') then
-- take something that looks like a coord template and add the vcard span with class and fn org class
local namestr = frame.args.name
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)',
'%1<span class="vcard">%2<span style="display:none"> (<span class="fn org">' .. namestr .. '</span>)</span></span>%3'
)
-- then find anything from coordinates parameters to the 'end' and attach the title parameter
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(&params=[^&"<>%[%] ]*) ',
'%1&title=' .. mw.uri.encode(namestr) .. ' '
)
end
end

-- replace the existing indicator with a new indicator using the modified content
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(<span class="geo%-inline[^"]*">(.+)</span>)\127[^\127]*UNIQ%-%-indicator%-%x+%-%-?QINU[^\127]*\127',
function (inline, coord) return inline .. displaytitle(coord) end
)

return frame.args[1]
end

return coordinates

Module:OSM Location map

2026-04-05T10:05:04Z

Cultopedia-admin: Cultopedia: guard OSM Location map Wikibase code paths on non-Wikibase wiki

require('strict')
local delink=require('Module:Delink').delink
local getArgs = require('Module:Arguments').getArgs
local p = {}
local maplist={}
local sgNames={}
local highlightOption=false
local highlightNum
local visibleLinks
local geoTotalPop = 0
local captionTable = ''
local hasWikibase = mw.wikibase and type(mw.wikibase.isValidEntityId) == 'function'
local captionTableText = {}

-- This module creates framed maps of anywhere in the world, at the required scale, and enables annotations,
-- dots, shapes, lines and other ways to customise the area of the map being shown. It also provides a link
-- to an interactive fullscreen version, which has locator dots instead of annotations and shapes.

-- This is the 2025 successor module to a wiki-markup template version of 2024, which itself was a successor
-- to the 'Graph'/VEGA driven template that was begun in 2016, until the Vega version was switched off in 2023.

-- This module is called from template {{OSM Location map}}, which uses the same parameter formats as before.

-- In addition it may at some point be possible to use a more concise parameter format using the template {{OSM Location dots}}
-- In general the css output from the two formats will be identical, but the the concise version will allow bits of
-- greater control over some of the settings.

-- see the documentation on the two template pages for details of how to use the mapping features.

-- If language customisation is needed, there are text items below that can be translated. Also see the color table
-- below with details of how to add additional color names to allow localised alternatives.
-- (Translating other language shape-types could be possible, but has not currently been contemplated.
-- Parameter name translation would be harder but likely to be possible, ideally still retaining compatibility
-- with template calls already written using English).

-- -------------- the following text variables are used within the template, and can be translated as required ---------------
-- -------------- you may wish to retain the English version as a comment, to keep track of the original phrase --------------
local negativeAnswer={no=1,'0'-1,off=1}
local fullscreenlinktext = 'Click for interactive fullscreen map with links to nearby articles'
local toggletext = 'List of numbered map items:'
local termsOfUse = 'Maps: terms of use'
local aboutOSM = 'About OpenStreetMaps'
local yards = 'yds'
local miles = 'miles'
local metres = 'm'
local km = 'km'
local sqkm = 'sq.km'
local year = 'year'
local notFound = 'not found'
local totalItems = 'Total'
local sumOfDatapoints = 'sum of datapoints'
local numberCol = 'No.' -- abbreviated for top of column of code numbers
local wikidataLink = 'Wikidata page'

local shapeList={} --This sets up the 'factoryDefault' shape group 0
shapeList["0"]={shapeType="0",
Name="initialSettings",
Parent="0",
--sga items for the shape
shape="circle",
shapeSize="12px",
shapeColor="blue",
shapeAngle="0deg",
--sgb items for border of the shape
outlineWidth="0.5px",
outlineColor="darkblue",
outlineStyle="solid",
--sgc items text settings for labels
textSZ="11px",
textCL="darkgrey",
textNG="0deg",
--sgf further text settings
textSP="0px",
textLH="120%",
textOL="0px",
textBG="transparent",
--sgd items for dotTag text settings
tagSize="10px",
tagColor="white",
tagSpacer="0px",
tagAngle="0deg",
--sge items for extension line to connect label to dot
textEW="0px",
textEC="darkgrey",
textES="solid"
}

local colorList={} -- used by colorLookup to catch unsupported colors (eg 'LimeGreen'), to convert to generic version
colorList['green']='hardgreen' -- it could also be added to to include alternative language equivelants, for a quick solution.
colorList['red']='hardred' -- colorList ['source'] = target
colorList['white']='white' -- converts any color that includes 'source' into its equivelent target
colorList['blue']='hardblue' -- note, for translation you can add to this list, rather than replace it,
colorList['brown']='brown' -- which would mean existing map definitions in english would also still work, alongside translated ones
colorList['grey']='hardgrey'
colorList['gray']='hardgrey'
colorList['purple']='hardpurple'
colorList['orange']='hardorange'
colorList['leaf']='hardleaf'

--for a more thorough translation, you can add all the variants of the colors as further CTB elements and hex values or redirects
local CTB={} -- set up a table of color names (the CTB Color table index) and html hash colorhex values.
CTB["paleblue"],CTB["softblue"],CTB["hardblue"],CTB["darkblue"]="#D6E1EC","#77A1CB","#4B77D6","#1c559e"
CTB["palered"],CTB["softred"],CTB["hardred"],CTB["darkred"] = "#FCC6C0","#EC644B","#DB3123","#AA1205"
CTB["palegreen"],CTB["softgreen"],CTB["hardgreen"],CTB["darkgreen"]= "#D2F0E5","#81AF81","#269F46","#0b7527"
CTB["paleleaf"],CTB["softleaf"],CTB["hardleaf"],CTB["darkleaf"]= "#dff5c1","#b5e376","#8cc244","#679c21"
CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]= "#E8E8D6","#AAAA88","#777755","#444433"
CTB["palegray"],CTB["softgray"],CTB["hardgray"],CTB["darkgray"]=CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]
CTB["palebrown"],CTB["softbrown"],CTB["hardbrown"],CTB["darkbrown"]="#FAF6ED","#CCB56C","#AD7F14","#754910"
CTB["palepurple"],CTB["softpurple"],CTB["hardpurple"],CTB["darkpurple"]="#e0d1e6","#c784e0","#a029cf","#7a05a8"
CTB["paleorange"],CTB["softorange"],CTB["hardorange"],CTB["darkorange"]="#ffedc2","#ffcf61","#EEB533","#e39f05"
CTB["black"],CTB["white"],CTB["yellow"]="#000000","#FFFFFF","#FAF039"
CTB["background"],CTB["paleground"],CTB["beigeground"]="#f9f6f2","#FEFEFA","#F5F5DC"
CTB["beige"]=CTB["beigeground"]
CTB["aqua"],CTB["teal"],CTB["fuchsia"] = "#00FFFF","#008080","#FF00FF"
CTB["maroon"],CTB["olive"],CTB["navy"] = "#800000","#808000","#000080"
CTB["lime"],CTB["limegreen"],CTB["aquamarine"] = "#00FF00","#32CD32","#7FFFD4"
CTB["silver"],CTB["yellow"],CTB["orchid"] = "#800000","#FFFF00","#DA70D6"

-- set up a table of predefined clip-paths
local pathshape={}
pathshape.squaredd = "M 19,1.25 l 0,18 -18,0 0,-18 18,0m-1,1 -16,0 0,16 16,0 0,-16m-1,1 0,14 -14,0 0,-14 14,0zm-1,1 -12,0 0,12 12,0 0,-12zm-1,1 0,10 -10,0 0,-10 10,0z"
pathshape.squared = "M 18,2.5 l 0,15 -15,0 0,-15 15,0m-1,1 -13,0 0,13 13,0 0,-13zm-1,1 0,11 -11,0 0,-11 11,0z"
pathshape.triangledd="M 0 20,20 20,10 0,0 20ZM1.5 19,10 1.7,18.5 19,1.5 19ZM3 18,17 18,10 3.8,3 18ZM4.5 17,10 5.4,15.4 17, 4.5,17ZM6 16,13.8 16,10 7.4z"
pathshape.triangled ="M1,18 l 18,0 l -9,-18 l -9,18zm1.7,-1.1 l 7.3,-14.6 l 7.3,14.6 l -14.6, 0zm1.7,-1 l 11.0,0 l -5.5,-11 l -5.5,11z"
pathshape.circledd = "M0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm0.8,0a9.2,9.2 0 1,1 18.4,0a9.2,9.2 0 1,1 -18.4,0m1,0a8.2,8.2 0 1,0 16.4,0a8.2,8.2 0 1,0 -16.4,0zm0.8,0a7.2,7.2 0 1,1 14.8,0a7.2,7.2 0 1,1 -14.8,0m1,0 a6.4,6.4 0 1,1 12.8,0a6.4,6.4 0 1,1 -12.8,0z"
pathshape.circled = "M2.5,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0m0.8,0 a5,5 0 1,1 11.4,0a5,5 0 1,1 -11.4,0"
pathshape.diamond = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10z"
pathshape.diamondd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm1,0 l 6,8.5 l 6,-8.5 -6,-8.5 -6,8.5zm1,0 l 5,-7 5,7 -5,7 -5,-7z"
pathshape.diamonddd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm0.75,0 l 6.25,9 l 6.25,-9 -6.25,-9 -6.25,9zm0.75,0 l 5.5,-8 5.5,8 -5.5,8 -5.5,-8zm0.75,0 l 4.75,7 l 4.75,-7 -4.75,-7 -4.75,7zm0.75,0 l 4,-6 4,6 -4,6 -4,-6z"
pathshape.crossd = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0zM2.3,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"
pathshape.cross = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0z"
pathshape.thincross = "M2,12 l6,0 l0,6 l4,0 l0,-6 l6,0 l0,-4 l-6,0 l0,-6 l-4,0 l0,6 l-6,0z"
pathshape.fivepointstar = "M10 0 L12.245 6.91 19.511 6.91 13.633 11.18 15.878 18.09 10 13.82 4.122 18.09 6.367 11.18 0.489 6.91 7.755 6.91Z"
pathshape.fivepointstard = "M10 1.5 L 11.90825 7.3735 18.08435 7.3735 13.08805 11.003 14.9963 16.8765 10 13.247 5.0037 16.8765 6.91195 11.003 1.91565 7.3735 8.09175 7.3735 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.sixpointstar = "M10 0 L12.323 5.977 18.66 5 14.645 10 18.66 15 12.323 14.023 10 20 7.677 14.023 1.34 15 5.355 10 1.34 5 7.677 5.977Z"
pathshape.sixpointstard = "M10 1.5 L 11.97455 6.58045 17.361 5.75 13.94825 10 17.361 14.25 11.97455 13.41955 10 18.5 8.02545 13.41955 2.639 14.25 6.05175 10 2.639 5.75 8.02545 6.58045 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.sevenpointstar = "M10 0 L12.048 5.747 17.818 3.765 14.602 8.95 19.749 12.225 13.69 12.943 14.339 19.01 10 14.72 5.661 19.01 6.31 12.943 0.251 12.225 5.398 8.95 2.182 3.765 7.952 5.747Z"
pathshape.sevenpointstard = "M10 1.5 L11.7408 6.38495 16.6453 4.70025 13.9117 9.1075 18.28665 11.89125 13.1365 12.50155 13.68815 17.6585 10 14.012 6.31185 17.6585 6.8635 12.50155 1.71335 11.89125 6.0883 9.1075 3.3547 4.70025 8.2592 6.38495 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.eightpointstar = "M10 0 L11.88 5.46 17.071 2.929 14.54 8.12 20 10 14.54 11.88 17.071 17.071 11.88 14.54 10 20 8.12 14.54 2.929 17.071 5.46 11.88 0 10 5.46 8.12 2.929 2.929 8.12 5.46Z"
pathshape.eightpointstard = "M10 0 L10 1.5 L11.598 6.141 16.01035 3.98965 13.859 8.402 18.5 10 13.859 11.598 16.01035 16.01035 11.598 13.859 10 18.5 8.402 13.859 3.98965 16.01035 6.141 11.598 1.5 10 6.141 8.402 3.98965 3.98965 8.402 6.141ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.ring="M2.6,9.5a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"
pathshape.semicircle = "M0,5 C0,18.3,20,18.3,20,5 L 0,5z"
pathshape.arrowhead = "M 10,10.2 l 10,2.8 -2,-3 2,-3 -10,2.8 -0.2,0.2z"
pathshape.boxd=pathshape.squared
pathshape.boxdd=pathshape.squaredd
pathshape.ellipsed=pathshape.circled
pathshape.ellipsedd=pathshape.circledd

local msg={}
local function debugmsg(txt)
table.insert(msg,txt)
end
local pmsg={}
local function previewMsg(txt)
table.insert(pmsg,txt)
end

local function colorLookup(color)
for c,l in pairs(colorList) do
if string.find(color,c) then return l end
end
return color
end

local function getColor (color,chk)
local c
local opacity="100"
if not color or color=='' then color='hardgrey' end
if color=="transparent" then return color end
if color=="background1" then color='background' end
if string.byte(color,1,1)==35 and (#color == 7 or #color == 9) then
c=color
elseif string.byte(color,1,1)==35 and #color == 4 then
c=string.sub(color,1,2)..'f'..string.sub(color,3,3)..'f'..string.sub(color,4,4)..'f'
else
local s=color..'1'
s= s:sub(0,s:find("%d")-1)
opacity=string.match(color,"%d+")
if not CTB[s] then s= colorList[s] end -- check for synonyms and translations
if not CTB[s] then debugmsg(mw.addWarning('color = '..color..'. The color name is not defined. Used default grey instead')) end
c=CTB[s] or CTB.hardgrey
end
if opacity and (tonumber(opacity) < 100) and string.find(c,"#")==1 and string.len(c)==7 and opacity~="" then
local hexval=string.format("%x",(math.floor(tonumber(opacity)*2.55)))
c=c..hexval
end
return c
end

function p.colorvalue(frame) -- enable external access to the CTB colorTable values. usage: {{#invoke:OSM Location map|colorvalue|color=hard blue}}
local c
if not frame.args.color or frame.args.color=='' then c='grey'
else c=string.lower(string.gsub(frame.args.color,'%s+','')) end
return string.upper(string.sub(getColor(c),2))
end

local function checkColors(color)
local c=getColor(color,'check')
local opacity =1 -- calculate colour brightness and return black or white for contrast
if c=='transparent' then return c,'#000000',0 end
if not (string.find(c,'#')==1) then return c,'#FFFFFF',0 end
if #c>8 then opacity= tonumber('0x'..(string.sub(c,8,9)))/500 end
local r=tonumber('0x'..(string.sub(c,2,3)))/255
local g=tonumber('0x'..(string.sub(c,4,5)))/255
local b=tonumber('0x'..(string.sub(c,6,7)))/255
if 0.2126 * r + 0.7152 * g + 0.0722 * b / opacity < 0.7 then
return c,'#FFFFFF',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity
else return c,'#000000',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity
end
end

local function morethan(a,b)
if tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]')) and tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]')) then
a = tonumber(string.match(a, '%-?%f[%d]%d[,.%d]*%f[%D]') )
b = tonumber(string.match(b, '%-?%f[%d]%d[,.%d]*%f[%D]') or '0')
end
return a>b
end

local function lessthan(a,b)
if tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]')) and tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]')) then
a = tonumber(string.match(a, '%-?%f[%d]%d[,.%d]*%f[%D]'))
b = tonumber(string.match(b, '%-?%f[%d]%d[,.%d]*%f[%D]') or '0')
end
return a<b
end

local function getsize(size)
--size1 is between 1 and 3 values, each with px, equating to width,height,corner-rounding
--eg '15px 25px 5px' (spaces are optional) or '18px'. returns three numbers
local sizeval = {}
for v in string.gmatch(size, "[^px]+") do
table.insert(sizeval,v)
end
sizeval[1] = tonumber(sizeval[1]) or 13
sizeval[2] = tonumber(sizeval[2]) or sizeval[1]
sizeval[3] = tonumber(sizeval[3]) or 0

return sizeval[1],sizeval[2],sizeval[3]
end

local function coord2text(coord) -- looks through the output from {{coord}} to find the lat and long decimal values
-- and converts compass points to minus or not-minus, return with separating comma.
local lat = string.match(coord,'[%.%d]+°[NS]')
local lon = string.match(coord,'[%.%d]+°[EW]')
local neg={N="",S="-",W="-",E=""}
return neg[string.match(lat, '[NS]')]..string.match(lat,'[%.%d]+')..","..neg[string.match(lon, '[EW]')]..string.match(lon,'[%.%d]+')
end

local function convertCoordsTrad (row)
local coords=''
if row and string.find (row,'<span class="geo">') then
local a,b=string.find(row,'<span class="geo">')
local start=b+1
a,b=string.find(row,"</span>",b)
local finish=a-1
coords=string.sub(row,start,finish)
coords=string.gsub(coords,'; ',',')
end
return coords
end

local function convertCoords (row)
local start,finish,lat,lon,coords,says
if row then
local a,b=string.find(row,"<span class=")
start=a
while a do -- find the final span>
finish=b
a,b=string.find(row,"span>",b)
end
if start then
coords= string.sub(row,start,finish)
says=""
if string.find(coords,'<span class="error">') then
error("coord error: badly formed coordinates",0)
end
coords=coord2text(coords)
coords = string.sub(row,1,start-1)..coords..string.sub(row,finish+1)
else
coords=row
end
return coords
else
return "Nothing to see here"
end
end

local function fillCommas(val,max)
local line=''
if not val then line=',' -- ensure there is some content
else line = val --string.lower(string.gsub(val,"%s+","")) -- or strip spaces
end
if string.find(line,',') == 1 then line=' '..line end -- ensure initial comma is not skipped
local _, count=string.gsub(line,",","") -- add enough subsequent commas for all entries
line=line..string.rep(',',max-count)
while(string.find(line,",,") ) do
line=string.gsub(line,",,",", ,") --ensure string.gmatch doesn't ignore any empty items by padding with spaces
end
return line
end

local function makeLinkBox(left,top,wid,label, link)
local linkBoxName='Transparent square.svg'
if visibleLinks or '' =='yes' then linkBoxName='Red hollow square.svg' end
local builder = mw.html.create('div') --display:inline-block;
local t= string.find(label,'wikidata') -- exclude wikidata from tooltip line
if t then
label=string.sub(label,1,t-2) -- don't show wikidata value in tooltip
if string.find(link,'wikidata') then link = '' end -- don't link on click to wikidata (if there was not another link)
end
builder
:cssText('position:absolute;left:'..tostring(left-1-wid/2)..'px;top:'..tostring(top-1 + math.min(wid/2-12,0) - wid/2)..'px')
:wikitext(string.format( '[[File:%s|%dpx|link=%s|%s]]', linkBoxName, wid+2, link, label ))
return tostring(builder)
end

local function extractItem(row,searchItem)
-- remove text following a searchItem or start of line, which might be in quote-marks to allow commas
local xend,xstart=1,0
if not row then return '','' end
if searchItem then xend,xstart= string.find(row or '',searchItem or 'image:') end
if not xstart then return string.gsub(string.gsub(row or '',"%b\"\"", ''),"%b\'\'", '') or '','' end
while row:byte(xstart+1) == 32 and xstart<#row do -- skip over any leading spaces
xstart=xstart+1
end
local xbyte=row:byte(xstart+1)
if xbyte == 34 or xbyte == 39 then -- are they wrapped in single or double quotes
xstart=xstart+1
xend=row:find(string.char(xbyte),xstart+1)
else
xend = row:find(',',xstart+1) -- if no quotes, we assume no commas
if not xend then xend=#row+1 end
end -- return residual row and extracted text
return row:sub(0,xstart)..row:sub(xend), row:sub(xstart+1,xend-1)
end

local function itemCheck(item,ext)
if not item then return nil end
if not ext then ext='' end
return (string.match(item,"[%.%-?%d]+") or '0')..ext
end

local function stripdivs(line)
return string.gsub(line or '',"%b<>", ' ')
end

local function splitItem(item,max) -- takes a commas-sep list and returns a table of lowercase items with no spaces, or nil
local r={}
local x=1
item=string.lower(fillCommas(item,max))
for t in string.gmatch(item,"[^,]+") do
r[x]=string.gsub(t,"%s+","")
if r[x]=='' then r[x]= nil else -- residual items might have commas
if x>max then r[max]=(r[max] or '')..', '..r[x] end
end
x=x+1
end
return r
end

local function ParseShapeTypes (result,args,sgval) -- for use with compressed, comma-separated 'sg plus dots' parameters
--[[ shape table items and default values as set at top of page
shapeType="0", Name="initialSettings", Parent="0",
--sga items for the shape shape="circle", shapeSize="12px", shapeColor="blue", shapeAngle="0deg",
--sgb items for border outlineWidth="0.5px", outlineColor="darkblue", outlineStyle="solid",
--sgc items label text textSZ="11px", textCL="white", textNG="0deg", textAT=attributes ("bold" and/or "italic")
--sgd items for dotTag tagSize="11px", tagColor="darkgrey", tagSpacer="0px", tagAngle="0deg",
--sge extension line textEW="1px", textEC="darkblue", textES="solid"
--sgf fx for text labels textSP="0px" textLH="100%" textOL="1px", textBG="paleground",

--]]

if args["sgn"..sgval] then
local sgname=string.match(args["sgn"..sgval],"(%w+)(.*)")
sgNames[sgname]=sgval
end
local parent= args["sgp"..sgval]
if parent then
parent=string.match(parent,"(%w+)(.*)")
local pos= string.find(parent,"%d+")
if pos == 1 then
parent=string.match(parent,"%d+")
else
parent=sgNames[parent] or '1'
end
end
if sgval~='H' then
if not parent or tonumber(parent) > tonumber(sgval) then
if sgval=="1" then parent="0" else parent="1" end
end
end
local itemTab, line, filename
result[sgval]={}
result[sgval].shapeType=sgval
line,filename=extractItem(args['sga'..sgval] or '','image:')
if sgval=='1' and not args.sga1 then line='circle,12px,blue,0deg' end -- ensure there is a parent=1 sga
result[sgval].shapeFile=filename or ''
-- sga= Attributes for shape
itemTab=splitItem(line,4)
result[sgval].shape = itemTab[1] or result[parent].shape
result[sgval].shapeSize=itemTab[2] or result[parent].shapeSize
result[sgval].shapeColor=itemTab[3] or result[parent].shapeColor
result[sgval].shapeAngle=itemCheck(itemTab[4],'deg') or result[parent].shapeAngle
-- sgb= Border outline attributes for shape
itemTab=splitItem(args['sgb'..sgval],3)
result[sgval].outlineWidth=itemCheck(itemTab[1],'px') or result[parent].outlineWidth
result[sgval].outlineColor=itemTab[2] or result[parent].outlineColor
result[sgval].outlineStyle=itemTab[3] or result[parent].outlineStyle
--sgc=character attributes for label
itemTab=splitItem(args['sgc'..sgval],4)
result[sgval].textSZ=itemCheck(itemTab[1],'px') or result[parent].textSZ -- size of text in px
result[sgval].textCL=itemTab[2] or result[parent].textCL -- colour for text
result[sgval].textNG=itemCheck(itemTab[3],'deg') or result[parent].textNG -- Angle for text
result[sgval].textAT=itemTab[4] or result[parent].textAT -- attributes bold, and/or italic
--sgd=dotTag attributes
itemTab=splitItem(args['sgd'..sgval],4)
result[sgval].tagSize=itemCheck(itemTab[1],'px') or result[parent].tagSize
result[sgval].tagColor=itemTab[2] or result[parent].tagColor
result[sgval].tagSpacer=itemCheck(itemTab[3],'px') or result[parent].tagSpacer
result[sgval].tagAngle=itemCheck(itemTab[4],'deg') or result[parent].tagAngle
--sge= extension line attributes
itemTab=splitItem(args['sge'..sgval],4)
result[sgval].textEW=itemCheck(itemTab[1],'px') or result[parent].textEW -- width
result[sgval].textEC=itemTab[2] or result[parent].textEC -- colour
result[sgval].textES=itemTab[3] or result[parent].textES -- style
--sgf= fx for label text
itemTab=splitItem(args['sgf'..sgval],4)
result[sgval].textSP=itemCheck(itemTab[1],'px') or result[parent].textSP -- spacing value for letters
result[sgval].textLH=itemCheck(itemTab[2],'%') or result[parent].textLH -- Angle for text
result[sgval].textOL=itemCheck(itemTab[3],'px') or result[parent].textOL -- width of text-border line
result[sgval].textBG=itemTab[4] or result[parent].textBG -- color for text background

return result
end

local function round(x,dec)
-- x=number [, dec=integer] returns numeric value with upto dec decimals (all but first trailing zeros get truncated)
if (dec or 0)==0 then
return x>=0 and math.floor(x+0.5) or math.ceil(x-0.5) --this avoids .0 where dec=0
end
dec =10^(dec)
return x>=0 and math.floor(x*dec+0.5)/dec or math.ceil(x*dec-0.5)/dec
end

local function maptogrid(t,r,test)
--[[ converts mercator projection longitude and latitude coordinates to x and y pixel coordinates, within a frame of given size, centre coordinates and zoom level.
t is a table of named indices: {lon, lat, lonbase, latbase, width, height, zoom}
output is two values, x and y, rounded to r decimal places--]]
local x,y
x=t.width/2 + ( ((math.rad(t.lon)*6378137) - (math.rad(t.lonbase)* 6378137) ) / (156543.03*math.cos(t.latbase/180)/(2^t.zoom) ) )*(1-(0.075*(math.abs(t.latbase)/90)))
y=t.height/2 + ( ( (math.log(math.tan(math.rad(t.latbase)/2+math.pi/4))*6378137) - (math.log(math.tan(math.rad(t.lat)/2+math.pi/4))*6378137) ) / (156543.03*math.cos(t.latbase/180) / (2^t.zoom) ) )*(1-(0.075*(math.abs(t.latbase)/90)))
return round(x,r),round(y,r)
--source: python code at https://wiki.openstreetmap.org/wiki/Slippy_map_tilenames and https://wiki.openstreetmap.org/wiki/Mercator
--[[
width and height are the size, in pixels, of the map, which will be centerd around lonbase,latbase.
Method: Convert lon and lonbase to meter-offsets from coord(0,0), and subtract lonbase from lon,
zoom and latbase are used to scale the resulting meter-offset to pixels, and add it to width/2.
Convert lat and lat-base to meter-offsets from coord(0,0), subtract lat from latbase,
scale the resulting meter-offset to pixels, add it to height/2.
A correction factor '*(1-(0.075*(math.abs(t.latbase)/90) ) )' compensates for an error that seems to creep in towards
the edges of the map at higher latitudes. It was identified experimentally, and ensures a dot at the edge is
in the same place as if that location is positioned at the centre.

Original Python code for lat,lon to x,y where 0,0 is the centre of the map
print('x=',width+(((math.radians(lon1) * 6378137)-
(math.radians(lonbase) * 6378137))/
(156543.03*math.cos(latbase/180)/(2**zoom))),' y=',height+((
(math.log(math.tan(math.pi / 4 + math.radians(latbase) / 2)) * 6378137)-
(math.log(math.tan(math.pi / 4 + math.radians(lat1) / 2)) * 6378137))/
(156543.03*math.cos(latbase/180)/(2**zoom)))
) --]]
end

local function getScale(zoom, lat,magVal)
zoom = tonumber(zoom) or 1
lat = tonumber(lat) or 0
if magVal and magVal>1 and magVal <=2 then zoom=zoom+(magVal-1) end
local dist=(156543.03 * math.cos(math.rad(math.abs(lat))) / (2 ^ zoom))/17
local y
if dist < 1 then
y=(round(dist*10,1))
return tostring(y*100)..metres, tostring(round(y*109,0))..yards
elseif dist <18 then
y=(round(dist,0))
return tostring(y)..km, tostring(round(y*0.621371,1))..miles
elseif dist <500 then
y=round(dist/10)
return tostring(y*10)..km, tostring(round(y*6.21371,0))..miles
else
y=round(dist/100)
return tostring(y*100)..km, tostring(round(y*62.1371,0))..miles
end
end

local function ParseData (args,dotval) -- for use with compressed, comma-separated 'sg plus dots' parameters
-- takes a structured series of comma-separated items which get parsed as the following:
-- dot(n)= (sgNumber or Name),{{coord}} or (lat,lon), (dotTag)
-- dotlink(n) = single-parameter text to give wikilink and/or title used by tootlip, fullscreen dots and autocaption list
-- dotlabel(n) = 'label text',pos(left,roght,top,bottom,centre,auto),(dx), (dy) pixel offsets, params, info
-- dotpic(n) = single parameter wikimedia filename for an image to use in photopanel and/or fullscreen dots
-- dotfeature(n)= 'mark-line' (,linewidth,style,gap) or 'photo-panel' (,image-dim,panel-width,panel-height), draws line to n-1
-- label is used if either a position and/or an x,y offset are not 0,0 ( if no label then dotTag will be put at at the x,y offset, or over the dot
-- label text can be autoaligned if x,y puts it left or right of the dot, or centered if above/below)
-- quote marks are not needed unless including commas within the label text
-- param1 is optional items separated by spaces, and can include [nolabel nolist nomap hemisphere+1 hemisphere-1]
-- info is free wikitext, to be used in the fullscreen dot box. (use dotpic to show a picture)

--
local result={}
local count=1
local row = convertCoords (args["dot"..dotval]) -- swap in any {{coord}} values so they are csv lat and lon
row=fillCommas(row,4)
result.code=dotval -- store the parameter name as the id code
for item in string.gmatch(row,"[^,]+") do -- iterate through 'row', adding each csv item in turn, if present
if count==1 then --see if it is a number or a name
local pos= string.find(item,"%d+")
if pos == 1 then
result.group=string.lower(string.gsub(item,"%s+",""))
else
item=string.match(item,"(%w+)(.*)") -- ensure just a single word
result.group=sgNames[item]
end
elseif count==2 then
result.lat=tonumber(string.match(item,"[%.%-?%d]+")) or 0-- find the number, with no non-numeric stuff
elseif count==3 then
result.lon=tonumber(string.match(item,"[%.%-?%d]+")) or 0
elseif count==4 then
result.dotTag=item:match( "^%s*(.-)%s*$" ) or "" -- dotTag allows for internal spaces, but no commas
end
count=count+1
end
row, result.labelText= extractItem(args["dotlabel"..dotval])
result.labelText= string.gsub(result.labelText,"[%^]+","<br>") -- convert hats to line breaks
local item=splitItem(row,6)
result.labelPos=item[2] or 'center'
result.dx=tonumber(string.match(item[3] or '0',"[%.%-?%d]+")) or 0
result.dy=tonumber(string.match(item[4] or '0',"[%.%-?%d]+")) or 0
result.param1=string.lower(item[5] or '')
if string.find(result.param1,"hemisphere-1",1,true) then result.lon=result.lon-360
elseif string.find(result.param1,"hemisphere+1",1,true) then result.lon=result.lon+360
end
local txt = ''
if item[6] then -- ensure all info elements are included, including commas
count=1
local max=6
for t1 in string.gmatch(fillCommas(row,max),"[^,]+") do
if count>max then txt=txt..',' end
if count>=max then txt=txt..t1 end
count=count+1
end
end
result.info=txt
result.imageName = args['dotpic'..dotval]
-- Get first wikilinked item (if any) from the args.dotlink and set this plus the delinked text
local testx=args["dotlink"..dotval] or ''
result.dotLink=testx
if testx ~= '' then
testx=stripdivs(testx)
result.title=delink({ testx })
local linkstart= string.find(testx,'[[',1,true) -- use true to ensure a plain search (no pattern)
if linkstart then
result.dlink=delink( { string.sub(testx,linkstart,string.find(testx,']]',1,true)+1),wikilinks='target' } )
else result.dlink=''
end
else
result.dlink=''
result.title=''
end
if args['dotfeature'..dotval] then
local item=splitItem(args['dotfeature'..dotval],6)
if (item[1] or '') =='photo-panel' then
result.ppwidth= tonumber(string.match((item[3] or '110'),"%d+")) -- panel width
result.ppheight= tonumber(string.match((item[4] or '48'),"%d+") ) --panel height
result.photowidth=round(tonumber(string.match((item[2] or '1.3'),"[%.%-?%d]+")) * result.ppheight+1,0) -- dimension to set image size
result.photoImage=result.imageName
result.posType='photo-panel'
elseif (item[1] or '') == 'mark-line' then
local x=tonumber(dotval or '0')
result.markDest=item[5] or tostring(x-1)
result.mlWidth= tonumber(string.match((item[2]) or '',"%d+") or '1')
result.mlStyle= item[3] or 'solid'
result.mlGap=tonumber(string.match((item[4] or ''),"[%d]+") or '0')
result.posType='mark-line'
end
--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))
end

maplist.lon=result.lon
maplist.lat=result.lat
result.gridx, result.gridy = maptogrid(maplist,1) -- convert geo coords to grid xy - using values from maplist table
return result
end

local function multiCheck (args, argName, argVal, defVal, alt)
if not alt then alt='nonexistant' end
if argVal=='H' and not args[argName..'H'] then argVal=highlightNum or '1' end
if argVal=='' then
return (args[argName] or args[alt] or (args[argName..'D']) or args[alt..'D'] or defVal) -- unnumbered args do not inherit from D or 1
else
return (args[argName..argVal]) or (args[alt..argVal]) or (args[argName..'D']) or (args[alt..'D']) or (args[argName..'1']) or (args[alt..'1']) or defVal
end
end

local function htmlTableLine (htmlTable,h1,h2,h3,h4,h5,type)
if type == 'header' then
if (h4 or '') ~= 'no-year' then h4='<th class="unsortable">'..h4 or ''..'</th>' else h4 = '' end
if (h5 or '') ~= '' then h5='<th class="unsortable">'..h5..'</th>' else h5 = '' end
return htmlTable..'<tr><th>'..(h1 or '')..'</th><th>'..(h2 or '')..'</th><th>'..(h3 or '')..'</th>'..h4..h5..'</tr>'
else
if (h4 or '') ~= 'no-year' then h4='<td>'..h4 or ''..'</td>' else h4 = '' end
if (h5 or '') ~= '' then h5='<td>'..h5..'</td>' else h5 = '' end
return htmlTable..'<tr><td>'..(h1 or '')..'</td><td>'..(h2 or '')..'</td><td>'..(h3 or '')..'</td>'..h4..h5..'</tr>'
end
end

local function formatInt(number)
if number == 0 then return notFound end
local i, j, minus, int, fraction = tostring(number):find('([-]?)(%d+)([.]?%d*)')
int = int:reverse():gsub("(%d%d%d)", "%1,")
return minus .. int:reverse():gsub("^,", "") .. fraction
end

local function convertToSqKm (value,punit)
if string.find(punit, 'Q35852') then value = value / 100 -- convert to sq km if it's hectares
elseif string.find(punit, 'Q232291') then value = value /(1/2.59) -- or this if it's square miles
elseif string.find(punit, 'Q81292') then value = value / 247.1 -- or this if it's acres
end
return value
end

local function assignTradstyleShape(shapeResult,default,dotResult,args,nval)
local item,itemTab
local autoDotTag=''
local shapeWidth,shapeHeight=0,0
local argval=nval -- to catch the unnumbered shape series
local qvalue=''
if argval=='0' then argval='' end
if nval=='H' then shapeResult.H={} end

-- Assign autovalues if a wikidata Qvalue has been supplied
-- some preliminary documentation
-- geo-data-type= default is P1082 (population)
-- other options might include number of households (P1538) and per capita income (P10622) or land area (P2046)
-- geo-data-list= this is a comma-separated list of Q values, for a manually generated list that doesn't require nymbered parameters
-- geo-scalefactor = can enlarge or shrink all the dots in proportion, depending an what the map needs
-- geo-region = needs to be a Qvalue of the larger administrative region that the settlements/sub-regions are in
-- geo-sub-region needs to be a Pvalue, but will default to P150 (some pages use 'has parts' = P527)
-- geo-data3= etc numbered Qvalue item, if used in conjunction with other shape/label parameters
-- shapeD= sets default shape, which migh be n-circle to include numbers.
-- geo-number-size= will give a fixed size for shape numbers. (defaults to 12 when using proportional dots)
-- geo-boundaries= if set to 1 will add any Qvalues for the sub-regions to 'map-data-light'.
-- show-geo-dots= to use proportional dots. Will be fixed size if 0. (set mark-sizeD=0 to have no dot at all, eg to show labels or boundaries)
-- find-geo-dots=1 or 0 (needs to also include geo-region)
-- label-posD = gets additional options: [off] gives no label, [on] will position lower centre,
-- [on+] includes numeric values beside/below label, [on^] will always put it below. [on-] always puts values beside
if args['geo-data'..argval] then -- and (args['mark-title'..argval] or '') ~= 'none' then
local pvalue = args['geo-data-type'] or 'P1082'
local plabel = mw.wikibase.getLabel(pvalue)
if not args['geo-number-size'] then args['geo-number-size']=12 end
if not args['label-posD'] then args['label-posD'] = 'on' end
qvalue=args['geo-data'..argval]
-- total poulation is a Qvalue wikidata page entry, or add up all the geo-data values or use a random 10000
local region = args['geo-region'] -- or mw.wikibase.getEntityIdForCurrentPage()
local thisPop=0
local areatxt=''
local yearVal=''
if mw.wikibase.getBestStatements(qvalue,pvalue)[1] then
thisPop=tonumber(mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.amount) or 0
if pvalue == 'P2046' then -- area, so convert from ha to sq km if needed (/100)
thisPop = convertToSqKm(thisPop, mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.unit)
end
if mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers and mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers.P585 then
yearVal = mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers.P585[1].datavalue.value.time
if yearVal then yearVal = yearVal:sub(2,5) end -- wikidata reports an entire date and time, so extract the year
end
else
debugmsg(mw.addWarning(mw.wikibase.getLabel(qvalue)..' ('..qvalue..') has no recorded '..plabel))
end
local scalefactor=args['geo-scalefactor'] or 1
if argval=='1' and args['mark-size1'] and not args['mark-sizeD'] then args['mark-sizeD'] = args['mark-size1'] end
if argval=='1' and args['label-pos1'] and not args['label-posD'] then args['label-posD'] = args['label-pos1'] end
if not args['mark-size'..argval] then
if args['show-geo-dots'] == '0' then
args['mark-size'..argval] = args['mark-sizeD'] or '1' -- just use a 'point' for the label to attach to
else
if thisPop>0 then
args['mark-size'..argval] = round(math.sqrt(thisPop/geoTotalPop*100) * 8 * scalefactor,0)
else
args['mark-size'..argval] = args['mark-sizeD'] or '1'
args['shape-outline'..argval]=args['shape-outline'..argval] or args['shape-outlineH']
end
end
end
local posTemp=string.lower(multiCheck(args,'label-pos',argval,'on'))
args['label-pos'..argval] = posTemp
posTemp=splitItem(posTemp,2)[1]
if pvalue == 'P2046' then
thisPop = round(thisPop,2)
areatxt=sqkm..areatxt -- round decimals if sq km area
elseif pvalue == 'P10622' then
if mw.wikibase.getBestStatements(qvalue,pvalue)[1] then
local punit=(mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.unit or ''):match("Q.*") -- extract Q value
if punit == 'Q4917' then areatxt=' US$'
elseif punit == 'Q4916' then areatxt=' euro'
elseif punit == 'Q25224' then areatxt=' £GBP'
else areatxt=mw.wikibase.getLabel(punit)..areatxt
end
end
end
if posTemp=='off' then
else
if not args['label'..argval] then args['label'..argval] = mw.wikibase.getLabel(qvalue) end
local tline=posTemp:find("[%+%^%-]")
if tline then
local tval=posTemp:sub(tline,tline)
local eline
posTemp=posTemp:sub(1,tline-1)
if posTemp == 'left' or posTemp == 'right' or string.find(posTemp,'east') or string.find(posTemp,'west') then
if tval == '^' then eline = '^' else eline = ' ' end -- only add line break if 'forced', used for left/right
elseif tval == '+' or tval == '^' then eline = '^' -- add linebreak unless 'forced' not to
else eline = ' ' -- must be a dash, so no line break
end
args['label'..argval] = args['label'..argval]..eline..'('..formatInt(thisPop)..')'
args['label-pos'..argval] = posTemp..args['label-pos'..argval]:sub(tline+1,#args['label-pos'..argval])
end

end
if posTemp=='on' then
if argval=='1' and (not args.ldyD) then args.ldyD = args['ldy'..argval] or '0' end
if not args['ldy'..argval] then args['ldy'..argval] = args.ldyD end -- ensure ldy for that dot is added to the position
args['label-pos'..argval]='center'
local _,br = string.gsub(args['label'..argval],'%^','')
local item=splitItem(args['label-size'..argval],2)
args['ldy'..argval] = (args['ldy'..argval] or 0) + ((item[1] or 11) * ((br+1)*0.6)) + ((args['geo-number-size'] or 12) / 2)
end
local nt=''
if args['mark-title'..argval] == 'nolist' then nt='nolist,' end
if not args['mark-title'..argval] or args['mark-title'..argval] == '' or args['mark-title'..argval] == 'nolist' then
if mw.wikibase.getSitelink(qvalue) then
args['mark-title'..argval] = nt..'[['..mw.wikibase.getSitelink(qvalue)..']]'
else
args['mark-title'..argval] = nt..mw.wikibase.getLabel(qvalue)
end
end -- If mark-title is not set locally then attempt Sitelink value, or use label
if thisPop == 0 then areatxt='' end
captionTableText[argval]={}
captionTableText[argval][1]= args['mark-title'..argval]
captionTableText[argval][2]= formatInt(thisPop)
if maplist.width >= 280 then captionTableText[argval][3]= yearVal else captionTableText[argval][3]='no-year' end
if args['show-q-values'] == '1' then
captionTableText[argval][4]='<small>[[wikidata:'..qvalue..'|'..qvalue..']]</small>'
else
local nbsp = ' '
if maplist.width < 230 then nbsp = ' ' end
captionTableText[argval][4]=''
if captionTableText[argval][3] == 'no-year' then
captionTableText[argval][2] = captionTableText[argval][2]..'<small><sup>'..nbsp..'[[wikidata:'..qvalue..'|WD]]</sup></small>'
else
captionTableText[argval][3] = captionTableText[argval][3]..'<small><sup>'..nbsp..'[[wikidata:'..qvalue..'|WD]]</sup></small>'
end
end

if args['mark-title'..argval] == 'none' then
-- no title
else
args['mark-title'..argval] = args['mark-title'..argval]..' ('..plabel..' '..formatInt(thisPop)..areatxt..')'
end
if not args['mark-description'..argval] then args['mark-description'..argval] = (mw.wikibase.getDescription(qvalue) or '')..'<br>' end
if (not args['mark-image'..argval]) and (mw.wikibase.getBestStatements(qvalue,'P18')[1]) then
args['mark-image'..argval] = mw.wikibase.getBestStatements(qvalue,'P18')[1].mainsnak.datavalue.value
end
item = multiCheck(args,'shape',argval,'circle') --default to circle if geo-data
if not string.find(item,'svgpath,') then item=string.lower(item) end -- ensure svgpath items retain original case values
else
item = multiCheck(args,'shape',argval,'image')
if not string.find(item,'svgpath,') then item=string.lower(item) end -- ensure svgpath items retain original case values
end
if string.find(item,'n-',0,true)==1 or string.find(item,'l-',0,true)==1 then
autoDotTag=string.sub(item,0,1)
item=string.sub(item,3)
end
if item == 'image' then
shapeResult[nval].shape = 'image:'
shapeResult[nval].shapeFile =multiCheck(args,'mark',argval,'Red pog.svg')
shapeWidth=-1
else shapeResult[nval].shape = item
end
item= multiCheck(args,'mark-size',argval,(shapeResult[nval].shapeSize or '14px')) -- add geo-data as fallback if already assigned
local a,b,c= getsize(string.gsub(string.gsub(item,',','px')..'px','pxpx','px'))
if b==a and args['mark-dim'..argval] then
b= b / tonumber(string.match(args['mark-dim'..argval],"[%.%-?%d]+"))
end
shapeHeight=b/2
item=tostring(a)..'px'..tostring(b)..'px'..tostring(c)..'px'
shapeResult[nval].shapeSize= item
itemTab=splitItem(multiCheck(args,'shape-color',argval,'hard red'),2)
shapeResult[nval].shapeColor=itemTab[1] or 'hardred'
item=itemCheck(itemTab[2],'%') -- jump through the various opacity hoops and add to color if needed
if not item then item=itemCheck(args['shape-opacity'..argval],'%') end
if item and item~='0%' and item~='100%' then shapeResult[nval].shapeColor=shapeResult[nval].shapeColor..item end
shapeResult[nval].shapeAngle=itemCheck(multiCheck(args,'shape-angle',argval,'0'),'deg') or '0deg'
if args['shape-angle'..argval] then shapeResult[nval].shapeAngleArg=true else shapeResult[nval].shapeAngleArg=false end
--sort out the outline entry
itemTab=splitItem(multiCheck(args,'shape-outline',argval,'transparent,0,100,solid'),4)
shapeResult[nval].outlineColor=itemTab[1] or 'dark grey'
shapeResult[nval].outlineWidth=itemCheck(itemTab[2],'px') or '1px'
if itemTab[3] and itemTab[3]~='100' and itemTab[3]~='0' then
shapeResult[nval].outlineColor=shapeResult[nval].outlineColor..itemCheck(itemTab[3],'%')
end
shapeResult[nval].outlineStyle=itemTab[4] or 'solid'
-- label size, background, outline
shapeResult[nval].textAT=args['label-attribute'..argval] or ''
itemTab=splitItem( multiCheck(args,'label-size',argval,'12'),3)
shapeResult[nval].textSZ=itemCheck(itemTab[1],'px') or '12px'
if itemTab[2]=='outline' then
shapeResult[nval].textBG=itemTab[3] or 'transparent'
shapeResult[nval].textOL='1px'
elseif itemTab[3]=='outline' then
shapeResult[nval].textBG=itemTab[2] or 'transparent'
shapeResult[nval].textOL='1px'
else shapeResult[nval].textOL='0px'
shapeResult[nval].textBG=itemTab[2] or 'transparent'
end
if getColor(shapeResult[nval].textBG)==CTB['hardgrey'] and shapeResult[nval].textBG~='hardgrey' then shapeResult[nval].textBG= 'transparent' end
--label color etc
itemTab=splitItem(multiCheck(args,'label-color',argval, 'darkgrey','label-colour'),2)
shapeResult[nval].textCL=itemTab[1] or 'darkgrey'
if itemTab[2] and itemTab[2]~='0%' and itemTab[2]~='100%' then shapeResult[nval].textCL=shapeResult[nval].textCL..itemTab[2] end
shapeResult[nval].textSP=itemCheck( multiCheck(args,'label-spacing',argval,'0'),'px') -- sets letter-spacing in px
shapeResult[nval].textLH=itemCheck( multiCheck(args,'label-height',argval,'120'),'%') -- sets line height, 120% default
shapeResult[nval].textNG=itemCheck(multiCheck(args,'label-angle',argval,'0'),'deg')
if args['label-angle'..argval] then shapeResult[nval].textNGarg=true else shapeResult[nval].textNGarg=false end
--sgd=dotTag attributes
shapeResult[nval].tagSize=(args['geo-number-size'] or tostring(shapeHeight*1.5))..'px'
local c1,c2=checkColors(shapeResult[nval].shapeColor)
shapeResult[nval].tagColor=c2
shapeResult[nval].tagSpacer='0px'
shapeResult[nval].tagAngle='0deg'
-- sge extension line attributes
local shapePos=splitItem(multiCheck(args,'label-pos',argval,'right'),6)
if shapePos[2]=='with-line' or shapePos[2]=='n-line' then
shapeResult[nval].textEW=(shapePos[3] or '1')..'px' -- width
shapeResult[nval].textEC=(shapePos[4] or shapeResult[nval].shapeColor or 'darkgrey')
elseif shapePos[2]=='photo-panel' then
shapeResult[nval].textEW='2px' -- width
shapeResult[nval].textEC=shapeResult[nval].textCL
else
shapeResult[nval].textEW='0px' -- width
shapeResult[nval].textEC='grey'-- colour
end
shapeResult[nval].textES='solid'
if argval=='H' then return dotResult end
--Assign dot values
local dotItem={}
dotItem.group=nval
dotItem.code=nval
dotItem.posType=shapePos[2] or 'nil'
if (shapePos[2] or '') =='photo-panel' then
dotItem.ppwidth= tonumber(string.match((shapePos[4] or '110'),"%d+"))
dotItem.ppheight= tonumber(string.match((shapePos[5] or '48'),"%d+") )
dotItem.photowidth=round(tonumber(string.match((shapePos[3] or '1.3'),"[%.%-?%d]+")) * dotItem.ppheight+1,0)
dotItem.photoImage=args['mark-image'..argval]
--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))
end
if (shapePos[2] or '') =='mark-line' then
local x=tonumber(argval or '1')
dotItem.markDest=shapePos[6] or tostring(x-1)
dotItem.mlWidth= tonumber(string.match((shapePos[3] or '1'),"%d+"))
dotItem.mlStyle= shapePos[4] or 'solid'
dotItem.mlGap=tonumber(string.match((shapePos[5] or '0'),"[%d]+"))
shapeResult[nval].textEC=shapeResult[nval].outlineColor or 'darkgrey'
end
if args['mark-coord'..argval] then
itemTab=splitItem(convertCoordsTrad (args['mark-coord'..argval]),2)
if itemTab[1] == nil or itemTab[2] == nil then
debugmsg(mw.addWarning('Unable to read coordinates for mark-coord'..argval))
else
dotItem.lat=tonumber(string.match(itemTab[1],"[%.%-?%d]+")) or 0
dotItem.lon=tonumber(string.match(itemTab[2],"[%.%-?%d]+")) or 0
end
else
dotItem.lat=tonumber(string.match(args['mark-lat'..argval],"[%.%-?%d]+")) or 0
dotItem.lon=tonumber(string.match(args['mark-lon'..argval],"[%.%-?%d]+")) or 0
end
if args['dateline'..argval] and (args['dateline'..argval]=='1' or args['dateline'..argval]=='-1') then
dotItem.lon=dotItem.lon+(tonumber(args['dateline'..argval] ) *360)
end
maplist.lon=dotItem.lon
maplist.lat=dotItem.lat
dotItem.gridx, dotItem.gridy = maptogrid(maplist,1)

local item=args['mark-title'..argval] or '' -- sort out the caption, wikilink and plaintext tooltip items from dotLink
if item=='none' then dotItem.param1='nomap nolist' item='' end
if string.find(item,'nolist') then dotItem.param1='nolist,' item = string.sub(args['mark-title'..argval],8) or args['label'..argval] end
dotItem.dotLink=item
if item ~= '' then
item=stripdivs(item)
dotItem.title=delink({item})
local linkstart= string.find(item,'[[',1,true) -- use true to ensure a plain search (no pattern)
if linkstart then
dotItem.dlink=delink({string.sub(item,linkstart,string.find(item,']]',1,true)+1),wikilinks='target'})
-- debugmsg('dlink for '..item..' is '..dotItem.dlink)
else dotItem.dlink=''
end
else
dotItem.dlink=''
dotItem.title=''
end
if autoDotTag=='n' then item=nval
elseif autoDotTag=='l' then item=string.char(64+tonumber(nval))
else item='' end
dotItem.dotTag = args['numbered'..argval] or item
if shapePos[2]=='n-line' and (args['label'..argval] or args['label'..argval]=='') then
if dotItem.dlink =='' then
item=dotItem.dotTag..' '..args['label'..argval]
else
item='[['..dotItem.dlink..'|'..dotItem.dotTag..']] '..args['label'..argval]
end
else item=(args['label'..argval] or '') end
if args['labela'..argval] then item = item..'^'..args['labela'..argval] end
if args['labelb'..argval] then item = item..'^'..args['labelb'..argval] end
local a='' for c in item:gmatch('.') do a=a..(c:gsub('%^','<br>') or c) end
dotItem.labelText = a -- convert hats to line breaks
if argval=='' then item = (args['label-offset-x']) or (args.ldx) or '0'
else item=args['label-offset-x'..argval] or args['ldx'..argval] or args['label-offset-xD'] or args.ldxD or args['label-offset-x1'] or args.ldx1 or '0'
end
dotItem.dx=tonumber(string.match(item,"[%.%-?%d]+"))
if argval=='' then item = (args['label-offset-y']) or (args.ldy) or '0'
else item=args['label-offset-y'..argval] or args['ldy'..argval] or args['label-offset-yD'] or args.ldyD or args['label-offset-y1'] or args.ldy1 or '0'
end
dotItem.dy=tonumber(string.match(item,"[%.%-?%d]+"))
dotItem.labelPos=shapePos[1]
if args['mark-image'..argval] then dotItem.imageName= args['mark-image'..argval] end
dotItem.info=args['mark-description'..argval] or ''
table.insert(dotResult,1,dotItem) -- add to start of list, so they are in reverese order for displaying
-- debugmsg(dotItem.code..' = '..dotItem.lat..','..dotItem.lon..': '..dotItem.labelText..' - '..dotItem.title..', '..shapeResult[nval].shapeSize)
return dotResult
end

local function tradstyleParseShapes(args,dotTable,dotmax)
local sgNumbers,sgSortable={},{}
for argindex=1,dotmax do -- build a list of all the numbered coords or lat,lons that have been used
local x=tostring(argindex)
if args['geo-data'..x] and (not args['mark-coord'..x]) and (not args['mark-lat'..x]) then
-- get lat and lon values from wikidata and put them into the args.lat and args.lon for use wherever needed
if (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1]) then
args['mark-lat'..x] = (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1].mainsnak.datavalue.value.latitude) or '0'
args['mark-lon'..x] = (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1].mainsnak.datavalue.value.longitude) or '0'
local p=args['geo-data-type'] or 'P1082'
if mw.wikibase.getBestStatements(args['geo-data'..x],p)[1] then
local n = tonumber(mw.wikibase.getBestStatements(args['geo-data'..x],p)[1].mainsnak.datavalue.value.amount) or 0
if p == 'P2046' then -- area, so convert to sq km if needed (/100)
n = convertToSqKm( n, mw.wikibase.getBestStatements(args['geo-data'..x],p)[1].mainsnak.datavalue.value.unit)
end
geoTotalPop = geoTotalPop + n
end
else debugmsg(mw.addWarning('could not find coords for '..mw.wikibase.getLabel(args['geo-data'..x])..', '..args['geo-data'..x]))
end
end
if args['mark-coord'..x] or (args['mark-lat'..x] and args['mark-lon'..x]) then
sgNumbers[x]=x -- add it to the list
end
end
for indx,sgnum in pairs(sgNumbers) do table.insert(sgSortable,sgnum) end
table.sort(sgSortable,lessthan) -- put the list in a sortable form (needs a second table, seemingly)
if args['mark-coord'] or (args['mark-lat'] and args['mark-lon']) then table.insert(sgSortable,'0') end -- add it to the end of the list
local default={} default.D={}
local dotResult={}
for k,sgnum in pairs(sgSortable) do -- work through the sorted list, parsing each set of shapes in turn, from 1 upwards
shapeList[sgnum]={}
dotTable=assignTradstyleShape(shapeList,default,dotTable,args,sgnum)
end
dotTable=assignTradstyleShape(shapeList,default,dotTable,args,'H') -- construct an extra highlight shapeitem
local unitConvert=1
local areaUnits=''
if args['geo-region'] and (args['find-geo-dots'] or '1') ~= '0' then
local region = args['geo-region'] -- or mw.wikibase.getEntityIdForCurrentPage()
local pvalue = args['geo-data-type'] or 'P1082'
local plabel = mw.wikibase.getLabel(pvalue)
local subhead='' -- Assemble the subhead content, a line of text about the region as a whole
if region and mw.wikibase.getBestStatements(region,pvalue)[1] then
local punit=mw.wikibase.getBestStatements(region,pvalue)[1].mainsnak.datavalue.value.unit:match("Q.*") -- extract Q value
if pvalue == 'P10622' then -- add other currency-based pvalues here
areaUnits=mw.wikibase.getLabel(punit)
end
if punit == 'Q35852' then unitConvert=100 areaUnits = ' '..sqkm -- if its hectares, convert to sq km
elseif punit == 'Q232291' then unitConvert = (1/2.59) areaUnits = ' '..sqkm -- or this if it's square miles
elseif punit == 'Q81292' then unitConvert = 247.1 areaUnits = ' '..sqkm -- or this if it's acres
elseif punit == 'Q712226' then unitConvert = 1 areaUnits = ' '..sqkm -- or this if it's already sq km

elseif punit == 'Q4917' then areaUnits=' US$' -- replace long version with some shortform currencies ()
elseif punit == 'Q4916' then areaUnits=' euro'
elseif punit == 'Q25224' then areaUnits=' £GBP'
end
-- if pvalue == 'P2046' then
-- may need to add other instances of sq km so add in other P-items here if they need units showing
-- end
geoTotalPop=(mw.wikibase.getBestStatements(region,pvalue)[1].mainsnak.datavalue.value.amount) / unitConvert
local yearVal
if mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers then
yearVal = mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P585[1].datavalue.value.time
if yearVal and yearVal:sub(1,1) == '+' then yearVal = yearVal:sub(2,5)
if mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459 and mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459[1] then
local methodVal = mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459[1].datavalue.value.id
if methodVal then yearVal=yearVal..' '..mw.wikibase.getLabel(methodVal) end
end
yearVal = ' ('..yearVal..')'
else yearVal =''
end
end
subhead=totalItems..' '..mw.wikibase.getLabel(region)..' '..plabel..' ([[wikidata:'..region..']]) = '..formatInt(round(geoTotalPop),1)..areaUnits..yearVal
else
if pvalue == 'P2046' then areaUnits = sqkm end
subhead=totalItems..' '..mw.wikibase.getLabel(region)..' '..plabel..' ('..sumOfDatapoints..') = '..formatInt(round(geoTotalPop),1)..areaUnits
end
if maplist.width < 350 and #plabel > 4 then plabel=string.sub((plabel or ' '),1,3)..'.' end
if maplist.width < 330 then numberCol = ' ' end
if maplist.width < 280 then year = 'no-year' end
captionTable = subhead
if (args['show-q-values'] or '') ~= '1' then
captionTable = captionTable..'<div style="float:right;"><small> (WD = '..wikidataLink..')</small></div><br>'
wikidataLink=''
end
captionTable = captionTable..'<table class="wikitable plainrowheaders sortable mw-collapsible mw-collapsed" style="width: 100%;"><caption>'..(args.toggletext or toggletext)..' </caption>'
captionTable = htmlTableLine(captionTable,numberCol,mw.wikibase.getLabel(region),plabel..' '..areaUnits, year, wikidataLink,'header')
end
return dotTable
end

local function checkfortooltip (title,dx,dy,dotlabel,dlink,nolabel) -- returns tlink if available, and dlink, if needed and tshape=true if shape needed
local tshape,tlink = false,""
if dlink~='' and not nolabel then tlink=dlink end
if (tlink=="" or nolabel) and title~="" then tshape=true end -- tshape flags True if title is wanted for shape
if (not (dx==0 or dy==0) or dotlabel=='') and title~='' then tshape=true end -- add tooltip to shape if its number has moved
return tshape,tlink
end

local function tshift(angle) -- adjustment to place text near the centre of a triangle, shifted to allow rotation of triangle shape
local x=tonumber(string.match(angle,"%-?%d+"))
if x<0 then x=360+x end -- set to a single degree direction, 0 to 360
if x>359 then return 0,0 end
-- shift the centre of the triangle based on rotation value
if x <=40 or x>=320 then return -0.17,0 -- triangle up= -shiftv
elseif x>=140 and x<=220 then return 0.17,0 --triangle down= +shiftv
elseif x >220 then return 0,-0.17 --triangle left= -shifth
elseif x >40 then return 0,0.22 --triangle right= +shifth
end
return 0,0
end

local function makeTriangle(result,row,shape,outline,tlink)
local w,h,r=getsize(shape.shapeSize)
if outline then
local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
w=w+p*2
h=h+p*2
end
table.insert(result,'<div ')
if tlink then
table.insert(result,' title="'..row.title..'" ')
end
table.insert(result,'style="display:inline-block; position: absolute')
if shape.shapeAngle ~= '0deg' then
table.insert(result,'; transform: rotate('..shape.shapeAngle..')')
end
local shiftv,shifth=0,0
shiftv,shifth=tshift(shape.shapeAngle)
table.insert(result,'; top: '..tostring(row.gridy-h/2+h*shiftv)..'px')
table.insert(result,'; left: '..tostring(row.gridx-w/2+w*shifth)..'px; width: 0; height: 0; outline-width: 0px')
table.insert(result,'; border-left: '..tostring(w/2)..'px solid transparent')
table.insert(result,'; border-right: '..tostring(w/2)..'px solid transparent')
if outline then -- fill with outline colour, to make a 'base layer' or shape colour
table.insert(result,'; border-bottom: '..tostring(h)..'px solid '..getColor(shape.outlineColor).. '">')
else
table.insert(result,'; border-bottom: '..tostring(h)..'px solid '..getColor(shape.shapeColor).. '">')
end
table.insert(result,'</div>')
end

local function makeSquare(result,row,shape,tshape)
local w,h,r=getsize(shape.shapeSize)
if shape.shape=='square' then h=w end -- squares are always square!. box can stretch
local div=mw.html.create ('div')
if tshape then -- Add tooltip if needed
div:attr('title',row.title)
end
div:css('position', "absolute")
if shape.outlineWidth ~= "0px" then
div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
end
if shape.shapeAngle ~= "0deg" then
div:css('transform',"rotate("..shape.shapeAngle..")")
end
if r~=0 then div:css('border-radius',tostring(r).."px") end
if shape.shape=='panel' then
div:css('top', tostring(row.gridy).."px")
div:css('left', tostring(row.gridx).."px")
else
div:css('top', tostring(row.gridy-h/2).."px")
div:css('left', tostring(row.gridx-w/2).."px")
end
div:css('width', tostring(w).."px")
div:css('height', tostring(h).."px")
div:css('background-color', getColor(shape.shapeColor) )
div:css('color', 'inherit')
table.insert(result,tostring(div))
end

local function makeCircle(result,row,shape,tshape)
local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding
if shape.shape=='circle' then h=w end -- circles are always round. ellipse can stretch
local div=mw.html.create ('div')
if tshape then -- Add tooltip if needed
div:attr('title',row.title)
end
div:css('position', "absolute")
if shape.outlineWidth ~= "0px" then
div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
end
if shape.shapeAngle ~= "0deg" then
div:css('transform',"rotate("..shape.shapeAngle..")")
end
div
:css('top', tostring(row.gridy-h/2).."px")
:css('left', tostring(row.gridx-w/2).."px")
:css('width', tostring(w).."px")
:css('height', tostring(h).."px")
:css('border-radius', "50%")
:css('background-color', getColor(shape.shapeColor) )
:css('color', 'inherit')
table.insert(result,tostring(div))
end

local function makeRuleA(result,row,shape)
local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding
local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
local lineV=0
if shape.shape=='rulea' then lineV=oWid*3+16 end
table.insert(result,"<div style=\"display:inline-block; position: absolute") -- create a square transparent container, which will rotate line and arrow together
table.insert(result,"; top:"..tostring(row.gridy - w/2).."px")
table.insert(result,"; left:"..tostring(row.gridx - w/2).."px")
table.insert(result,"; width:"..tostring(w).."px")
table.insert(result,"; height:"..tostring(w).."px; background:transparent; color:inherit;")
table.insert(result,"; transform: rotate( "..tostring(tonumber(string.match(shape.shapeAngle,"[%.%-?%d]+")) - 90).."deg);\">" )
table.insert(result,"<div style=\"display:inline-block; position: absolute") -- put the line (as a border-right) across the container
table.insert(result,"; top:"..tostring(lineV).."px")
table.insert(result,"; left:"..tostring((w - oWid )/2).."px; width: 0px")
table.insert(result,"; height: "..tostring(w -lineV).."px")
table.insert(result,"; border-right: "..shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
table.insert(result,"; background:transparent; color:inherit;\"></div>")
if shape.shape=='rulea' then
table.insert(result,"<div style=\"display:inline-block; position: absolute; top: 0px") --and add arrow head
table.insert(result,"; left:"..tostring(w/2-( oWid/2)-oWid*0.55-2).."px; width: 0; height: 0; outline-width: 0px")
table.insert(result,"; border-left: "..tostring(oWid*1.1+2).."px solid transparent")
table.insert(result,"; border-right: "..tostring(oWid*1.1+2).."px solid transparent")
table.insert(result,"; border-bottom: "..tostring(oWid*3+16).."px solid "..getColor(shape.outlineColor).."\"></div>")
end
table.insert(result,"</div>")
end

local function makeCurveA(result,row,shape) -- draw a curve with Arrow -----
local w,h=getsize(shape.shapeSize) -- = width,height
local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
local Angle=tonumber(string.match(shape.shapeAngle,"[%.%d]+"))
table.insert(result,'<div style="position: absolute;') --set up out div, which will allow the whole to rotate
table.insert(result,'top:'..tostring(row.gridy - (w + oWid*3+16)/2)..'px;')
table.insert(result,'left:'..tostring(row.gridx - ( w + oWid*3+16)/2)..'px; ')
table.insert(result,'width: '..tostring(w+oWid*3+16)..'px; ')
table.insert(result,'height: '..tostring(w+oWid*3+16)..'px; ')
if shape.shape=='curvea' then
table.insert(result,'transform: rotate( '..tostring(Angle-120)..'deg);">')
else table.insert(result,'transform: rotate( '..tostring(Angle -62)..'deg);">')
end
table.insert(result,'<div style="position: absolute;') --set up div for the rounded corner of a rectangle
table.insert(result,'border-left: '..shape.outlineWidth..' '..shape.outlineStyle..' '..getColor(shape.outlineColor)..';')
if shape.shape=='curvea' then
table.insert(result,'border-radius: 10000px 0 0 '..tostring(w)..'px; top:0px; left:'..tostring(w*0.25)..'px;')
else
table.insert(result,'border-radius: '..tostring(w)..'px 0 0 10000px;')
table.insert(result,'top:'..tostring((oWid*3+16)/2+w*0.15)..'px; left:'..tostring(w*0.25)..'px;')
end -- and add a triangular arrow head
table.insert(result,'width: '..tostring(w)..'px; height: '..tostring(w)..'px;"></div><div style="position: absolute; ')
if shape.shape=='curvea' then
table.insert(result,'transform: rotate(180deg); top:'..tostring(w-1)..'px; ')
else table.insert(result,'transform: rotate(0deg); top: '..tostring(0-( ( oWid*3+16)/2)+1+( w*0.15) )..'px;')
end -- reverse
table.insert(result,'left:'..tostring(0-( oWid*0.6)-2+(w*0.25))..'px;')
table.insert(result,'width: 0; height: 0; outline-width: 0px; border-left: '..tostring(oWid*1.1+2)..'px solid transparent;')
table.insert(result,'border-right: '..tostring(oWid*1.1+2)..'px solid transparent;')
table.insert(result,'border-bottom: '..tostring(oWid*3+16)..'px solid '..getColor(shape.outlineColor)..';"></div></div>')
end

local function makeLineTo (result,x1,y1,x2,y2,oWid, oStyle, oCol,double,shape)
table.insert(result,"<div style=\"display:inline-block; position: absolute;")
-- draw a line between x1,y1 and x2,y2, px-coords where 0,0 is centre of frame
-- Maths calculations thanks to ES
local tw
if double <= 1 then
tw = tonumber(string.match(oWid,"[%.%d]+"))/2 -- shift centre by half the line width
else
tw = tonumber(string.match(oWid,"[%.%d]+")) + (double/2) - 0.5 -- shift centre by a line width + half the gap
end
-- debugmsg(oWid..'+'..double..'/2='..tw)
table.insert(result,"left: "..tostring(x1+( (x2-x1)/2) - (math.sqrt( ( x2-x1)^2 + (y2-y1)^2 )/2) ).."px;")
table.insert(result,"top: "..tostring(y1+( ( y2-y1 )/2) - tw).."px;")
table.insert(result,"width: "..tostring(math.sqrt( (x2-x1 )^2 + ( y2-y1 )^2) ).."px;")
table.insert(result,"height: "..tostring(double).."px; background-color:transparent; color:inherit; ")
table.insert(result,"outline-width: 0; border-bottom: "..oWid.." "..oStyle.." "..getColor(oCol)..";" )
if double>1 then table.insert(result,"border-top: "..oWid.." "..oStyle.." "..getColor(oCol)..";" ) end
local lineAngle=math.atan(( y2-y1)/( x2-x1 ) )*180/math.pi
-- if x1 == x2 then lineAngle=90 end
table.insert(result,"transform: rotate("..lineAngle.."deg);\"></div>")
-- debugmsg('text angle started as '..shape.textNG..' and lineAngle = '..lineAngle)
if (lineAngle < -90) or (lineAngle >90) then lineAngle=lineAngle-180 end
if shape and not shape.textNGarg then shape.textNG=tostring(round(lineAngle,0))..'deg' end -- Put in line angle for a default text angle as well
-- if (y2 >= y1) and (x2 <= x1) then lineAngle=lineAngle-180 debugmsg('arrow angle corrected') end
if x2 < x1 then lineAngle=lineAngle-180 end
if shape and not shape.shapeAngleArg and shape.shape == 'arrowhead' then shape.shapeAngle=tostring(round(lineAngle,0))..'deg' end -- line angle for arrowhead
-- debugmsg('text angle is now '..shape.textNG..'with arrow at '..lineAngle)
end

local function makeClipPath(result,row,shape,outline,tshape) --tshape is a flag to show if the tooltip (title=) is wanted
-- return the text css div code to position and draw a shape occupying a specified clippath
if string.find(shape.shape, 'svgpath,') and #shape.shape > 9 then
pathshape.svgpath=string.sub(shape.shape,9)
shape.shape='svgpath'
end
if not pathshape[shape.shape] then
debugmsg(mw.addWarning('shape'..row.code..' = '..shape.shape..'. The shape name is not defined'))
return
end
local w,h,r=getsize(shape.shapeSize)
if shape.shape == 'arrowhead' then -- enlarge arrowheads, as they only go to the middle of the notional shape-size
w=w*2.5
h=h*2.5
end
if string.match(shape.shape,"circle") or string.match(shape.shape,"square") then h=w end -- use ellipse and box for stretched shapes
local shifth,shiftv = 0,0
if string.match(shape.shape,"triangle") then
shiftv,shifth =tshift(shape.shapeAngle)
end
if outline then
local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+")) or 0
w=w+p*2
h=h+p*2
end
table.insert(result,"<div ")
if tshape then -- Add tooltip if needed
table.insert(result," title=\""..row.title.."\" ")
end
table.insert(result,"style=\"display:inline-block; position: absolute; background-color:")
if outline then
table.insert(result,getColor(shape.outlineColor)) -- fill with outline colour, to make a 'base layer'
else
table.insert(result,getColor(shape.shapeColor))
end
table.insert(result,"; color:inherit; clip-path:path(nonzero, '"..pathshape[shape.shape].."') ")
-- adds the required clippath data from the table of pathshape string literals
table.insert(result,"; top:"..tostring(row.gridy - 10 + h*shiftv).."px")
table.insert(result,"; left:"..tostring(row.gridx - 10 + w*shifth).."px")
table.insert(result,"; width:20px") -- needs to be a path within a 20px20px box, and then rescales using size values to match other shape sizes
table.insert(result,"; height:20px; transform:")
if shape.shapeAngle ~= "0deg" then
table.insert(result," rotate("..shape.shapeAngle..")")
end
table.insert(result," scale("..tostring(w/16)..", "..tostring(h/16)..")")
table.insert(result,"\"></div>")
end

local function makeImage(result,row,shape)
local w,h,r=getsize(shape.shapeSize)
local image=shape.shapeFile
if not image or image=='' then image='Red pog.svg' end
local imagediv=mw.html.create ('div')
imagediv:css('position', "absolute")
if shape.shapeAngle ~= "0deg" then
imagediv:css('transform',"rotate("..shape.shapeAngle..")")
end
imagediv
:css('top', (row.gridy+2 + math.min(h/2-12,0) - h/2).."px") --File seems to adjust pos for small images
:css('left', (row.gridx-1-w/2).."px")
:css('background-color', "transparent" )
:css('color','inherit')
:wikitext('[[file:'..image..'|'..tostring(w+2)..'px|alt='..(row.title or '')..'|link=]]')
table.insert(result,tostring(imagediv))
end

local function makePhotoPanel(result,row,shape)
local h=row.ppheight
table.insert(result, '<div style="position: absolute; top: '..tostring(row.gridy+row.dy-h/2)..'px;' )
table.insert(result, 'left: '..tostring(row.gridx+row.dx - row.ppwidth/2)..'px;')
table.insert(result, 'width: '..tostring(row.ppwidth)..'px; height: '..tostring(h)..'px; border-radius: 2px; color:inherit;')
table.insert(result, 'background-color: #E8E8D6; outline: 2px solid '..getColor(shape.textCL)..'; box-shadow: 2px 2px 4px #33203335;"></div>')
if row.photoImage and row.photowidth >0 then
table.insert(result, '<div style="position: absolute; top: '..tostring(row.gridy+row.dy-h/2)..'px;')
if row.labelPos=='left' or string.find(row.labelPos,'west') then
table.insert(result, 'left: '..tostring(row.gridx+row.dx - row.ppwidth/2)..'px;')
row.dx=row.dx+row.photowidth/2
else
table.insert(result, 'left: '..tostring(row.gridx+row.dx + (row.ppwidth-row.photowidth) - row.ppwidth/2)..'px;')
row.dx=row.dx-row.photowidth/2
end
table.insert(result, 'background-color:transparent; color:inherit; border-radius: 2px;">')
table.insert(result,'[[File:'..row.photoImage..'|x'..tostring(h)..'px|File:'..row.photoImage..']]</div>')
row.labelPos='center'
end
end

local function makePanelText(result, row, shape)
local w,h,r=getsize(shape.shapeSize)
local ty=tonumber(string.match(shape.textSZ or '11',"%d+") )
table.insert(result,'<div style="position:absolute; line-height: 120%; font-size: '..shape.textSZ..'; color:'..getColor(shape.textCL)..';')
if row.labelPos == 'left' or string.find(row.labelPos,'west') then
table.insert(result,'top: '..tostring(row.dy+row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+3)..'px; text-align: left; width:'..tostring(w)..'px;')
elseif row.labelPos == 'right' or string.find(row.labelPos,'east') then
table.insert(result,'top: '..tostring(row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+w-3)..'px; text-align: right; width: max-content; transform: translateX(-100%);')
elseif row.labelPos == 'top' or row.labelPos== 'north' then
table.insert(result,'top: '..tostring(row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
elseif row.labelPos == 'bottom' or row.labelPos=='south' then
local bry=(select(2, string.gsub(row.labelText,"<br>", ""))+1)*1.1
table.insert(result,'top: '..tostring(row.gridy+w-(ty*bry))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
else -- center or centre
local bry=(select(2, string.gsub(row.labelText,"<br>", ""))+1)*0.6
table.insert(result,'top: '..tostring(row.gridy+(h/2)-(ty*bry))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
end
if shape.textSP and shape.textSP ~='0px' then table.insert(result,"letter-spacing: "..shape.textSP..';') end
if shape.textLH and shape.textLH ~='120%' then table.insert(result,"line-height: "..shape.textLH..';') end
table.insert(result,"vertical-align: middle;\">"..row.labelText.."</div>")
end

local function makeTextItem(result, row, shape, align, tlink, textItem, dotItem)
local w,h,r=getsize(shape.shapeSize)
table.insert(result,"<div ")
if row.title ~= "" then table.insert(result," title=\""..row.title.."\" ") end
local ty,bry,linkoffset = 0,0,0
local compy=0
local lh=tonumber(string.match(shape.textLH or '120',"%d+"))/100
if dotItem==1 or (dotItem==2 and row.posType~='n-line') then -- if there is a dotTag in the middle of the shape then use the tag settings
ty=tonumber(string.match(shape.tagSize,"%d+")) or 0
table.insert(result,"style=\"position:absolute; line-height: 120%; top: "..tostring(row.gridy-ty*0.62))
table.insert(result,"px; left: "..tostring(row.gridx).."px; width: fit-content; ")
table.insert(result,"text-align: center; color: "..getColor(shape.tagColor).."; background-color: transparent;")
local trf=""
if shape.tagAngle ~="0deg" then trf=" rotate("..shape.tagAngle..")" end
table.insert(result, "transform: translateX(-50%)"..trf.."; font-size: "..shape.tagSize..";")
if shape.tagSpacer~='0px' then table.insert(result, "letter-spacing:"..shape.tagSpacer..";") end
else -- or add tfx settings for left, right or center align, colors, backgrounds, border-outline
table.insert(result,'style="position:absolute; ')
if dotItem==2 then -- dotTag is out at x,y so 85%
ty=tonumber(string.match(shape.tagSize or '0',"%d+"))
table.insert(result,'font-size: '..shape.tagSize..'; padding:0px 2px;line-height: 85%; top: '..tostring(row.dy+row.gridy-ty*0.52))
else -- it is labelText, so use textLH or 120%
ty=tonumber(string.match(shape.textSZ or '11',"%d+"))
if row.labelPos=='northwest' or row.labelPos=='northeast' then compy=-ty
elseif row.labelPos=='southeast' or row.labelPos=='southwest' then compy=ty/2 end
if row.labelPos and not (row.labelPos== 'auto' or row.labelPos=='') then
bry=(select(2, string.gsub(row.labelText,"<br>", ""))*lh) -- is it a multiline text? expand by line-height /120%?
if row.posType == 'with-line' then bry=0 end
if row.labelPos=='bottom' or row.labelPos == 'south' then bry = 0 -- and shift by none, all or half
elseif row.labelPos=='top' or row.labelPos == 'north' then
if shape.shape=='image:' then bry= 1 + math.min(w/2-10,0)-bry*ty
else bry= -bry*ty+2
end
else bry=-bry*(ty/2 * lh)
end
end
if row.posType == 'photo-panel' then bry=bry+3 end
table.insert(result,'font-size: '..shape.textSZ..'; padding:0px 3px;line-height: '..shape.textLH..'; ')
table.insert(result,'top: '..tostring(row.dy+row.gridy+compy+bry-ty*lh/2))
end
table.insert(result,"px; left: "..tostring(row.dx+row.gridx).."px; color: "..getColor(shape.textCL).."; ")
table.insert(result,"width: max-content; ")
local trf=""
if shape.textNG ~="0deg" then trf="rotate("..shape.textNG..")" end
if shape.textOL~="0px" then
table.insert(result,"background-color: "..getColor(shape.textBG).."; ")
table.insert(result,"border: "..shape.textOL.." solid "..getColor(shape.textCL).."; border-radius:6px;")
else table.insert(result,"background-color: transparent;")
end
if row.labelPos=="right" or string.find(row.labelPos,'east') then
table.insert(result,"text-align: left; ")
linkoffset=w
if shape.textNG ~="0px" then table.insert(result,"transform-origin: left; transform: rotate("..shape.textNG.."); ") end
elseif row.labelPos=="left" or string.find(row.labelPos,'west') then
if shape.textNG ~="0px" then table.insert(result,"transform-origin: right;") end
linkoffset=-w
table.insert(result,"text-align: right; transform: translateX(-100%) "..trf.."; ")
else
table.insert(result,"text-align: center; transform: translateX(-50%) "..trf.."; ")
end
table.insert(result,'font-weight: normal; line-height: '..shape.textLH..'; letter-spacing:'..shape.textSP..'; vertical-align: bottom;')
end
if string.find(shape.textAT or '','bold') then textItem='<b>'..textItem..'</b>' end
if string.find(shape.textAT or '','italic') then textItem='<i>'..textItem..'</i>' end
if shape.textOL=='0px' and shape.textBG~='transparent' and dotItem==0 then
table.insert(result,'\"><span style=\"background-color: '..getColor(shape.textBG)..'; color:inherit;\">'..textItem..'</span></div>')
else
table.insert(result,"\">"..textItem.."</div>")
end
if tlink~='' and not string.match(row.param1 or "","nolink") then
table.insert(result,makeLinkBox(row.gridx+row.dx+linkoffset, row.gridy+row.dy+bry, 16, row.dotTag..' '..row.title,tlink))
end
end

local function getshapetable(row,shape) -- Construct CSS divs for a dot from shape and map data
local result={}
local w,h,rndg=getsize(shape.shapeSize)
local tshape,tlink=checkfortooltip(row.title,row.dx,row.dy,row.dotTag,row.dlink,string.match(row.param1 or "","nolink") )
local align=row.labelPos or ''
local offsetx,offsety=0,0
local ty=tonumber(string.match((shape.tagSize or 9),"%d+" ))
if row.labelText and row.labelText~='' then ty=tonumber(string.match((shape.textSZ or 11),"%d+" ))
else align='center' end -- it is just for dotTag, so justify center
-- identify align value and extend offsets
local widthzone,heightzone = (w/2)+1,(h/2)+1
local theta,r = math.deg( math.atan2(row.dy, row.dx)) , math.sqrt(row.dx^2 + row.dy^2)
if align=='auto' or align=='' then
if (theta < -112 or theta > 112) and math.abs(row.dx)>=w/2 and math.abs(row.dy)<w/1.4 then align = "left" offsetx=1
elseif (theta > -68 and theta < 68) and math.abs(row.dx)>=w/2 and math.abs(row.dy)<w/1.4 then align = "right" offsetx=-1
elseif theta <0 then offsety=ty/2-1 -- bottom
else offsety=0-ty/2+1 -- top
end
elseif align=='left' or string.find(align,'west') then
row.dx=row.dx - w/2 widthzone=4 offsetx=-1
elseif align=='right' or string.find(align,'east') then
row.dx=row.dx + w/2 widthzone=4 offsetx=1
elseif align=='top' or align=='north' then
if string.find(shape.shape,'curve') then
row.dy=row.dy-(h/2)-12 heightzone=4 offsety=ty/2-1
else
row.dy=row.dy - h-2 heightzone=4 offsety=ty/2-1
end
elseif align=='bottom' or align=='south' then
if string.find(shape.shape,'curve') then
row.dy=row.dy+(h/2) heightzone=4 offsety=ty/2-1
else
row.dy=row.dy + h+2 heightzone=4 offsety=0-ty/2-1
end
end
if shape.textEW ~= "0px" and not string.match(row.param1 or "","noline") then
-- debugmsg('r-(w/2) > widthzone r-w/2='..tostring(r-(w/2))..', widthzone='..widthzone..', label='..(row.labelText or '')..', postype='..(row.posType or ''))
makeLineTo(result, row.gridx+1, row.gridy-1, row.gridx+row.dx+offsetx, row.gridy+row.dy+offsety, shape.textEW, shape.textES,shape.textEC,1)
-- debugmsg('n-line for '..row.code..':'..tostring(row.gridx+1)..', '..tostring(row.gridy-1)..', '..tostring(row.gridx+row.dx+offsetx)..', '..tostring(row.gridy+row.dy+offsety)..', with width '..tostring(shape.textEW)..'px '..(shape.textES or 'no style')..' and color '..shape.textEC)
end
if row.posType and row.posType=='mark-line' then
if row.gridx2 and row.gridy2 then
makeLineTo(result, row.gridx, row.gridy, row.gridx2, row.gridy2, tostring(row.mlWidth)..'px', row.mlStyle, getColor(shape.textEC),row.mlGap,shape)
-- debugmsg('mark-line line drawn from '..row.code..' with width '..tostring(row.mlWidth)..'px '..(row.mlStyle or 'no style')..' and color '..getColor(shape.textEC))
end
end
if w ~= 0 then
if shape.shape=='itriangle' then shape.shape='triangle' shape.shapeSize=tostring(w)..'px'..tostring(w/2)..'px' end
if shape.shape=="triangle" then
if shape.outlineWidth ~= "0px" then
makeTriangle(result,row,shape,true,false) -- larger triangle to give the outline, if required
end
makeTriangle(result,row,shape,false,tshape) -- smaller triangle to fit over the top
elseif shape.shape=="square" or shape.shape=="box" or shape.shape=='panel' then
makeSquare(result,row,shape,tshape)
elseif shape.shape=="circle" or shape.shape=="ellipse" then
makeCircle(result,row,shape,tshape)
elseif string.find(shape.shape,'image:')==1 then
makeImage(result,row,shape)
elseif shape.shape=="rulea" or shape.shape=='rule' then
makeRuleA(result,row,shape)
elseif shape.shape=="curvea" or shape.shape=="curvec" then
makeCurveA(result,row,shape)
else -- use a pathshape clipPath
if shape.outlineWidth ~= "0px" then
makeClipPath(result,row,shape,true,false) -- larger path-shape to give the outline, if required
end
makeClipPath(result,row,shape,false,tshape)
end
end
if row.ppwidth and row.ppwidth>0 then makePhotoPanel(result,row,shape) end
if shape.shape=='panel' and row.labelText then makePanelText(result, row, shape)
else
if row.dotTag and row.dotTag ~= "" then -- there is a dotTag
if (row.dx==0 and row.dy==0) and w>0 then -- it is on the dot so if dotsize is not 0 any label is ignored
makeTextItem(result, row, shape, align, tlink, '<b>'..row.dotTag..'</b>', 1)
else
if row.labelText and row.labelText~='' then -- tag and label both used
makeTextItem(result, row, shape, align, '', '<b>'..row.dotTag..'</b>', 1)
makeTextItem(result, row, shape, align, tlink, row.labelText, 0)
else
makeTextItem(result, row, shape, align, '', '<b>'..row.dotTag..'</b>', 1)
makeTextItem(result, row, shape, align, tlink, row.dotTag, 2) -- tag is ouside the dot
end
end
else
if (row.labelText and row.labelText~='') then -- just the label. No tag
makeTextItem(result, row, shape, align, tlink, row.labelText, 0)
end
end
end
if tlink and tlink~='' then
table.insert(result,makeLinkBox(row.gridx, row.gridy,w+3,row.dotTag..' '..row.title,tlink))
end
return table.concat(result)
end

local function getmapframecontent(args,use)
local result, comma= {}, ''
local propertyTable= {}
local color=splitItem(string.lower( args['map-data-color'] or 'dark orange'), 2)
if use == 'basemap' then
table.insert(result, '[')
propertyTable.stroke = "#000000"
propertyTable['stroke-width'] = tonumber(args['map-data-width'] or '6')
if color[2] then
propertyTable['stroke-opacity'] = tonumber(color[2] or '20')/100
end
else
propertyTable.title = args['map-data-text'] or args['map-data'] or ''
propertyTable.stroke = getColor(color[1])
propertyTable['stroke-width'] = tonumber(args['map-data-width'] or '6')
propertyTable['stroke-opacity'] = tonumber(color[2] or '100')/100
end
if args['map-data-inverse'] then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geomask',
ids = args['map-data-inverse'],
properties = {title = (args['map-data-text'] or ''),
stroke = '#555555',
fill = '#555555',
['fill-opacity'] = 0.1,
['stroke-width'] = 1,
['stroke-opacity'] = 0.5 }
}
table.insert(result, mapJson)
comma=', '
end
if args['map-data-heavy'] then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data-heavy'],
properties = { title = args['map-data-heavy'],
stroke = propertyTable.stroke,
['stroke-width'] = 9,
['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.2 }
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-data-light'] and args['map-data-light'] ~= '' then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data-light'],
properties = { title = args['map-data-light'],
stroke = propertyTable.stroke,
['stroke-width'] = 3,
['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.4 }
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-data'] then
propertyTable['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.2
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data'],
properties = propertyTable
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-wdqs'] then -- inserts a SPARQL wdqs query to find geopoints, geoshapes etc from wikidata
local mapSparql = mw.text.jsonEncode{
type = 'ExternalData',
service = args['map-wdqs-type'] or 'geopoint',
query = args['map-wdqs'],
}
table.insert(result, comma .. mapSparql)
-- debugmsg('mapSparql = ' .. mapSparql)
comma=', '
end
if args['map-raw'] then
table.insert(result, comma .. args['map-raw'])
end
if use=='basemap' then table.insert(result,']') end
return table.concat(result)
end

--eg | minilocator=filename,bottom right,132px153px, 38%,60%, 22px
local function makeLocatorMap (args, result)
local miniFile,pos,itemlist,miniW,miniH, miniX,miniY,miniBox, miniBH
if args['mini-locator'] then
pos,miniFile=extractItem(args['mini-locator']) -- first item is filename, in quotes if it includes commas
itemlist=splitItem(pos,5) -- put items in a table filename removed, position,WpxHpx, x%y%,box
pos=itemlist[2] or 'right'
miniW,miniH=getsize(itemlist[3])
miniX=tonumber(string.match(itemlist[4] or '0','[%d]+'))*miniW/100
miniY=tonumber(string.match(itemlist[5] or '0','[%d]+'))*miniH/100
miniBox=tonumber(string.match(itemlist[6] or '0','[%d]+'))
miniBox=miniBox*miniW/100
miniBH=miniBox * maplist.height/maplist.width
elseif args['mini-file'] then
miniFile = args['mini-file']
pos=string.lower(args.minimap or 'right')
if pos=='file' then pos='right' end
miniW,miniH = tonumber(args['mini-width'] or 60), tonumber(args['mini-height'] or 60) -- find top left corner of locator
miniBox,miniBH=tonumber(args['minimap-boxwidth'] or '0'),0 -- firm up pos offsets for dot (with % or not) and boxsize if any,
miniX, miniY=args['minipog-gx'],args['minipog-gy']
if not miniX then miniX=tonumber(args['minipog-x'] or '0') else miniX=tonumber(miniX)*tonumber(miniW)/100 end
if not miniY then miniY=tonumber(args['minipog-y'] or '0') else miniY=tonumber(miniY)*tonumber(miniH)/100 end
if args['minipog-gx'] then miniBox=miniBox*miniW/100 end
miniBH=miniBox * maplist.height/maplist.width
else return end
local miniTop,miniLeft=0,1
if not string.find(pos,'top') then --only use top left, as link box is in top right or put bottom left or right
miniTop=maplist.height+2-miniH
if string.find(pos,'right') then
miniTop=miniTop-15 -- to avoid (c) line
miniLeft=maplist.width-1-miniW
end
end
table.insert(result,'<div style="position: absolute; outline-width: 1px; outline-style: solid; outline-color: white;')
table.insert(result,'top: '..tostring(miniTop)..'px; left:'..tostring(miniLeft)..'px; width:'..tostring(miniW)..'px;' )
table.insert(result,'background-color:transparent; color:inherit;">[[File:'..miniFile..'|'..tostring(miniW)..'px|File:'..miniFile..']]</div>')
if miniX and miniX>0 then
if args['minipog-y'] then miniY=miniY/1.04 end
if args['minipog-x'] then miniX=miniX/1.04 end
if miniBox<1 then
table.insert(result,'<div style="position: absolute; top: '..tostring(miniY+miniTop-3-6)..'px; left:'..tostring(miniX+miniLeft-3)..'px;')
table.insert(result, 'width: 6px; background-color:transparent; color:inherit;">[[File:Red pog.svg|6px|link=]]</div>')
else
table.insert(result,'<div style="position: absolute; top: '..tostring(miniY+miniTop-miniBH/2)..'px; left:'..tostring(miniX+miniLeft-miniBox/2)..'px;')
table.insert(result, 'width: '..tostring(miniBox)..'px; height:'..tostring(miniBH)..'px; outline:1px solid #AA1205; background-color:#AA120522; color:inherit;"></div>')
end
end
end

local function makeArcText(args,result,nval)
local items, itemlist='',{}
local arcText=''
if args['arc'..nval] then
items=convertCoords (args['arc'..nval])
items,arcText=extractItem(items) -- first item is text, in quotes if it includes commas
itemlist=splitItem(items,9) -- put items in a table: text, lat,lon,size,color,angle,gap,radius,ellipse
if itemlist[4]=='' then itemlist[4]='12' end
itemlist[4]=string.match((itemlist[4] or '12'),"[%.%-?%d]+")
if itemlist[5]=='' then itemlist[5]='grey' end
itemlist[6]=string.match((itemlist[6] or '0'),"[%.%-?%d]+")
itemlist[7]=string.match((itemlist[7] or '0'),"[%.%-?%d]+")
itemlist[8]=string.match((itemlist[8] or '0'),"[%.%-?%d]+")
end
if args['arc-coord'..nval] then
local itemTab=splitItem(convertCoordsTrad (args['arc-coord'..nval]),2)
maplist.lat=tonumber(string.match(itemTab[1],"[%.%-?%d]+"))
maplist.lon=tonumber(string.match(itemTab[2],"[%.%-?%d]+"))
else
maplist.lat=tonumber(string.match(args['arc-lat'..nval] or itemlist[2] or '0',"[%.%-?%d]+"))
maplist.lon=tonumber(string.match(args['arc-lon'..nval] or itemlist[3] or '0',"[%.%-?%d]+"))
end
local arcX,arcY=maptogrid(maplist,6)
arcText = args['arc-text'..nval] or arcText
local fontSize =tonumber(args['arc-text-size'..nval] or itemlist[4] or '12')
local textColor=getColor(string.gsub(args['arc-text-color'..nval] or itemlist[5] or 'grey','[%s]+','') )
local arcAngle= tonumber((args['arc-angle'..nval]) or (itemlist[6]) or '45')-90
local arcRadius =tonumber(args['arc-radius'..nval] or itemlist[8] or '0.05')
local arcGap = tonumber(args['arc-gap'..nval] or itemlist[7] or '1')* ( ( math.sin(8-math.rad(arcRadius))^8 )+0.4 )*( ( fontSize+6 )/15 )
arcRadius=450*arcRadius*0.75
local ellipseFactor=tonumber(args['ellipse-factor'..nval] or itemlist[9] or '1')
local arcRotate =arcAngle+90
if arcGap<0 then arcRotate=arcAngle-90 end
local latF=arcY - fontSize + (0-(math.sin(math.rad(arcAngle))) * arcRadius)
local lonF=arcX - fontSize +(0-(math.cos(math.rad(arcAngle))) * arcRadius)

local step=1
for codepoint in mw.ustring.gcodepoint( arcText ) do -- block step=1,#arcText do
table.insert(result,'<div style="position: absolute;')
local posY=tostring(round( (latF + (math.sin(math.rad(arcAngle+((step-1)*arcGap))) * arcRadius)) *ellipseFactor,2))..'px;'
local posX=tostring(round( (lonF + (math.cos(math.rad(arcAngle+((step-1)*arcGap))) * arcRadius))/ellipseFactor,2))..'px;'
table.insert(result,' top: '..posY..' left: '..posX..' transform: rotate( '..tostring(round(arcRotate +((step-1)*arcGap)),2)..'deg);')
table.insert(result,'width:'..tostring(fontSize*2)..'px; text-align: center; background-color:transparent; color: '..textColor..';')
table.insert(result,'vertical-align: baseline; font-size: '..tostring(fontSize)..'px;">'..mw.ustring.char(codepoint)..'</div>')
step=step+1
end
end

local function makeFullscreenItem (itemtitle,itemdescription,lat,lon,group,itemcolor)
local item={}
itemdescription=stripdivs(itemdescription or '')
local templon=lon
if lon > 180 then templon=lon-360 end --for hemisphere+ or -1 dots
if lon < -180 then templon=lon+360 end -- use 'real' coordinates for geohack label, while retaining shifted coords for plot
if itemcolor=='transparent' then itemcolor='white' end
itemcolor=getColor(itemcolor) -- ensure no opacity, which breaks maplink
if string.find(itemcolor,'#')==1 and #itemcolor>7 then itemcolor=string.sub(itemcolor,1,7) end
table.insert(item, '{ "type": "Feature", "properties": {')
table.insert(item, ' "title": "'..itemtitle..'",')
table.insert(item, ' "description": "'..itemdescription)
table.insert(item, ' ([https://geohack.toolforge.org/geohack.php?params='..tostring(lat)..';'..tostring(templon))
table.insert(item, '_dim:2000 '..tostring(lat)..','..tostring(templon)..'])",')
table.insert(item, ' "marker-symbol": "-number-'..string.gsub(group,'%W','')..'", "marker-size": "medium", "marker-color": "'..itemcolor..'" },')
table.insert(item, ' "geometry": {"type": "Point", "coordinates": ['..tostring(lon)..','..tostring(lat)..'] } }')
return table.concat(item)
end

local function makeLegendBox(result,args)
local legend ={}
local line,count, maxWidth='',1,8
local item
line,item=extractItem(args.legendBox or '')
local a='' for c in item:gmatch('.') do a=a..(c:gsub('%^','<br>') or c) end
legend.Text = a -- convert hats to line breaks
line=splitItem(line,6) -- (text, size, poition,background color, text/outline color, param options)
legend.Size=line[2] or '150px80px1px'
legend.Pos=line[3] or '10px10px'
legend.Background=line[4] or 'beigeground'
legend.Color=line[5] or 'darkbrown'
legend.Param= line[6] or ''
local argnum,legendCount,titleHeight='1',1,0
if (legend.Text and legend.Text~='') then
titleHeight=15+(13.4*(select(2, string.gsub(legend.Text,"<br>", ""))))
end
local legendLine,legendGroup,legendY={},{},{}
while args['legendItem'..argnum] do -- assign legendLine, legendGroup, legendY for each dot
line,legendLine[legendCount] = extractItem(args['legendItem'..argnum] or '')
line=splitItem(line,3)
legendGroup[legendCount]=line[2] or argnum
if shapeList[legendGroup[legendCount]] then
maxWidth=math.max(tonumber(string.match(shapeList[legendGroup[legendCount]].shapeSize or '10','[%d]+')),maxWidth)
else maxWidth=math.max(tonumber(string.match(shapeList['1'].shapeSize or '10','[%d]+')),maxWidth)
end
maxWidth=maxWidth+1
if line[3] then
legendY[legendCount]=tonumber(string.match(line[3],'[%d]+'))
else legendY[legendCount] = 3+maxWidth*(legendCount-1)+titleHeight
-- if (legend.Text and legend.Text~='') then legendY[legendCount]=legendY[legendCount]+15 end
end
legendCount=legendCount+1
argnum=tostring(legendCount)
end
local w,h,r=getsize(legend.Size or '')
local x,y=getsize(legend.Pos or '')
local div=mw.html.create ('div')
div:css('position', 'absolute')
div:css('outline', '1px solid'..getColor(legend.Color))
if r~=0 then div:css('border-radius',tostring(r).."px") end
div
:css('top', y.."px")
:css('left', x.."px")
:css('width', w.."px")
:css('height', h.."px")
:css('line-height','105%')
:css('background-color', getColor(legend.Background) )
:css('color','inherit')
if not string.find(legend.Param,'noshadow') then div:css('box-shadow', '2px 2px 4px #33203335') end
div:tag( 'div' )
:css('position', 'absolute')
:css('top','1px')
:css('left', (w/2).."px")
:css('width',(w-8)..'px')
:css('text-align', 'center')
:css('color', getColor(legend.Color))
:css('transform', 'translateX(-50%)')
:css('font-size','11px')
:wikitext(legend.Text)
:done()
for lct=1,legendCount-1 do
--local t=legendGroup[lct]
local shape=shapeList[legendGroup[lct]] or shapeList['1']
local row={}
row.gridx=3+maxWidth/2
row.gridy=(legendY[lct] or 0) + 5
if shape.shape=='image:' then row.gridy=row.gridy+6 end
row.dx=0 row.dy=0
local legendShape= getshapetable(row,shape)
div:wikitext(legendShape)
:tag( 'div' )
:css('position', 'absolute')
:css('top',(legendY[lct] or 0)..'px')
:css('left', (maxWidth+6)..'px')
:css('width', (w-maxWidth-6)..'px')
:css('text-align', 'left')
:css('line-height','103%')
:css('color', getColor(legend.Color))
:css('font-size','10px')
:wikitext(legendLine[lct])
:done()
end
div:allDone()
table.insert(result,tostring(div))
end

local function getQset (qValue,pValue,argNumber,args)
local result={}
local sortType=string.lower(args['geo-list-sort'] or 'a')
local testValue='0'
if sortType == 'alpha' or sortType == 'a' or sortType == 'ah' or sortType == 'al' then
testValue = mw.wikibase.getLabel(qValue)
elseif sortType == 'value' or sortType == 'v' or sortType == 'vh' or sortType == 'vl'then
if qValue==nil or pValue == nil then debugmsg(mw.addWarning((qValue or 'nil')..' Qnumber for '..(pValue or 'nil')))
else
if mw.wikibase.getBestStatements(qValue,pValue)[1] then
testValue = mw.wikibase.getBestStatements(qValue,pValue)[1].mainsnak.datavalue.value.amount or '0'
if pValue == 'P2046' then
testValue = convertToSqKm(testValue, mw.wikibase.getBestStatements(qValue,pValue)[1].mainsnak.datavalue.value.unit)
end
end
end
elseif sortType == 'north' or sortType == 'n' or sortType == 'nh' or sortType == 'nl' then
if mw.wikibase.getBestStatements(qValue,'P625')[1] then
testValue = mw.wikibase.getBestStatements(qValue,'P625')[1].mainsnak.datavalue.value.latitude or 0
end
elseif sortType == 'west' or sortType == 'w' or sortType == 'wh' or sortType == 'wl' then
if mw.wikibase.getBestStatements(qValue,'P625')[1] then
testValue = mw.wikibase.getBestStatements(qValue,'P625')[1].mainsnak.datavalue.value.longitude or 0
end
end
result[1]=testValue
result[2]=argNumber
return result
end

function p._main ( args )
local result={}
local frame=mw.getCurrentFrame()
local dotTable={}
local magVal,scaleVal = args.magnify,''
local origH,origW=maplist.height,maplist.width

if magVal then --set up the values needed to magnify the top-right portion of the map
magVal=tonumber(string.match(magVal or '0',"[%.%-?%d]+")) or 1
if magVal>1 and magVal <=2 then
maplist.height= round(maplist.height/magVal,0)
maplist.width=round(maplist.width/magVal,0)
scaleVal='transform: scale('..magVal..') translateY('..tostring((origH-maplist.height)/2)..'px);'
else magVal=1
end
end
-- set up the three nested div boxes (plus an extra if centered) to put the map plus title/caption area, in an appropriate frame on the page
if args.float=='center' or args.float=='centre' then table.insert(result,'<div class="center"><div class="thumb tnone">')
elseif args.float=='left' then table.insert(result,'<div class="thumb tleft">')
else table.insert(result,'<div class="thumb tright">')
end
table.insert(result,'<div class="thumbinner" style="position: relative; top: 0px; right: 0px; width: '..(args.width or "400")..'px;">')
if args.title then table.insert(result,'<div class="center" style="font-weight:bold">'..args.title..'</div>') end
if magVal and magVal >1 and magVal<=2 then
table.insert(result,'<div class="thumbinner noresize" style="display:block; position: relative; outline:0px; border:0px; padding:0px; background-color:transparent; color:inherit;')
table.insert(result,'top: 50%; right: '..tostring(0-((origW-maplist.width))/2)..'px; ')
table.insert(result,'height: '..origH..'px; width: '..maplist.width..'px; '..scaleVal..'">')
else
magVal=1
table.insert(result,'<div class="thumbinner noresize" style="position: relative; outline:0px; border:0px; padding:0px;')
table.insert(result,'top: 0px; right: 0px; ')
table.insert(result,'height: '..maplist.height..'px; width: '..maplist.width..'px ">')
end
--add any boundary Qvalues to map-data-light if requested
if args['geo-region'] and (args['geo-boundaries'] == '1') then
local qmaps=args['map-data-light'] or ''
if qmaps ~='' and string.sub(qmaps,#qmaps) ~= ',' then qmaps=qmaps..',' end
local geoRegion = args['geo-region'] -- or add base-page here
local geoSubRegion = args['geo-sub-region'] or 'P150'
if not hasWikibase then
geoSubRegion = 'P150'
elseif not mw.wikibase.isValidEntityId(geoSubRegion) then geoSubRegion = 'P150' end
if hasWikibase and mw.wikibase.isValidEntityId(geoRegion) then
local ct=1
local qtemp
while (mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct]) do
-- debugmsg('table '..ct..' - '..mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id)
qtemp = mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id or nil
if qtemp then
if mw.wikibase.entityExists(qtemp) then
qmaps=qmaps..qtemp..',' -- see if there is a geocode boundary Qvalue to add
else debugmsg(mw.addWarning('unable to add geocode value for '..mw.wikibase.getLabel..','..qtemp))
end

end
ct=ct+1
end
end
if qmaps and qmaps ~= '' then -- add back the created/expanded list of boundary Qvalues, and remove trailing comma
args['map-data-light'] = string.sub(qmaps,1,#qmaps-1)
end
end
-- Create the basemap using mapframe
local mapframecontent=getmapframecontent(args,'basemap')
table.insert(result, frame:extensionTag{ name ='mapframe', content=mapframecontent, args={width=tostring(maplist.width), height=tostring(maplist.height),
zoom=tostring(maplist.zoom), longitude=tostring(maplist.lonbase), latitude=tostring(maplist.latbase), mapstyle=maplist.mapstyle, frameless=true } } )

--Add coverall box to block the unhelpful links from mapframe - which wouldn't include all the dots. Reinstate some links to osm and wikimedia
table.insert(result,'<div style="position: absolute;width:'..tostring(maplist.width)..'px; height:'..tostring(maplist.height)..'px;')
table.insert(result,'top:0px;left:0px;background-color:#FFFFFF00; color:inherit;"></div>')
--Add replacent hover-links for OpenStreetMap and maps terms and conditions
table.insert(result,'<div style="position: absolute; top: '..tostring(maplist.height-18)..'px; left: '..tostring(maplist.width-13)..'px; width: 12px; height: 12px">')
table.insert(result,'[[file:Transparent.svg|12px|link=https://www.openstreetmap.org/copyright|'..aboutOSM..']]</div>')
table.insert(result,'<div style="position: absolute; top: '..tostring(maplist.height-18)..'px; left: '..tostring(maplist.width-110)..'px;')
table.insert(result,'width: 12px; height: 12px background-color: transparent; color:inherit;">')
table.insert(result,'[[file:Transparent.svg|12px| link=https://foundation.wikimedia.org/wiki/Policy:Maps_Terms_of_Use|'..termsOfUse..']]</div>')

-- Add scale-line
if not args.scalemark or args.scalemark~='0' then
local top=maplist.height-42
local left=maplist.width-61-(tonumber(args.scalemark or '1'))
local minipos=string.lower(args.minimap or '') -- scalemark gets pushed left if it would be behind the minimap
if minipos~='' and not(string.find(minipos,'left') or string.find(minipos,'top') ) then
local offset=tonumber(args.scalemark or '1')-tonumber(args['mini-width'] or '60')
if offset<1 then left=maplist.width-61-tonumber(args['mini-width'] or '60') end
end
if maplist.width-left >216 then top=top+14 end -- shunt scaleline down if it is beyond the copyright stuff
local scalek,scalem=getScale(maplist.zoom, maplist.latbase, magVal)
local magReduce=''
table.insert(result,"<div style=\"display:inline-block; position: absolute; background-color: #111111")
table.insert(result,"; color:inherit; clip-path:path(nonzero, 'M0,8 l0,4 l20,0 l0,-4 l-0.3,0 l0,3.7 l-19.4,0 l0,-3.7 z') ")
table.insert(result,"; width:20px") -- path is a 20px20px box, and then rescales
if magVal==1 then
table.insert(result,"; top:"..tostring(top-1).."px")
table.insert(result,"; left:"..tostring(left+16).."px")
table.insert(result,"; height:20px; transform:scale("..tostring(2.5)..", "..tostring(1.5)..")")
else -- shrink the scalemark to compensate for magnification
table.insert(result,"; top:"..tostring(top-(magVal*0.28)).."px")
table.insert(result,"; left:"..tostring(left+(16*(magVal*1.15))).."px")
table.insert(result,"; height:20px; transform:scale("..tostring(2.5*(1/magVal))..", "..tostring(1.5*(1/magVal))..")")
magReduce= 'scale('..tostring(1/magVal)..')'
end
table.insert(result,"\"></div>")

table.insert(result,'<div style="position: absolute; top: '..tostring(top)..'px; left: '..tostring(left+47)..'px; font-size: 9.5px; line-height: 126%; width: fit-content;')
table.insert(result,'color: #444433; background-color: transparent; text-align: right; transform: '..magReduce..' translateX(-100%);">'..scalek..'<br>'..scalem..'</div>')
end

--Set up the shapeList and dotList tables, to provide data to go on the map
local sgNumbers,sgSortable={},{} --s1,s2
sgNumbers["1"]="1"
if args.useFormatStyle and args.useFormatStyle=='shortstyle' then
shapeList=ParseShapeTypes (shapeList,args,"1")
for argindex,argv in pairs(args) do -- build a list of all the numbered sg's that have been used
if string.find(argindex,"sg[a-f,n%d]+") == 1 then -- only look through the sga,sgb, sgc,sgd,sge,sgf and sgn args
local x=string.match(argindex,"[%d]+") -- find its number
if x and not sgNumbers[x] then sgNumbers[x]=x end -- only add if not already found
end
if string.find(argindex,"sg[a-f]H") == 1 and highlightNum then highlightOption=true end
end
for indx,sgnum in pairs(sgNumbers) do table.insert(sgSortable,sgnum) end
table.sort(sgSortable,lessthan) -- put the list in a sortable form
for k,v in pairs(sgSortable) do -- work through the sorted list, parsing each set of sg's in turn, from 1 upwards
shapeList=ParseShapeTypes (shapeList,args,v)
end
if highlightOption==true then shapeList=ParseShapeTypes (shapeList,args,'H') end
end

local dotList,dotresult,dotItemTable,dotGroupList={},{},{},{}

if (not args.useFormatStyle) or args.useFormatStyle=='standardstyle' then
local dotmax=0
local qset={}
for indx,val in pairs(args) do
if string.match(indx,'mark%-coord[%d]+') or string.match(indx,'lat[%d]+') or string.match(indx,'geo%-data[%d]+') then
dotmax=math.max(dotmax, tonumber(string.match(indx,"[%d]+")))
if string.match(indx,'geo%-data[%d]+') then
local argnum=string.sub(indx,9,#indx) or ''
if args['mark-title'..argnum] == 'none' or (string.find(args['mark-title'..argnum] or 'x','nolist')== 1) then
-- debugmsg('sort values ignored '..argnum..', '..args['mark-title'..argnum])
else
qset[val]=getQset (val, (args['geo-data-type'] or 'P1082'), argnum, args)
end
end
end
if (indx=='shapeH') or (indx=='shape-colorH') or (indx=='shape-outlineH') or (indx=='label-colorH') then highlightOption=true end
end

local qlist=args['geo-data-list']
if qlist then
if string.sub(qlist,#qlist) ~= ',' then qlist=qlist..',' end
else
qlist=''
end
local geoRegion = args['geo-region'] -- or add base-page here
local geoSubRegion = args['geo-sub-region'] or 'P150'
if not hasWikibase then
geoSubRegion = 'P150'
elseif not mw.wikibase.isValidEntityId(geoSubRegion) then geoSubRegion = 'P150' end
if hasWikibase and (args['find-geo-dots'] or '1') ~= '0' and geoRegion and mw.wikibase.isValidEntityId(geoRegion) then
local ct=1
local qtemp
while (mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct]) do
-- debugmsg('table '..ct..' - '..mw.wikibase.getBestStatements(adminRegion,adminSubRegion)[ct].mainsnak.datavalue.value.id)
qtemp = mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id or nil
if qtemp then
qlist=qlist..qtemp..',' -- add subregion Qvalue to the list
end
ct=ct+1
end
end
if qlist and #qlist>1 then -- create a table from the csv list
local _, c = qlist:gsub(",","")
local qtab=splitItem(qlist,c)
for xd,yd in pairs(qtab) do
yd=string.upper(yd)
if qset[yd] == nil and mw.wikibase.isValidEntityId(yd) then
dotmax=dotmax+1
qset[yd]=getQset (yd, (args['geo-data-type'] or 'P1082'), tostring(dotmax), args)
args['geo-data'..tostring(dotmax)] = yd
-- debugmsg(dotmax..' = '..(string.upper(yd) or 'Q Not found')..': '..(mw.wikibase.getLabel(yd) or 'label Not found')..': '..(mw.wikibase.getSitelink(yd) or 'link Not found'))
elseif not mw.wikibase.isValidEntityId(yd) then
debugmsg(mw.addWarning(yd..' is not a [[wikidata]] page. geo-data-list needs comma-separated Qvalues' ))
else debugmsg(mw.addWarning(yd..' is duplicate'))
end
end
end
-- qset contains set of Qvalues and can be from wikidata geo-region, list of geo-data-list Q values or individual geo-data1= etc
local ts = {} -- table to hold the keys
local useQset=false
for ky, val in pairs(qset) do
table.insert(ts, {key = ky, value = val[1], num=val[2]})
useQset=true
end
if useQset then
local order = string.lower(args['geo-list-sort'] or 'a') -- sort the list from previously stored sortkey, either Lowest or Highest first
if string.find(',al,vl,nl,wl,west,w,alpha,a,' , ','..order..',') then
table.sort(ts, function (a,b) return lessthan(a.value, b.value) end)
else
table.sort(ts, function (a,b) return morethan(a.value, b.value) end)
end
for ky,val in ipairs(ts) do -- assign values from sorted list to numbered parameter

args['numbered'..val.num] = ky -- The numbered parameter becomes the value for each dot that has a geo Qvalue, from manual, list or wiki sources.
end
end

dotItemTable=tradstyleParseShapes(args,dotItemTable,dotmax)
for argindex=1,dotmax do -- build a list of all the numbered coords or lat,lons that have been used
local x=tostring(argindex)
if args['mark-coord'..x] or (args['mark-lat'..x] and args['mark-lon'..x]) or args['geo-data'..x] then
sgNumbers[x]=x -- add it to the list
end
end
else
for indx in pairs(args) do
if string.match(indx,'dot[%d]+') then table.insert(dotList,indx) end --add the index name for dot1, dot2 etc to dotList
end
table.sort(dotList,morethan)
for indx,dotName in pairs(dotList) do
dotresult=ParseData(args,string.match(dotName,'[%d]+') ) -- using each dot number, assign the settings for each dot to a dotresult item line
table.insert(dotItemTable,dotresult) -- and store that item line within the dotItemTable
end
end

for arcVal = 65,91 do -- check through args looking for any arcs
local arcLetter=string.char(arcVal)
if args['arc-text'..arcLetter] or args['arc'..arcLetter] then
makeArcText(args,result,arcLetter)
end
end

local dotdivs=''
local ddots=0
if dotItemTable[1] then
local ddots=(dotItemTable[1].lat or 0)+(dotItemTable[1].lon or 0)
end
local fgroup='F'..tostring(maplist.latbase+maplist.lonbase+ddots )
local FullscreenList={}
local addcomma=''
for i,dotitem in pairs(dotItemTable) do -- working throug each dot item, merge the dot and shape values into a full set of css text
local dotgroup= dotitem.group or "0"

if dotitem.posType=='mark-line' and dotitem.markDest then --find destination xy values for any mark-lines
for n,v in pairs(dotItemTable) do
if v.code == dotitem.markDest then dotitem.gridx2=v.gridx dotitem.gridy2=v.gridy break end
end
end
local qtype=dotitem.group -- find which shape group each dot has been assigned
--debugmsg('dotgroup='..qtype..', sg='..(sgNumbers[qtype] or 'nil')..' , shapeList='..shapeList[qtype].shape)
if not sgNumbers[qtype] then qtype="0" end --shapeList[dotitem.group] will give access to the shape values for that dot
if highlightNum==dotitem.code and highlightOption==true and shapeList['H'] then
table.insert(result, getshapetable(dotitem,shapeList['H']))
else
table.insert(result, getshapetable(dotitem,shapeList[qtype])) -- Add the actual css instructions for each dot
end
if shapeList[dotgroup] and not string.find((dotitem.param1 or ''),'nomap') then -- only add if not excluded with 'nomap' labelText
local ftext=''
if dotitem.dotTag~='' and not string.match(dotitem.labelText or '','[%d]') then ftext=stripdivs(dotitem.dotTag or '')..' <br>' end
if (dotitem.labelText ~= ftext) and dotitem.dotLink =='' then ftext=ftext..' '..stripdivs(dotitem.labelText)..'<br>' end
if (dotitem.dotLink) and (dotitem.dotLink ~='') then ftext=ftext..dotitem.dotLink..'<br>' end
if dotitem.imageName then ftext=ftext..'[[File:'..dotitem.imageName..'|250px]]' end
table.insert(FullscreenList,1, makeFullscreenItem (string.gsub(ftext,"[\n]+"," "), dotitem.info,round(dotitem.lat,5),round(dotitem.lon,5),fgroup,shapeList[dotgroup].shapeColor)..addcomma )
addcomma=', '
end
-- makeFullscreenItem (itemtitle,itemdescription,lat,lon,group,itemcolor)
-- Always add to start of list, to reverse the sequence, and separate with commas except for first item, which is now at the end
end
if args.legendBox then makeLegendBox(result,args) end
if args.minimap or args['mini-locator'] then makeLocatorMap(args,result) end

-- add tag link and details for fullscreen version
addcomma=''
if (mapframecontent or '[]') ~= '[]' then addcomma=',' end
mapframecontent=getmapframecontent(args,'fullscreen')
local contentstart='[ '..mapframecontent..addcomma..'{ "type": "FeatureCollection", "features": [ ' --extra features after first square bracket
local contentend=' ] } ]'
table.insert(result, '<div style="position: absolute;top: 9px;left: '..tostring(maplist.width-34)..'px">')
table.insert(result, '<div style="color: white; opacity:100; font-size: 19px; font-weight:normal; text-align: left;">')
table.insert(result, frame:extensionTag{ name ='maplink', content=contentstart..table.concat(FullscreenList)..contentend, args={zoom=tostring(maplist.zoom+1), class='no-icon', frameless='1',
latitude=tostring(maplist.latbase), longitude=tostring(maplist.lonbase), --add invisble 'en-spaces' for tooltip
text='<div title="'..fullscreenlinktext..'">   </div>'} } )
table.insert(result,'</div></div>') -- end of maplink -----

-- add closing div for main map
table.insert(result,'</div>')

-- collate caption material to go in the outer div class
if captionTable ~= '' and (not args['auto-caption']) then args['auto-caption']='on' end --default to include list if using geo values
local autocaption=string.lower(args['auto-caption'] or 'no')
local autoOff=autocaption:match("(%w+)(.*)") -- select the first word in autocaption and see if it is a negativeAnswer)
if negativeAnswer[autoOff] then captionTable='' end
if args.caption or (not negativeAnswer[autoOff]) then
table.insert(result,'<div class="thumbcaption" style="text-align:left">')
if args.caption then
table.insert(result,args.caption)
if captionTable ~= '' then table.insert(result,'<hr>') end
end
end
local columns=tonumber(autoOff:match("[%d]+") or '1')
if columns>1 then columns=round(maplist.width/(columns*17), 0) end -- convert from em to px for historical reasons
--for k in pairs(dotList) do capchk=capchk..(args["dotlink"..k] or '') end

local capchk=nil
local captionList = {}
for key, value in pairs(dotItemTable) do
-- only add an autocaption line if there is both a dotTag and a dotLink line available and it is not marked as nolist
if value.dotTag and value.dotTag~='' and (not string.find(value.param1 or '','nolist')) and string.gsub(value.dotLink or '',"%s+","")~='' then
table.insert(captionList, {key = key, value = value})
if captionTable == '' then
capchk=true
else -- add the next line of content to the html table
capchk=false
end
end
end
if captionTable ~= '' then
table.sort(captionList, function (a,b) return lessthan(string.match(a.value.dotTag,'[%w]+'), string.match(b.value.dotTag,'[%w]+')) end)
for k,v in pairs(captionList) do
local nval=string.match(v.value.dotTag,'[%w]+') -- find the first alphanumeric item in the dotTag
local ngrp=v.value.group
if captionTableText[ngrp] then
-- debugmsg('table text for'..v.value.dotTag..', '..captionTableText[v.value.group][1]..', '..captionTableText[v.value.group][2]..', '..captionTableText[v.value.group][3]..' ('..captionTableText[v.value.group][4]..')')
local c1,c2
c1,c2=checkColors(shapeList[ngrp].shapeColor)
local cDot='<div style="display:inline-block;line-height:110%;vertical-align:middle; padding:1px 4px;border-radius:8px;border: 0.5px solid black;'
cDot=cDot..'background-color:'..c1..';color:'..c2..';font-size:88%;font-weight:bold">'..nval..'</div>'
captionTable = htmlTableLine(captionTable,cDot,captionTableText[ngrp][1], captionTableText[ngrp][2], captionTableText[ngrp][3], captionTableText[ngrp][4])
end
end
end
if capchk and (not negativeAnswer[autoOff]) then
table.sort(captionList, function (a,b) return lessthan(string.match(a.value.dotTag,'[%w]+'), string.match(b.value.dotTag,'[%w]+')) end)
-- local myDivision = string.gsub((args.toggletext or toggletext), "%s+", "")
if string.find(autocaption,'collaps') then
table.insert(result,'<div class = "wikitable mw-collapsible ')
if string.find(autocaption,'collapsed') then table.insert(result,'mw-collapsed') end
table.insert(result,'" style="width:100%; line-height: 17px; border-style:none; text-align: center"><b>'..(args.toggletext or toggletext)..'</b>')
end
if string.find(autocaption, 'columns=') then
columns=string.match(autocaption,'[%d]+',string.find(autocaption, 'columns=') )
end
table.insert(result,'<div class="mw-collapsible-content" style="column-count:'..columns..'; column-rule:solid 1px;text-align:left;padding-top:5px">')
table.sort(dotList,lessthan)
local nval,ngrp='','0'
for k,v in pairs(captionList) do
nval=string.match(v.value.dotTag,'[%w]+') -- find the first alphanumeric item in the dotTag
ngrp=v.value.group or '0'
if v.value.dotLink and v.value.dotLink~='' and nval and nval~='' then
local c1,c2
if nval==args.highlight then
c1,c2=checkColors(shapeList['H'].shapeColor)
else
c1,c2=checkColors(shapeList[ngrp].shapeColor)
end
table.insert(result,'<div style="display:inline-block;line-height:110%;vertical-align:middle; padding:1px 4px;border-radius:8px;border: 0.5px solid black;')
table.insert(result,'background-color:'..c1..';color:'..c2..';font-size:88%;font-weight:bold">'..nval..'</div> '..v.value.dotLink..'<br>')
end
end
table.insert(result,'</div>') -- end for caption-content div
if string.find(autocaption,'collaps') then table.insert(result,'</div>') end -- end for toggle frame
end
if captionTable ~= '' then table.insert(result,captionTable..'</table>') end
if args.caption or (not negativeAnswer[autoOff]) then table.insert(result,'</div>') end -- end for whole caption frame
table.insert(result,'</div></div>') -- outer two frames
if args.float == 'center' or args.float=='centre' then table.insert(result,'</div>') end

if args['show-new-format'] == 'hints' then -- provide a 'format hint panel' in the 'Preview Box'
local w="<small>Below are some template hints for the 'sga' compressed version, "
w=w..'{{tl|OSM Location dots}}. It can use these, instead of the more verbose {{tl|OSM Location map}} parameter format. '
w=w..'Data is divided between a "ShapeGroup" and the "Dots", so that a single shapeGroup can be used for multiple dots on the map. '
previewMsg(w..'(nb. the "group" value can be the number or an assigned name of a shapeGroup)</small>')

w='<small>{{tl|OSM Location dots}}: | dot(n)=group,lat,lon,dotTag | '
w=w..'dotlink=link/tooltip | dotlabel=label,position,dx,dy,param1,info | dotpic=filename <br>'
w=w.."(nb. param1 options include 'nolink' 'nolist' 'nomap' 'hemisphere-1' 'hemisphere+1', 'noline' - quotes not required, separate with spaces).<br>"
w=w..'| sga = Shape,Sizepx,Color,Angledeg | sgb= OutlineWidth,Color,Style | sgc=TextSize,Color,Angle,bold italic <br>'
w=w..'| sgd=TagSizepx,Color,Spacer,Angledeg | sge=LineWidth,Color,Style | sgf=TextSpacingpx,LineHeight%,Outlinepx,backgroundColor<br>'
w=w..'| sgn=Name (optional, to assign a meaningful name) | sgp=Parent (can be the name or number of the parent shapeGroup. '
previewMsg(w..'Each shapegroup will inherit values from a parent, stretching back to "sga1" and its default values.)</small>')
if #pmsg then
local dbg={}
for i,x in pairs(pmsg) do
table.insert(dbg,x..'<br>')
end
dbg=mw.addWarning(table.concat(dbg))
table.insert(result, dbg)
end
end

if args.coordtest then debugmsg(mw.text.nowiki(args.coordtest)) end

for i,x in pairs(msg) do
table.insert(result, x..'<br>')
end
return table.concat(result)
end

function p.main(frame)
local args = getArgs(frame)
local itemTab={}
maplist.width=tonumber(args.width) or 400
maplist.height=tonumber(args.height) or 300
if args.coord then
itemTab=splitItem(convertCoordsTrad (args.coord),2)
maplist.latbase=itemTab[1]
maplist.lonbase=itemTab[2]
else
maplist.lonbase=tonumber(args.lon) or 5
maplist.latbase=tonumber(args.lat) or 0
end
maplist.zoom=tonumber(args.zoom) or 1
visibleLinks=args.showlinks
highlightNum=args.highlight
if args.nolabels=='1' then maplist.mapstyle='osm' else maplist.mapstyle='osm-intl' end
if maplist.width >= 400 and not(args['show-q-values']) then args['show-q-values'] = '1' -- default to on if wider than 400px
elseif maplist.width < 320 then args['show-q-values'] = '0' end -- turn off Qvalus if frame is too narrow, even if requested
return p._main(args)
end

return p

Module:OSM Location map

2026-04-05T10:02:57Z

Cultopedia-admin: Cultopedia: guard Module:OSM Location map against nil lat/zoom values

require('strict')
local delink=require('Module:Delink').delink
local getArgs = require('Module:Arguments').getArgs
local p = {}
local maplist={}
local sgNames={}
local highlightOption=false
local highlightNum
local visibleLinks
local geoTotalPop = 0
local captionTable = ''
local captionTableText = {}

-- This module creates framed maps of anywhere in the world, at the required scale, and enables annotations,
-- dots, shapes, lines and other ways to customise the area of the map being shown. It also provides a link
-- to an interactive fullscreen version, which has locator dots instead of annotations and shapes.

-- This is the 2025 successor module to a wiki-markup template version of 2024, which itself was a successor
-- to the 'Graph'/VEGA driven template that was begun in 2016, until the Vega version was switched off in 2023.

-- This module is called from template {{OSM Location map}}, which uses the same parameter formats as before.

-- In addition it may at some point be possible to use a more concise parameter format using the template {{OSM Location dots}}
-- In general the css output from the two formats will be identical, but the the concise version will allow bits of
-- greater control over some of the settings.

-- see the documentation on the two template pages for details of how to use the mapping features.

-- If language customisation is needed, there are text items below that can be translated. Also see the color table
-- below with details of how to add additional color names to allow localised alternatives.
-- (Translating other language shape-types could be possible, but has not currently been contemplated.
-- Parameter name translation would be harder but likely to be possible, ideally still retaining compatibility
-- with template calls already written using English).

-- -------------- the following text variables are used within the template, and can be translated as required ---------------
-- -------------- you may wish to retain the English version as a comment, to keep track of the original phrase --------------
local negativeAnswer={no=1,'0'-1,off=1}
local fullscreenlinktext = 'Click for interactive fullscreen map with links to nearby articles'
local toggletext = 'List of numbered map items:'
local termsOfUse = 'Maps: terms of use'
local aboutOSM = 'About OpenStreetMaps'
local yards = 'yds'
local miles = 'miles'
local metres = 'm'
local km = 'km'
local sqkm = 'sq.km'
local year = 'year'
local notFound = 'not found'
local totalItems = 'Total'
local sumOfDatapoints = 'sum of datapoints'
local numberCol = 'No.' -- abbreviated for top of column of code numbers
local wikidataLink = 'Wikidata page'

local shapeList={} --This sets up the 'factoryDefault' shape group 0
shapeList["0"]={shapeType="0",
Name="initialSettings",
Parent="0",
--sga items for the shape
shape="circle",
shapeSize="12px",
shapeColor="blue",
shapeAngle="0deg",
--sgb items for border of the shape
outlineWidth="0.5px",
outlineColor="darkblue",
outlineStyle="solid",
--sgc items text settings for labels
textSZ="11px",
textCL="darkgrey",
textNG="0deg",
--sgf further text settings
textSP="0px",
textLH="120%",
textOL="0px",
textBG="transparent",
--sgd items for dotTag text settings
tagSize="10px",
tagColor="white",
tagSpacer="0px",
tagAngle="0deg",
--sge items for extension line to connect label to dot
textEW="0px",
textEC="darkgrey",
textES="solid"
}

local colorList={} -- used by colorLookup to catch unsupported colors (eg 'LimeGreen'), to convert to generic version
colorList['green']='hardgreen' -- it could also be added to to include alternative language equivelants, for a quick solution.
colorList['red']='hardred' -- colorList ['source'] = target
colorList['white']='white' -- converts any color that includes 'source' into its equivelent target
colorList['blue']='hardblue' -- note, for translation you can add to this list, rather than replace it,
colorList['brown']='brown' -- which would mean existing map definitions in english would also still work, alongside translated ones
colorList['grey']='hardgrey'
colorList['gray']='hardgrey'
colorList['purple']='hardpurple'
colorList['orange']='hardorange'
colorList['leaf']='hardleaf'

--for a more thorough translation, you can add all the variants of the colors as further CTB elements and hex values or redirects
local CTB={} -- set up a table of color names (the CTB Color table index) and html hash colorhex values.
CTB["paleblue"],CTB["softblue"],CTB["hardblue"],CTB["darkblue"]="#D6E1EC","#77A1CB","#4B77D6","#1c559e"
CTB["palered"],CTB["softred"],CTB["hardred"],CTB["darkred"] = "#FCC6C0","#EC644B","#DB3123","#AA1205"
CTB["palegreen"],CTB["softgreen"],CTB["hardgreen"],CTB["darkgreen"]= "#D2F0E5","#81AF81","#269F46","#0b7527"
CTB["paleleaf"],CTB["softleaf"],CTB["hardleaf"],CTB["darkleaf"]= "#dff5c1","#b5e376","#8cc244","#679c21"
CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]= "#E8E8D6","#AAAA88","#777755","#444433"
CTB["palegray"],CTB["softgray"],CTB["hardgray"],CTB["darkgray"]=CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]
CTB["palebrown"],CTB["softbrown"],CTB["hardbrown"],CTB["darkbrown"]="#FAF6ED","#CCB56C","#AD7F14","#754910"
CTB["palepurple"],CTB["softpurple"],CTB["hardpurple"],CTB["darkpurple"]="#e0d1e6","#c784e0","#a029cf","#7a05a8"
CTB["paleorange"],CTB["softorange"],CTB["hardorange"],CTB["darkorange"]="#ffedc2","#ffcf61","#EEB533","#e39f05"
CTB["black"],CTB["white"],CTB["yellow"]="#000000","#FFFFFF","#FAF039"
CTB["background"],CTB["paleground"],CTB["beigeground"]="#f9f6f2","#FEFEFA","#F5F5DC"
CTB["beige"]=CTB["beigeground"]
CTB["aqua"],CTB["teal"],CTB["fuchsia"] = "#00FFFF","#008080","#FF00FF"
CTB["maroon"],CTB["olive"],CTB["navy"] = "#800000","#808000","#000080"
CTB["lime"],CTB["limegreen"],CTB["aquamarine"] = "#00FF00","#32CD32","#7FFFD4"
CTB["silver"],CTB["yellow"],CTB["orchid"] = "#800000","#FFFF00","#DA70D6"

-- set up a table of predefined clip-paths
local pathshape={}
pathshape.squaredd = "M 19,1.25 l 0,18 -18,0 0,-18 18,0m-1,1 -16,0 0,16 16,0 0,-16m-1,1 0,14 -14,0 0,-14 14,0zm-1,1 -12,0 0,12 12,0 0,-12zm-1,1 0,10 -10,0 0,-10 10,0z"
pathshape.squared = "M 18,2.5 l 0,15 -15,0 0,-15 15,0m-1,1 -13,0 0,13 13,0 0,-13zm-1,1 0,11 -11,0 0,-11 11,0z"
pathshape.triangledd="M 0 20,20 20,10 0,0 20ZM1.5 19,10 1.7,18.5 19,1.5 19ZM3 18,17 18,10 3.8,3 18ZM4.5 17,10 5.4,15.4 17, 4.5,17ZM6 16,13.8 16,10 7.4z"
pathshape.triangled ="M1,18 l 18,0 l -9,-18 l -9,18zm1.7,-1.1 l 7.3,-14.6 l 7.3,14.6 l -14.6, 0zm1.7,-1 l 11.0,0 l -5.5,-11 l -5.5,11z"
pathshape.circledd = "M0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm0.8,0a9.2,9.2 0 1,1 18.4,0a9.2,9.2 0 1,1 -18.4,0m1,0a8.2,8.2 0 1,0 16.4,0a8.2,8.2 0 1,0 -16.4,0zm0.8,0a7.2,7.2 0 1,1 14.8,0a7.2,7.2 0 1,1 -14.8,0m1,0 a6.4,6.4 0 1,1 12.8,0a6.4,6.4 0 1,1 -12.8,0z"
pathshape.circled = "M2.5,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0m0.8,0 a5,5 0 1,1 11.4,0a5,5 0 1,1 -11.4,0"
pathshape.diamond = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10z"
pathshape.diamondd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm1,0 l 6,8.5 l 6,-8.5 -6,-8.5 -6,8.5zm1,0 l 5,-7 5,7 -5,7 -5,-7z"
pathshape.diamonddd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm0.75,0 l 6.25,9 l 6.25,-9 -6.25,-9 -6.25,9zm0.75,0 l 5.5,-8 5.5,8 -5.5,8 -5.5,-8zm0.75,0 l 4.75,7 l 4.75,-7 -4.75,-7 -4.75,7zm0.75,0 l 4,-6 4,6 -4,6 -4,-6z"
pathshape.crossd = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0zM2.3,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"
pathshape.cross = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0z"
pathshape.thincross = "M2,12 l6,0 l0,6 l4,0 l0,-6 l6,0 l0,-4 l-6,0 l0,-6 l-4,0 l0,6 l-6,0z"
pathshape.fivepointstar = "M10 0 L12.245 6.91 19.511 6.91 13.633 11.18 15.878 18.09 10 13.82 4.122 18.09 6.367 11.18 0.489 6.91 7.755 6.91Z"
pathshape.fivepointstard = "M10 1.5 L 11.90825 7.3735 18.08435 7.3735 13.08805 11.003 14.9963 16.8765 10 13.247 5.0037 16.8765 6.91195 11.003 1.91565 7.3735 8.09175 7.3735 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.sixpointstar = "M10 0 L12.323 5.977 18.66 5 14.645 10 18.66 15 12.323 14.023 10 20 7.677 14.023 1.34 15 5.355 10 1.34 5 7.677 5.977Z"
pathshape.sixpointstard = "M10 1.5 L 11.97455 6.58045 17.361 5.75 13.94825 10 17.361 14.25 11.97455 13.41955 10 18.5 8.02545 13.41955 2.639 14.25 6.05175 10 2.639 5.75 8.02545 6.58045 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.sevenpointstar = "M10 0 L12.048 5.747 17.818 3.765 14.602 8.95 19.749 12.225 13.69 12.943 14.339 19.01 10 14.72 5.661 19.01 6.31 12.943 0.251 12.225 5.398 8.95 2.182 3.765 7.952 5.747Z"
pathshape.sevenpointstard = "M10 1.5 L11.7408 6.38495 16.6453 4.70025 13.9117 9.1075 18.28665 11.89125 13.1365 12.50155 13.68815 17.6585 10 14.012 6.31185 17.6585 6.8635 12.50155 1.71335 11.89125 6.0883 9.1075 3.3547 4.70025 8.2592 6.38495 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.eightpointstar = "M10 0 L11.88 5.46 17.071 2.929 14.54 8.12 20 10 14.54 11.88 17.071 17.071 11.88 14.54 10 20 8.12 14.54 2.929 17.071 5.46 11.88 0 10 5.46 8.12 2.929 2.929 8.12 5.46Z"
pathshape.eightpointstard = "M10 0 L10 1.5 L11.598 6.141 16.01035 3.98965 13.859 8.402 18.5 10 13.859 11.598 16.01035 16.01035 11.598 13.859 10 18.5 8.402 13.859 3.98965 16.01035 6.141 11.598 1.5 10 6.141 8.402 3.98965 3.98965 8.402 6.141ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"
pathshape.ring="M2.6,9.5a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"
pathshape.semicircle = "M0,5 C0,18.3,20,18.3,20,5 L 0,5z"
pathshape.arrowhead = "M 10,10.2 l 10,2.8 -2,-3 2,-3 -10,2.8 -0.2,0.2z"
pathshape.boxd=pathshape.squared
pathshape.boxdd=pathshape.squaredd
pathshape.ellipsed=pathshape.circled
pathshape.ellipsedd=pathshape.circledd

local msg={}
local function debugmsg(txt)
table.insert(msg,txt)
end
local pmsg={}
local function previewMsg(txt)
table.insert(pmsg,txt)
end

local function colorLookup(color)
for c,l in pairs(colorList) do
if string.find(color,c) then return l end
end
return color
end

local function getColor (color,chk)
local c
local opacity="100"
if not color or color=='' then color='hardgrey' end
if color=="transparent" then return color end
if color=="background1" then color='background' end
if string.byte(color,1,1)==35 and (#color == 7 or #color == 9) then
c=color
elseif string.byte(color,1,1)==35 and #color == 4 then
c=string.sub(color,1,2)..'f'..string.sub(color,3,3)..'f'..string.sub(color,4,4)..'f'
else
local s=color..'1'
s= s:sub(0,s:find("%d")-1)
opacity=string.match(color,"%d+")
if not CTB[s] then s= colorList[s] end -- check for synonyms and translations
if not CTB[s] then debugmsg(mw.addWarning('color = '..color..'. The color name is not defined. Used default grey instead')) end
c=CTB[s] or CTB.hardgrey
end
if opacity and (tonumber(opacity) < 100) and string.find(c,"#")==1 and string.len(c)==7 and opacity~="" then
local hexval=string.format("%x",(math.floor(tonumber(opacity)*2.55)))
c=c..hexval
end
return c
end

function p.colorvalue(frame) -- enable external access to the CTB colorTable values. usage: {{#invoke:OSM Location map|colorvalue|color=hard blue}}
local c
if not frame.args.color or frame.args.color=='' then c='grey'
else c=string.lower(string.gsub(frame.args.color,'%s+','')) end
return string.upper(string.sub(getColor(c),2))
end

local function checkColors(color)
local c=getColor(color,'check')
local opacity =1 -- calculate colour brightness and return black or white for contrast
if c=='transparent' then return c,'#000000',0 end
if not (string.find(c,'#')==1) then return c,'#FFFFFF',0 end
if #c>8 then opacity= tonumber('0x'..(string.sub(c,8,9)))/500 end
local r=tonumber('0x'..(string.sub(c,2,3)))/255
local g=tonumber('0x'..(string.sub(c,4,5)))/255
local b=tonumber('0x'..(string.sub(c,6,7)))/255
if 0.2126 * r + 0.7152 * g + 0.0722 * b / opacity < 0.7 then
return c,'#FFFFFF',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity
else return c,'#000000',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity
end
end

local function morethan(a,b)
if tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]')) and tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]')) then
a = tonumber(string.match(a, '%-?%f[%d]%d[,.%d]*%f[%D]') )
b = tonumber(string.match(b, '%-?%f[%d]%d[,.%d]*%f[%D]') or '0')
end
return a>b
end

local function lessthan(a,b)
if tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]')) and tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]')) then
a = tonumber(string.match(a, '%-?%f[%d]%d[,.%d]*%f[%D]'))
b = tonumber(string.match(b, '%-?%f[%d]%d[,.%d]*%f[%D]') or '0')
end
return a<b
end

local function getsize(size)
--size1 is between 1 and 3 values, each with px, equating to width,height,corner-rounding
--eg '15px 25px 5px' (spaces are optional) or '18px'. returns three numbers
local sizeval = {}
for v in string.gmatch(size, "[^px]+") do
table.insert(sizeval,v)
end
sizeval[1] = tonumber(sizeval[1]) or 13
sizeval[2] = tonumber(sizeval[2]) or sizeval[1]
sizeval[3] = tonumber(sizeval[3]) or 0

return sizeval[1],sizeval[2],sizeval[3]
end

local function coord2text(coord) -- looks through the output from {{coord}} to find the lat and long decimal values
-- and converts compass points to minus or not-minus, return with separating comma.
local lat = string.match(coord,'[%.%d]+°[NS]')
local lon = string.match(coord,'[%.%d]+°[EW]')
local neg={N="",S="-",W="-",E=""}
return neg[string.match(lat, '[NS]')]..string.match(lat,'[%.%d]+')..","..neg[string.match(lon, '[EW]')]..string.match(lon,'[%.%d]+')
end

local function convertCoordsTrad (row)
local coords=''
if row and string.find (row,'<span class="geo">') then
local a,b=string.find(row,'<span class="geo">')
local start=b+1
a,b=string.find(row,"</span>",b)
local finish=a-1
coords=string.sub(row,start,finish)
coords=string.gsub(coords,'; ',',')
end
return coords
end

local function convertCoords (row)
local start,finish,lat,lon,coords,says
if row then
local a,b=string.find(row,"<span class=")
start=a
while a do -- find the final span>
finish=b
a,b=string.find(row,"span>",b)
end
if start then
coords= string.sub(row,start,finish)
says=""
if string.find(coords,'<span class="error">') then
error("coord error: badly formed coordinates",0)
end
coords=coord2text(coords)
coords = string.sub(row,1,start-1)..coords..string.sub(row,finish+1)
else
coords=row
end
return coords
else
return "Nothing to see here"
end
end

local function fillCommas(val,max)
local line=''
if not val then line=',' -- ensure there is some content
else line = val --string.lower(string.gsub(val,"%s+","")) -- or strip spaces
end
if string.find(line,',') == 1 then line=' '..line end -- ensure initial comma is not skipped
local _, count=string.gsub(line,",","") -- add enough subsequent commas for all entries
line=line..string.rep(',',max-count)
while(string.find(line,",,") ) do
line=string.gsub(line,",,",", ,") --ensure string.gmatch doesn't ignore any empty items by padding with spaces
end
return line
end

local function makeLinkBox(left,top,wid,label, link)
local linkBoxName='Transparent square.svg'
if visibleLinks or '' =='yes' then linkBoxName='Red hollow square.svg' end
local builder = mw.html.create('div') --display:inline-block;
local t= string.find(label,'wikidata') -- exclude wikidata from tooltip line
if t then
label=string.sub(label,1,t-2) -- don't show wikidata value in tooltip
if string.find(link,'wikidata') then link = '' end -- don't link on click to wikidata (if there was not another link)
end
builder
:cssText('position:absolute;left:'..tostring(left-1-wid/2)..'px;top:'..tostring(top-1 + math.min(wid/2-12,0) - wid/2)..'px')
:wikitext(string.format( '[[File:%s|%dpx|link=%s|%s]]', linkBoxName, wid+2, link, label ))
return tostring(builder)
end

local function extractItem(row,searchItem)
-- remove text following a searchItem or start of line, which might be in quote-marks to allow commas
local xend,xstart=1,0
if not row then return '','' end
if searchItem then xend,xstart= string.find(row or '',searchItem or 'image:') end
if not xstart then return string.gsub(string.gsub(row or '',"%b\"\"", ''),"%b\'\'", '') or '','' end
while row:byte(xstart+1) == 32 and xstart<#row do -- skip over any leading spaces
xstart=xstart+1
end
local xbyte=row:byte(xstart+1)
if xbyte == 34 or xbyte == 39 then -- are they wrapped in single or double quotes
xstart=xstart+1
xend=row:find(string.char(xbyte),xstart+1)
else
xend = row:find(',',xstart+1) -- if no quotes, we assume no commas
if not xend then xend=#row+1 end
end -- return residual row and extracted text
return row:sub(0,xstart)..row:sub(xend), row:sub(xstart+1,xend-1)
end

local function itemCheck(item,ext)
if not item then return nil end
if not ext then ext='' end
return (string.match(item,"[%.%-?%d]+") or '0')..ext
end

local function stripdivs(line)
return string.gsub(line or '',"%b<>", ' ')
end

local function splitItem(item,max) -- takes a commas-sep list and returns a table of lowercase items with no spaces, or nil
local r={}
local x=1
item=string.lower(fillCommas(item,max))
for t in string.gmatch(item,"[^,]+") do
r[x]=string.gsub(t,"%s+","")
if r[x]=='' then r[x]= nil else -- residual items might have commas
if x>max then r[max]=(r[max] or '')..', '..r[x] end
end
x=x+1
end
return r
end

local function ParseShapeTypes (result,args,sgval) -- for use with compressed, comma-separated 'sg plus dots' parameters
--[[ shape table items and default values as set at top of page
shapeType="0", Name="initialSettings", Parent="0",
--sga items for the shape shape="circle", shapeSize="12px", shapeColor="blue", shapeAngle="0deg",
--sgb items for border outlineWidth="0.5px", outlineColor="darkblue", outlineStyle="solid",
--sgc items label text textSZ="11px", textCL="white", textNG="0deg", textAT=attributes ("bold" and/or "italic")
--sgd items for dotTag tagSize="11px", tagColor="darkgrey", tagSpacer="0px", tagAngle="0deg",
--sge extension line textEW="1px", textEC="darkblue", textES="solid"
--sgf fx for text labels textSP="0px" textLH="100%" textOL="1px", textBG="paleground",

--]]

if args["sgn"..sgval] then
local sgname=string.match(args["sgn"..sgval],"(%w+)(.*)")
sgNames[sgname]=sgval
end
local parent= args["sgp"..sgval]
if parent then
parent=string.match(parent,"(%w+)(.*)")
local pos= string.find(parent,"%d+")
if pos == 1 then
parent=string.match(parent,"%d+")
else
parent=sgNames[parent] or '1'
end
end
if sgval~='H' then
if not parent or tonumber(parent) > tonumber(sgval) then
if sgval=="1" then parent="0" else parent="1" end
end
end
local itemTab, line, filename
result[sgval]={}
result[sgval].shapeType=sgval
line,filename=extractItem(args['sga'..sgval] or '','image:')
if sgval=='1' and not args.sga1 then line='circle,12px,blue,0deg' end -- ensure there is a parent=1 sga
result[sgval].shapeFile=filename or ''
-- sga= Attributes for shape
itemTab=splitItem(line,4)
result[sgval].shape = itemTab[1] or result[parent].shape
result[sgval].shapeSize=itemTab[2] or result[parent].shapeSize
result[sgval].shapeColor=itemTab[3] or result[parent].shapeColor
result[sgval].shapeAngle=itemCheck(itemTab[4],'deg') or result[parent].shapeAngle
-- sgb= Border outline attributes for shape
itemTab=splitItem(args['sgb'..sgval],3)
result[sgval].outlineWidth=itemCheck(itemTab[1],'px') or result[parent].outlineWidth
result[sgval].outlineColor=itemTab[2] or result[parent].outlineColor
result[sgval].outlineStyle=itemTab[3] or result[parent].outlineStyle
--sgc=character attributes for label
itemTab=splitItem(args['sgc'..sgval],4)
result[sgval].textSZ=itemCheck(itemTab[1],'px') or result[parent].textSZ -- size of text in px
result[sgval].textCL=itemTab[2] or result[parent].textCL -- colour for text
result[sgval].textNG=itemCheck(itemTab[3],'deg') or result[parent].textNG -- Angle for text
result[sgval].textAT=itemTab[4] or result[parent].textAT -- attributes bold, and/or italic
--sgd=dotTag attributes
itemTab=splitItem(args['sgd'..sgval],4)
result[sgval].tagSize=itemCheck(itemTab[1],'px') or result[parent].tagSize
result[sgval].tagColor=itemTab[2] or result[parent].tagColor
result[sgval].tagSpacer=itemCheck(itemTab[3],'px') or result[parent].tagSpacer
result[sgval].tagAngle=itemCheck(itemTab[4],'deg') or result[parent].tagAngle
--sge= extension line attributes
itemTab=splitItem(args['sge'..sgval],4)
result[sgval].textEW=itemCheck(itemTab[1],'px') or result[parent].textEW -- width
result[sgval].textEC=itemTab[2] or result[parent].textEC -- colour
result[sgval].textES=itemTab[3] or result[parent].textES -- style
--sgf= fx for label text
itemTab=splitItem(args['sgf'..sgval],4)
result[sgval].textSP=itemCheck(itemTab[1],'px') or result[parent].textSP -- spacing value for letters
result[sgval].textLH=itemCheck(itemTab[2],'%') or result[parent].textLH -- Angle for text
result[sgval].textOL=itemCheck(itemTab[3],'px') or result[parent].textOL -- width of text-border line
result[sgval].textBG=itemTab[4] or result[parent].textBG -- color for text background

return result
end

local function round(x,dec)
-- x=number [, dec=integer] returns numeric value with upto dec decimals (all but first trailing zeros get truncated)
if (dec or 0)==0 then
return x>=0 and math.floor(x+0.5) or math.ceil(x-0.5) --this avoids .0 where dec=0
end
dec =10^(dec)
return x>=0 and math.floor(x*dec+0.5)/dec or math.ceil(x*dec-0.5)/dec
end

local function maptogrid(t,r,test)
--[[ converts mercator projection longitude and latitude coordinates to x and y pixel coordinates, within a frame of given size, centre coordinates and zoom level.
t is a table of named indices: {lon, lat, lonbase, latbase, width, height, zoom}
output is two values, x and y, rounded to r decimal places--]]
local x,y
x=t.width/2 + ( ((math.rad(t.lon)*6378137) - (math.rad(t.lonbase)* 6378137) ) / (156543.03*math.cos(t.latbase/180)/(2^t.zoom) ) )*(1-(0.075*(math.abs(t.latbase)/90)))
y=t.height/2 + ( ( (math.log(math.tan(math.rad(t.latbase)/2+math.pi/4))*6378137) - (math.log(math.tan(math.rad(t.lat)/2+math.pi/4))*6378137) ) / (156543.03*math.cos(t.latbase/180) / (2^t.zoom) ) )*(1-(0.075*(math.abs(t.latbase)/90)))
return round(x,r),round(y,r)
--source: python code at https://wiki.openstreetmap.org/wiki/Slippy_map_tilenames and https://wiki.openstreetmap.org/wiki/Mercator
--[[
width and height are the size, in pixels, of the map, which will be centerd around lonbase,latbase.
Method: Convert lon and lonbase to meter-offsets from coord(0,0), and subtract lonbase from lon,
zoom and latbase are used to scale the resulting meter-offset to pixels, and add it to width/2.
Convert lat and lat-base to meter-offsets from coord(0,0), subtract lat from latbase,
scale the resulting meter-offset to pixels, add it to height/2.
A correction factor '*(1-(0.075*(math.abs(t.latbase)/90) ) )' compensates for an error that seems to creep in towards
the edges of the map at higher latitudes. It was identified experimentally, and ensures a dot at the edge is
in the same place as if that location is positioned at the centre.

Original Python code for lat,lon to x,y where 0,0 is the centre of the map
print('x=',width+(((math.radians(lon1) * 6378137)-
(math.radians(lonbase) * 6378137))/
(156543.03*math.cos(latbase/180)/(2**zoom))),' y=',height+((
(math.log(math.tan(math.pi / 4 + math.radians(latbase) / 2)) * 6378137)-
(math.log(math.tan(math.pi / 4 + math.radians(lat1) / 2)) * 6378137))/
(156543.03*math.cos(latbase/180)/(2**zoom)))
) --]]
end

local function getScale(zoom, lat,magVal)
zoom = tonumber(zoom) or 1
lat = tonumber(lat) or 0
if magVal and magVal>1 and magVal <=2 then zoom=zoom+(magVal-1) end
local dist=(156543.03 * math.cos(math.rad(math.abs(lat))) / (2 ^ zoom))/17
local y
if dist < 1 then
y=(round(dist*10,1))
return tostring(y*100)..metres, tostring(round(y*109,0))..yards
elseif dist <18 then
y=(round(dist,0))
return tostring(y)..km, tostring(round(y*0.621371,1))..miles
elseif dist <500 then
y=round(dist/10)
return tostring(y*10)..km, tostring(round(y*6.21371,0))..miles
else
y=round(dist/100)
return tostring(y*100)..km, tostring(round(y*62.1371,0))..miles
end
end

local function ParseData (args,dotval) -- for use with compressed, comma-separated 'sg plus dots' parameters
-- takes a structured series of comma-separated items which get parsed as the following:
-- dot(n)= (sgNumber or Name),{{coord}} or (lat,lon), (dotTag)
-- dotlink(n) = single-parameter text to give wikilink and/or title used by tootlip, fullscreen dots and autocaption list
-- dotlabel(n) = 'label text',pos(left,roght,top,bottom,centre,auto),(dx), (dy) pixel offsets, params, info
-- dotpic(n) = single parameter wikimedia filename for an image to use in photopanel and/or fullscreen dots
-- dotfeature(n)= 'mark-line' (,linewidth,style,gap) or 'photo-panel' (,image-dim,panel-width,panel-height), draws line to n-1
-- label is used if either a position and/or an x,y offset are not 0,0 ( if no label then dotTag will be put at at the x,y offset, or over the dot
-- label text can be autoaligned if x,y puts it left or right of the dot, or centered if above/below)
-- quote marks are not needed unless including commas within the label text
-- param1 is optional items separated by spaces, and can include [nolabel nolist nomap hemisphere+1 hemisphere-1]
-- info is free wikitext, to be used in the fullscreen dot box. (use dotpic to show a picture)

--
local result={}
local count=1
local row = convertCoords (args["dot"..dotval]) -- swap in any {{coord}} values so they are csv lat and lon
row=fillCommas(row,4)
result.code=dotval -- store the parameter name as the id code
for item in string.gmatch(row,"[^,]+") do -- iterate through 'row', adding each csv item in turn, if present
if count==1 then --see if it is a number or a name
local pos= string.find(item,"%d+")
if pos == 1 then
result.group=string.lower(string.gsub(item,"%s+",""))
else
item=string.match(item,"(%w+)(.*)") -- ensure just a single word
result.group=sgNames[item]
end
elseif count==2 then
result.lat=tonumber(string.match(item,"[%.%-?%d]+")) or 0-- find the number, with no non-numeric stuff
elseif count==3 then
result.lon=tonumber(string.match(item,"[%.%-?%d]+")) or 0
elseif count==4 then
result.dotTag=item:match( "^%s*(.-)%s*$" ) or "" -- dotTag allows for internal spaces, but no commas
end
count=count+1
end
row, result.labelText= extractItem(args["dotlabel"..dotval])
result.labelText= string.gsub(result.labelText,"[%^]+","<br>") -- convert hats to line breaks
local item=splitItem(row,6)
result.labelPos=item[2] or 'center'
result.dx=tonumber(string.match(item[3] or '0',"[%.%-?%d]+")) or 0
result.dy=tonumber(string.match(item[4] or '0',"[%.%-?%d]+")) or 0
result.param1=string.lower(item[5] or '')
if string.find(result.param1,"hemisphere-1",1,true) then result.lon=result.lon-360
elseif string.find(result.param1,"hemisphere+1",1,true) then result.lon=result.lon+360
end
local txt = ''
if item[6] then -- ensure all info elements are included, including commas
count=1
local max=6
for t1 in string.gmatch(fillCommas(row,max),"[^,]+") do
if count>max then txt=txt..',' end
if count>=max then txt=txt..t1 end
count=count+1
end
end
result.info=txt
result.imageName = args['dotpic'..dotval]
-- Get first wikilinked item (if any) from the args.dotlink and set this plus the delinked text
local testx=args["dotlink"..dotval] or ''
result.dotLink=testx
if testx ~= '' then
testx=stripdivs(testx)
result.title=delink({ testx })
local linkstart= string.find(testx,'[[',1,true) -- use true to ensure a plain search (no pattern)
if linkstart then
result.dlink=delink( { string.sub(testx,linkstart,string.find(testx,']]',1,true)+1),wikilinks='target' } )
else result.dlink=''
end
else
result.dlink=''
result.title=''
end
if args['dotfeature'..dotval] then
local item=splitItem(args['dotfeature'..dotval],6)
if (item[1] or '') =='photo-panel' then
result.ppwidth= tonumber(string.match((item[3] or '110'),"%d+")) -- panel width
result.ppheight= tonumber(string.match((item[4] or '48'),"%d+") ) --panel height
result.photowidth=round(tonumber(string.match((item[2] or '1.3'),"[%.%-?%d]+")) * result.ppheight+1,0) -- dimension to set image size
result.photoImage=result.imageName
result.posType='photo-panel'
elseif (item[1] or '') == 'mark-line' then
local x=tonumber(dotval or '0')
result.markDest=item[5] or tostring(x-1)
result.mlWidth= tonumber(string.match((item[2]) or '',"%d+") or '1')
result.mlStyle= item[3] or 'solid'
result.mlGap=tonumber(string.match((item[4] or ''),"[%d]+") or '0')
result.posType='mark-line'
end
--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))
end

maplist.lon=result.lon
maplist.lat=result.lat
result.gridx, result.gridy = maptogrid(maplist,1) -- convert geo coords to grid xy - using values from maplist table
return result
end

local function multiCheck (args, argName, argVal, defVal, alt)
if not alt then alt='nonexistant' end
if argVal=='H' and not args[argName..'H'] then argVal=highlightNum or '1' end
if argVal=='' then
return (args[argName] or args[alt] or (args[argName..'D']) or args[alt..'D'] or defVal) -- unnumbered args do not inherit from D or 1
else
return (args[argName..argVal]) or (args[alt..argVal]) or (args[argName..'D']) or (args[alt..'D']) or (args[argName..'1']) or (args[alt..'1']) or defVal
end
end

local function htmlTableLine (htmlTable,h1,h2,h3,h4,h5,type)
if type == 'header' then
if (h4 or '') ~= 'no-year' then h4='<th class="unsortable">'..h4 or ''..'</th>' else h4 = '' end
if (h5 or '') ~= '' then h5='<th class="unsortable">'..h5..'</th>' else h5 = '' end
return htmlTable..'<tr><th>'..(h1 or '')..'</th><th>'..(h2 or '')..'</th><th>'..(h3 or '')..'</th>'..h4..h5..'</tr>'
else
if (h4 or '') ~= 'no-year' then h4='<td>'..h4 or ''..'</td>' else h4 = '' end
if (h5 or '') ~= '' then h5='<td>'..h5..'</td>' else h5 = '' end
return htmlTable..'<tr><td>'..(h1 or '')..'</td><td>'..(h2 or '')..'</td><td>'..(h3 or '')..'</td>'..h4..h5..'</tr>'
end
end

local function formatInt(number)
if number == 0 then return notFound end
local i, j, minus, int, fraction = tostring(number):find('([-]?)(%d+)([.]?%d*)')
int = int:reverse():gsub("(%d%d%d)", "%1,")
return minus .. int:reverse():gsub("^,", "") .. fraction
end

local function convertToSqKm (value,punit)
if string.find(punit, 'Q35852') then value = value / 100 -- convert to sq km if it's hectares
elseif string.find(punit, 'Q232291') then value = value /(1/2.59) -- or this if it's square miles
elseif string.find(punit, 'Q81292') then value = value / 247.1 -- or this if it's acres
end
return value
end

local function assignTradstyleShape(shapeResult,default,dotResult,args,nval)
local item,itemTab
local autoDotTag=''
local shapeWidth,shapeHeight=0,0
local argval=nval -- to catch the unnumbered shape series
local qvalue=''
if argval=='0' then argval='' end
if nval=='H' then shapeResult.H={} end

-- Assign autovalues if a wikidata Qvalue has been supplied
-- some preliminary documentation
-- geo-data-type= default is P1082 (population)
-- other options might include number of households (P1538) and per capita income (P10622) or land area (P2046)
-- geo-data-list= this is a comma-separated list of Q values, for a manually generated list that doesn't require nymbered parameters
-- geo-scalefactor = can enlarge or shrink all the dots in proportion, depending an what the map needs
-- geo-region = needs to be a Qvalue of the larger administrative region that the settlements/sub-regions are in
-- geo-sub-region needs to be a Pvalue, but will default to P150 (some pages use 'has parts' = P527)
-- geo-data3= etc numbered Qvalue item, if used in conjunction with other shape/label parameters
-- shapeD= sets default shape, which migh be n-circle to include numbers.
-- geo-number-size= will give a fixed size for shape numbers. (defaults to 12 when using proportional dots)
-- geo-boundaries= if set to 1 will add any Qvalues for the sub-regions to 'map-data-light'.
-- show-geo-dots= to use proportional dots. Will be fixed size if 0. (set mark-sizeD=0 to have no dot at all, eg to show labels or boundaries)
-- find-geo-dots=1 or 0 (needs to also include geo-region)
-- label-posD = gets additional options: [off] gives no label, [on] will position lower centre,
-- [on+] includes numeric values beside/below label, [on^] will always put it below. [on-] always puts values beside
if args['geo-data'..argval] then -- and (args['mark-title'..argval] or '') ~= 'none' then
local pvalue = args['geo-data-type'] or 'P1082'
local plabel = mw.wikibase.getLabel(pvalue)
if not args['geo-number-size'] then args['geo-number-size']=12 end
if not args['label-posD'] then args['label-posD'] = 'on' end
qvalue=args['geo-data'..argval]
-- total poulation is a Qvalue wikidata page entry, or add up all the geo-data values or use a random 10000
local region = args['geo-region'] -- or mw.wikibase.getEntityIdForCurrentPage()
local thisPop=0
local areatxt=''
local yearVal=''
if mw.wikibase.getBestStatements(qvalue,pvalue)[1] then
thisPop=tonumber(mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.amount) or 0
if pvalue == 'P2046' then -- area, so convert from ha to sq km if needed (/100)
thisPop = convertToSqKm(thisPop, mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.unit)
end
if mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers and mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers.P585 then
yearVal = mw.wikibase.getBestStatements(qvalue,pvalue)[1].qualifiers.P585[1].datavalue.value.time
if yearVal then yearVal = yearVal:sub(2,5) end -- wikidata reports an entire date and time, so extract the year
end
else
debugmsg(mw.addWarning(mw.wikibase.getLabel(qvalue)..' ('..qvalue..') has no recorded '..plabel))
end
local scalefactor=args['geo-scalefactor'] or 1
if argval=='1' and args['mark-size1'] and not args['mark-sizeD'] then args['mark-sizeD'] = args['mark-size1'] end
if argval=='1' and args['label-pos1'] and not args['label-posD'] then args['label-posD'] = args['label-pos1'] end
if not args['mark-size'..argval] then
if args['show-geo-dots'] == '0' then
args['mark-size'..argval] = args['mark-sizeD'] or '1' -- just use a 'point' for the label to attach to
else
if thisPop>0 then
args['mark-size'..argval] = round(math.sqrt(thisPop/geoTotalPop*100) * 8 * scalefactor,0)
else
args['mark-size'..argval] = args['mark-sizeD'] or '1'
args['shape-outline'..argval]=args['shape-outline'..argval] or args['shape-outlineH']
end
end
end
local posTemp=string.lower(multiCheck(args,'label-pos',argval,'on'))
args['label-pos'..argval] = posTemp
posTemp=splitItem(posTemp,2)[1]
if pvalue == 'P2046' then
thisPop = round(thisPop,2)
areatxt=sqkm..areatxt -- round decimals if sq km area
elseif pvalue == 'P10622' then
if mw.wikibase.getBestStatements(qvalue,pvalue)[1] then
local punit=(mw.wikibase.getBestStatements(qvalue,pvalue)[1].mainsnak.datavalue.value.unit or ''):match("Q.*") -- extract Q value
if punit == 'Q4917' then areatxt=' US$'
elseif punit == 'Q4916' then areatxt=' euro'
elseif punit == 'Q25224' then areatxt=' £GBP'
else areatxt=mw.wikibase.getLabel(punit)..areatxt
end
end
end
if posTemp=='off' then
else
if not args['label'..argval] then args['label'..argval] = mw.wikibase.getLabel(qvalue) end
local tline=posTemp:find("[%+%^%-]")
if tline then
local tval=posTemp:sub(tline,tline)
local eline
posTemp=posTemp:sub(1,tline-1)
if posTemp == 'left' or posTemp == 'right' or string.find(posTemp,'east') or string.find(posTemp,'west') then
if tval == '^' then eline = '^' else eline = ' ' end -- only add line break if 'forced', used for left/right
elseif tval == '+' or tval == '^' then eline = '^' -- add linebreak unless 'forced' not to
else eline = ' ' -- must be a dash, so no line break
end
args['label'..argval] = args['label'..argval]..eline..'('..formatInt(thisPop)..')'
args['label-pos'..argval] = posTemp..args['label-pos'..argval]:sub(tline+1,#args['label-pos'..argval])
end

end
if posTemp=='on' then
if argval=='1' and (not args.ldyD) then args.ldyD = args['ldy'..argval] or '0' end
if not args['ldy'..argval] then args['ldy'..argval] = args.ldyD end -- ensure ldy for that dot is added to the position
args['label-pos'..argval]='center'
local _,br = string.gsub(args['label'..argval],'%^','')
local item=splitItem(args['label-size'..argval],2)
args['ldy'..argval] = (args['ldy'..argval] or 0) + ((item[1] or 11) * ((br+1)*0.6)) + ((args['geo-number-size'] or 12) / 2)
end
local nt=''
if args['mark-title'..argval] == 'nolist' then nt='nolist,' end
if not args['mark-title'..argval] or args['mark-title'..argval] == '' or args['mark-title'..argval] == 'nolist' then
if mw.wikibase.getSitelink(qvalue) then
args['mark-title'..argval] = nt..'[['..mw.wikibase.getSitelink(qvalue)..']]'
else
args['mark-title'..argval] = nt..mw.wikibase.getLabel(qvalue)
end
end -- If mark-title is not set locally then attempt Sitelink value, or use label
if thisPop == 0 then areatxt='' end
captionTableText[argval]={}
captionTableText[argval][1]= args['mark-title'..argval]
captionTableText[argval][2]= formatInt(thisPop)
if maplist.width >= 280 then captionTableText[argval][3]= yearVal else captionTableText[argval][3]='no-year' end
if args['show-q-values'] == '1' then
captionTableText[argval][4]='<small>[[wikidata:'..qvalue..'|'..qvalue..']]</small>'
else
local nbsp = ' '
if maplist.width < 230 then nbsp = ' ' end
captionTableText[argval][4]=''
if captionTableText[argval][3] == 'no-year' then
captionTableText[argval][2] = captionTableText[argval][2]..'<small><sup>'..nbsp..'[[wikidata:'..qvalue..'|WD]]</sup></small>'
else
captionTableText[argval][3] = captionTableText[argval][3]..'<small><sup>'..nbsp..'[[wikidata:'..qvalue..'|WD]]</sup></small>'
end
end

if args['mark-title'..argval] == 'none' then
-- no title
else
args['mark-title'..argval] = args['mark-title'..argval]..' ('..plabel..' '..formatInt(thisPop)..areatxt..')'
end
if not args['mark-description'..argval] then args['mark-description'..argval] = (mw.wikibase.getDescription(qvalue) or '')..'<br>' end
if (not args['mark-image'..argval]) and (mw.wikibase.getBestStatements(qvalue,'P18')[1]) then
args['mark-image'..argval] = mw.wikibase.getBestStatements(qvalue,'P18')[1].mainsnak.datavalue.value
end
item = multiCheck(args,'shape',argval,'circle') --default to circle if geo-data
if not string.find(item,'svgpath,') then item=string.lower(item) end -- ensure svgpath items retain original case values
else
item = multiCheck(args,'shape',argval,'image')
if not string.find(item,'svgpath,') then item=string.lower(item) end -- ensure svgpath items retain original case values
end
if string.find(item,'n-',0,true)==1 or string.find(item,'l-',0,true)==1 then
autoDotTag=string.sub(item,0,1)
item=string.sub(item,3)
end
if item == 'image' then
shapeResult[nval].shape = 'image:'
shapeResult[nval].shapeFile =multiCheck(args,'mark',argval,'Red pog.svg')
shapeWidth=-1
else shapeResult[nval].shape = item
end
item= multiCheck(args,'mark-size',argval,(shapeResult[nval].shapeSize or '14px')) -- add geo-data as fallback if already assigned
local a,b,c= getsize(string.gsub(string.gsub(item,',','px')..'px','pxpx','px'))
if b==a and args['mark-dim'..argval] then
b= b / tonumber(string.match(args['mark-dim'..argval],"[%.%-?%d]+"))
end
shapeHeight=b/2
item=tostring(a)..'px'..tostring(b)..'px'..tostring(c)..'px'
shapeResult[nval].shapeSize= item
itemTab=splitItem(multiCheck(args,'shape-color',argval,'hard red'),2)
shapeResult[nval].shapeColor=itemTab[1] or 'hardred'
item=itemCheck(itemTab[2],'%') -- jump through the various opacity hoops and add to color if needed
if not item then item=itemCheck(args['shape-opacity'..argval],'%') end
if item and item~='0%' and item~='100%' then shapeResult[nval].shapeColor=shapeResult[nval].shapeColor..item end
shapeResult[nval].shapeAngle=itemCheck(multiCheck(args,'shape-angle',argval,'0'),'deg') or '0deg'
if args['shape-angle'..argval] then shapeResult[nval].shapeAngleArg=true else shapeResult[nval].shapeAngleArg=false end
--sort out the outline entry
itemTab=splitItem(multiCheck(args,'shape-outline',argval,'transparent,0,100,solid'),4)
shapeResult[nval].outlineColor=itemTab[1] or 'dark grey'
shapeResult[nval].outlineWidth=itemCheck(itemTab[2],'px') or '1px'
if itemTab[3] and itemTab[3]~='100' and itemTab[3]~='0' then
shapeResult[nval].outlineColor=shapeResult[nval].outlineColor..itemCheck(itemTab[3],'%')
end
shapeResult[nval].outlineStyle=itemTab[4] or 'solid'
-- label size, background, outline
shapeResult[nval].textAT=args['label-attribute'..argval] or ''
itemTab=splitItem( multiCheck(args,'label-size',argval,'12'),3)
shapeResult[nval].textSZ=itemCheck(itemTab[1],'px') or '12px'
if itemTab[2]=='outline' then
shapeResult[nval].textBG=itemTab[3] or 'transparent'
shapeResult[nval].textOL='1px'
elseif itemTab[3]=='outline' then
shapeResult[nval].textBG=itemTab[2] or 'transparent'
shapeResult[nval].textOL='1px'
else shapeResult[nval].textOL='0px'
shapeResult[nval].textBG=itemTab[2] or 'transparent'
end
if getColor(shapeResult[nval].textBG)==CTB['hardgrey'] and shapeResult[nval].textBG~='hardgrey' then shapeResult[nval].textBG= 'transparent' end
--label color etc
itemTab=splitItem(multiCheck(args,'label-color',argval, 'darkgrey','label-colour'),2)
shapeResult[nval].textCL=itemTab[1] or 'darkgrey'
if itemTab[2] and itemTab[2]~='0%' and itemTab[2]~='100%' then shapeResult[nval].textCL=shapeResult[nval].textCL..itemTab[2] end
shapeResult[nval].textSP=itemCheck( multiCheck(args,'label-spacing',argval,'0'),'px') -- sets letter-spacing in px
shapeResult[nval].textLH=itemCheck( multiCheck(args,'label-height',argval,'120'),'%') -- sets line height, 120% default
shapeResult[nval].textNG=itemCheck(multiCheck(args,'label-angle',argval,'0'),'deg')
if args['label-angle'..argval] then shapeResult[nval].textNGarg=true else shapeResult[nval].textNGarg=false end
--sgd=dotTag attributes
shapeResult[nval].tagSize=(args['geo-number-size'] or tostring(shapeHeight*1.5))..'px'
local c1,c2=checkColors(shapeResult[nval].shapeColor)
shapeResult[nval].tagColor=c2
shapeResult[nval].tagSpacer='0px'
shapeResult[nval].tagAngle='0deg'
-- sge extension line attributes
local shapePos=splitItem(multiCheck(args,'label-pos',argval,'right'),6)
if shapePos[2]=='with-line' or shapePos[2]=='n-line' then
shapeResult[nval].textEW=(shapePos[3] or '1')..'px' -- width
shapeResult[nval].textEC=(shapePos[4] or shapeResult[nval].shapeColor or 'darkgrey')
elseif shapePos[2]=='photo-panel' then
shapeResult[nval].textEW='2px' -- width
shapeResult[nval].textEC=shapeResult[nval].textCL
else
shapeResult[nval].textEW='0px' -- width
shapeResult[nval].textEC='grey'-- colour
end
shapeResult[nval].textES='solid'
if argval=='H' then return dotResult end
--Assign dot values
local dotItem={}
dotItem.group=nval
dotItem.code=nval
dotItem.posType=shapePos[2] or 'nil'
if (shapePos[2] or '') =='photo-panel' then
dotItem.ppwidth= tonumber(string.match((shapePos[4] or '110'),"%d+"))
dotItem.ppheight= tonumber(string.match((shapePos[5] or '48'),"%d+") )
dotItem.photowidth=round(tonumber(string.match((shapePos[3] or '1.3'),"[%.%-?%d]+")) * dotItem.ppheight+1,0)
dotItem.photoImage=args['mark-image'..argval]
--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))
end
if (shapePos[2] or '') =='mark-line' then
local x=tonumber(argval or '1')
dotItem.markDest=shapePos[6] or tostring(x-1)
dotItem.mlWidth= tonumber(string.match((shapePos[3] or '1'),"%d+"))
dotItem.mlStyle= shapePos[4] or 'solid'
dotItem.mlGap=tonumber(string.match((shapePos[5] or '0'),"[%d]+"))
shapeResult[nval].textEC=shapeResult[nval].outlineColor or 'darkgrey'
end
if args['mark-coord'..argval] then
itemTab=splitItem(convertCoordsTrad (args['mark-coord'..argval]),2)
if itemTab[1] == nil or itemTab[2] == nil then
debugmsg(mw.addWarning('Unable to read coordinates for mark-coord'..argval))
else
dotItem.lat=tonumber(string.match(itemTab[1],"[%.%-?%d]+")) or 0
dotItem.lon=tonumber(string.match(itemTab[2],"[%.%-?%d]+")) or 0
end
else
dotItem.lat=tonumber(string.match(args['mark-lat'..argval],"[%.%-?%d]+")) or 0
dotItem.lon=tonumber(string.match(args['mark-lon'..argval],"[%.%-?%d]+")) or 0
end
if args['dateline'..argval] and (args['dateline'..argval]=='1' or args['dateline'..argval]=='-1') then
dotItem.lon=dotItem.lon+(tonumber(args['dateline'..argval] ) *360)
end
maplist.lon=dotItem.lon
maplist.lat=dotItem.lat
dotItem.gridx, dotItem.gridy = maptogrid(maplist,1)

local item=args['mark-title'..argval] or '' -- sort out the caption, wikilink and plaintext tooltip items from dotLink
if item=='none' then dotItem.param1='nomap nolist' item='' end
if string.find(item,'nolist') then dotItem.param1='nolist,' item = string.sub(args['mark-title'..argval],8) or args['label'..argval] end
dotItem.dotLink=item
if item ~= '' then
item=stripdivs(item)
dotItem.title=delink({item})
local linkstart= string.find(item,'[[',1,true) -- use true to ensure a plain search (no pattern)
if linkstart then
dotItem.dlink=delink({string.sub(item,linkstart,string.find(item,']]',1,true)+1),wikilinks='target'})
-- debugmsg('dlink for '..item..' is '..dotItem.dlink)
else dotItem.dlink=''
end
else
dotItem.dlink=''
dotItem.title=''
end
if autoDotTag=='n' then item=nval
elseif autoDotTag=='l' then item=string.char(64+tonumber(nval))
else item='' end
dotItem.dotTag = args['numbered'..argval] or item
if shapePos[2]=='n-line' and (args['label'..argval] or args['label'..argval]=='') then
if dotItem.dlink =='' then
item=dotItem.dotTag..' '..args['label'..argval]
else
item='[['..dotItem.dlink..'|'..dotItem.dotTag..']] '..args['label'..argval]
end
else item=(args['label'..argval] or '') end
if args['labela'..argval] then item = item..'^'..args['labela'..argval] end
if args['labelb'..argval] then item = item..'^'..args['labelb'..argval] end
local a='' for c in item:gmatch('.') do a=a..(c:gsub('%^','<br>') or c) end
dotItem.labelText = a -- convert hats to line breaks
if argval=='' then item = (args['label-offset-x']) or (args.ldx) or '0'
else item=args['label-offset-x'..argval] or args['ldx'..argval] or args['label-offset-xD'] or args.ldxD or args['label-offset-x1'] or args.ldx1 or '0'
end
dotItem.dx=tonumber(string.match(item,"[%.%-?%d]+"))
if argval=='' then item = (args['label-offset-y']) or (args.ldy) or '0'
else item=args['label-offset-y'..argval] or args['ldy'..argval] or args['label-offset-yD'] or args.ldyD or args['label-offset-y1'] or args.ldy1 or '0'
end
dotItem.dy=tonumber(string.match(item,"[%.%-?%d]+"))
dotItem.labelPos=shapePos[1]
if args['mark-image'..argval] then dotItem.imageName= args['mark-image'..argval] end
dotItem.info=args['mark-description'..argval] or ''
table.insert(dotResult,1,dotItem) -- add to start of list, so they are in reverese order for displaying
-- debugmsg(dotItem.code..' = '..dotItem.lat..','..dotItem.lon..': '..dotItem.labelText..' - '..dotItem.title..', '..shapeResult[nval].shapeSize)
return dotResult
end

local function tradstyleParseShapes(args,dotTable,dotmax)
local sgNumbers,sgSortable={},{}
for argindex=1,dotmax do -- build a list of all the numbered coords or lat,lons that have been used
local x=tostring(argindex)
if args['geo-data'..x] and (not args['mark-coord'..x]) and (not args['mark-lat'..x]) then
-- get lat and lon values from wikidata and put them into the args.lat and args.lon for use wherever needed
if (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1]) then
args['mark-lat'..x] = (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1].mainsnak.datavalue.value.latitude) or '0'
args['mark-lon'..x] = (mw.wikibase.getBestStatements(args['geo-data'..x],'P625')[1].mainsnak.datavalue.value.longitude) or '0'
local p=args['geo-data-type'] or 'P1082'
if mw.wikibase.getBestStatements(args['geo-data'..x],p)[1] then
local n = tonumber(mw.wikibase.getBestStatements(args['geo-data'..x],p)[1].mainsnak.datavalue.value.amount) or 0
if p == 'P2046' then -- area, so convert to sq km if needed (/100)
n = convertToSqKm( n, mw.wikibase.getBestStatements(args['geo-data'..x],p)[1].mainsnak.datavalue.value.unit)
end
geoTotalPop = geoTotalPop + n
end
else debugmsg(mw.addWarning('could not find coords for '..mw.wikibase.getLabel(args['geo-data'..x])..', '..args['geo-data'..x]))
end
end
if args['mark-coord'..x] or (args['mark-lat'..x] and args['mark-lon'..x]) then
sgNumbers[x]=x -- add it to the list
end
end
for indx,sgnum in pairs(sgNumbers) do table.insert(sgSortable,sgnum) end
table.sort(sgSortable,lessthan) -- put the list in a sortable form (needs a second table, seemingly)
if args['mark-coord'] or (args['mark-lat'] and args['mark-lon']) then table.insert(sgSortable,'0') end -- add it to the end of the list
local default={} default.D={}
local dotResult={}
for k,sgnum in pairs(sgSortable) do -- work through the sorted list, parsing each set of shapes in turn, from 1 upwards
shapeList[sgnum]={}
dotTable=assignTradstyleShape(shapeList,default,dotTable,args,sgnum)
end
dotTable=assignTradstyleShape(shapeList,default,dotTable,args,'H') -- construct an extra highlight shapeitem
local unitConvert=1
local areaUnits=''
if args['geo-region'] and (args['find-geo-dots'] or '1') ~= '0' then
local region = args['geo-region'] -- or mw.wikibase.getEntityIdForCurrentPage()
local pvalue = args['geo-data-type'] or 'P1082'
local plabel = mw.wikibase.getLabel(pvalue)
local subhead='' -- Assemble the subhead content, a line of text about the region as a whole
if region and mw.wikibase.getBestStatements(region,pvalue)[1] then
local punit=mw.wikibase.getBestStatements(region,pvalue)[1].mainsnak.datavalue.value.unit:match("Q.*") -- extract Q value
if pvalue == 'P10622' then -- add other currency-based pvalues here
areaUnits=mw.wikibase.getLabel(punit)
end
if punit == 'Q35852' then unitConvert=100 areaUnits = ' '..sqkm -- if its hectares, convert to sq km
elseif punit == 'Q232291' then unitConvert = (1/2.59) areaUnits = ' '..sqkm -- or this if it's square miles
elseif punit == 'Q81292' then unitConvert = 247.1 areaUnits = ' '..sqkm -- or this if it's acres
elseif punit == 'Q712226' then unitConvert = 1 areaUnits = ' '..sqkm -- or this if it's already sq km

elseif punit == 'Q4917' then areaUnits=' US$' -- replace long version with some shortform currencies ()
elseif punit == 'Q4916' then areaUnits=' euro'
elseif punit == 'Q25224' then areaUnits=' £GBP'
end
-- if pvalue == 'P2046' then
-- may need to add other instances of sq km so add in other P-items here if they need units showing
-- end
geoTotalPop=(mw.wikibase.getBestStatements(region,pvalue)[1].mainsnak.datavalue.value.amount) / unitConvert
local yearVal
if mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers then
yearVal = mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P585[1].datavalue.value.time
if yearVal and yearVal:sub(1,1) == '+' then yearVal = yearVal:sub(2,5)
if mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459 and mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459[1] then
local methodVal = mw.wikibase.getBestStatements(region,pvalue)[1].qualifiers.P459[1].datavalue.value.id
if methodVal then yearVal=yearVal..' '..mw.wikibase.getLabel(methodVal) end
end
yearVal = ' ('..yearVal..')'
else yearVal =''
end
end
subhead=totalItems..' '..mw.wikibase.getLabel(region)..' '..plabel..' ([[wikidata:'..region..']]) = '..formatInt(round(geoTotalPop),1)..areaUnits..yearVal
else
if pvalue == 'P2046' then areaUnits = sqkm end
subhead=totalItems..' '..mw.wikibase.getLabel(region)..' '..plabel..' ('..sumOfDatapoints..') = '..formatInt(round(geoTotalPop),1)..areaUnits
end
if maplist.width < 350 and #plabel > 4 then plabel=string.sub((plabel or ' '),1,3)..'.' end
if maplist.width < 330 then numberCol = ' ' end
if maplist.width < 280 then year = 'no-year' end
captionTable = subhead
if (args['show-q-values'] or '') ~= '1' then
captionTable = captionTable..'<div style="float:right;"><small> (WD = '..wikidataLink..')</small></div><br>'
wikidataLink=''
end
captionTable = captionTable..'<table class="wikitable plainrowheaders sortable mw-collapsible mw-collapsed" style="width: 100%;"><caption>'..(args.toggletext or toggletext)..' </caption>'
captionTable = htmlTableLine(captionTable,numberCol,mw.wikibase.getLabel(region),plabel..' '..areaUnits, year, wikidataLink,'header')
end
return dotTable
end

local function checkfortooltip (title,dx,dy,dotlabel,dlink,nolabel) -- returns tlink if available, and dlink, if needed and tshape=true if shape needed
local tshape,tlink = false,""
if dlink~='' and not nolabel then tlink=dlink end
if (tlink=="" or nolabel) and title~="" then tshape=true end -- tshape flags True if title is wanted for shape
if (not (dx==0 or dy==0) or dotlabel=='') and title~='' then tshape=true end -- add tooltip to shape if its number has moved
return tshape,tlink
end

local function tshift(angle) -- adjustment to place text near the centre of a triangle, shifted to allow rotation of triangle shape
local x=tonumber(string.match(angle,"%-?%d+"))
if x<0 then x=360+x end -- set to a single degree direction, 0 to 360
if x>359 then return 0,0 end
-- shift the centre of the triangle based on rotation value
if x <=40 or x>=320 then return -0.17,0 -- triangle up= -shiftv
elseif x>=140 and x<=220 then return 0.17,0 --triangle down= +shiftv
elseif x >220 then return 0,-0.17 --triangle left= -shifth
elseif x >40 then return 0,0.22 --triangle right= +shifth
end
return 0,0
end

local function makeTriangle(result,row,shape,outline,tlink)
local w,h,r=getsize(shape.shapeSize)
if outline then
local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
w=w+p*2
h=h+p*2
end
table.insert(result,'<div ')
if tlink then
table.insert(result,' title="'..row.title..'" ')
end
table.insert(result,'style="display:inline-block; position: absolute')
if shape.shapeAngle ~= '0deg' then
table.insert(result,'; transform: rotate('..shape.shapeAngle..')')
end
local shiftv,shifth=0,0
shiftv,shifth=tshift(shape.shapeAngle)
table.insert(result,'; top: '..tostring(row.gridy-h/2+h*shiftv)..'px')
table.insert(result,'; left: '..tostring(row.gridx-w/2+w*shifth)..'px; width: 0; height: 0; outline-width: 0px')
table.insert(result,'; border-left: '..tostring(w/2)..'px solid transparent')
table.insert(result,'; border-right: '..tostring(w/2)..'px solid transparent')
if outline then -- fill with outline colour, to make a 'base layer' or shape colour
table.insert(result,'; border-bottom: '..tostring(h)..'px solid '..getColor(shape.outlineColor).. '">')
else
table.insert(result,'; border-bottom: '..tostring(h)..'px solid '..getColor(shape.shapeColor).. '">')
end
table.insert(result,'</div>')
end

local function makeSquare(result,row,shape,tshape)
local w,h,r=getsize(shape.shapeSize)
if shape.shape=='square' then h=w end -- squares are always square!. box can stretch
local div=mw.html.create ('div')
if tshape then -- Add tooltip if needed
div:attr('title',row.title)
end
div:css('position', "absolute")
if shape.outlineWidth ~= "0px" then
div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
end
if shape.shapeAngle ~= "0deg" then
div:css('transform',"rotate("..shape.shapeAngle..")")
end
if r~=0 then div:css('border-radius',tostring(r).."px") end
if shape.shape=='panel' then
div:css('top', tostring(row.gridy).."px")
div:css('left', tostring(row.gridx).."px")
else
div:css('top', tostring(row.gridy-h/2).."px")
div:css('left', tostring(row.gridx-w/2).."px")
end
div:css('width', tostring(w).."px")
div:css('height', tostring(h).."px")
div:css('background-color', getColor(shape.shapeColor) )
div:css('color', 'inherit')
table.insert(result,tostring(div))
end

local function makeCircle(result,row,shape,tshape)
local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding
if shape.shape=='circle' then h=w end -- circles are always round. ellipse can stretch
local div=mw.html.create ('div')
if tshape then -- Add tooltip if needed
div:attr('title',row.title)
end
div:css('position', "absolute")
if shape.outlineWidth ~= "0px" then
div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
end
if shape.shapeAngle ~= "0deg" then
div:css('transform',"rotate("..shape.shapeAngle..")")
end
div
:css('top', tostring(row.gridy-h/2).."px")
:css('left', tostring(row.gridx-w/2).."px")
:css('width', tostring(w).."px")
:css('height', tostring(h).."px")
:css('border-radius', "50%")
:css('background-color', getColor(shape.shapeColor) )
:css('color', 'inherit')
table.insert(result,tostring(div))
end

local function makeRuleA(result,row,shape)
local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding
local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
local lineV=0
if shape.shape=='rulea' then lineV=oWid*3+16 end
table.insert(result,"<div style=\"display:inline-block; position: absolute") -- create a square transparent container, which will rotate line and arrow together
table.insert(result,"; top:"..tostring(row.gridy - w/2).."px")
table.insert(result,"; left:"..tostring(row.gridx - w/2).."px")
table.insert(result,"; width:"..tostring(w).."px")
table.insert(result,"; height:"..tostring(w).."px; background:transparent; color:inherit;")
table.insert(result,"; transform: rotate( "..tostring(tonumber(string.match(shape.shapeAngle,"[%.%-?%d]+")) - 90).."deg);\">" )
table.insert(result,"<div style=\"display:inline-block; position: absolute") -- put the line (as a border-right) across the container
table.insert(result,"; top:"..tostring(lineV).."px")
table.insert(result,"; left:"..tostring((w - oWid )/2).."px; width: 0px")
table.insert(result,"; height: "..tostring(w -lineV).."px")
table.insert(result,"; border-right: "..shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))
table.insert(result,"; background:transparent; color:inherit;\"></div>")
if shape.shape=='rulea' then
table.insert(result,"<div style=\"display:inline-block; position: absolute; top: 0px") --and add arrow head
table.insert(result,"; left:"..tostring(w/2-( oWid/2)-oWid*0.55-2).."px; width: 0; height: 0; outline-width: 0px")
table.insert(result,"; border-left: "..tostring(oWid*1.1+2).."px solid transparent")
table.insert(result,"; border-right: "..tostring(oWid*1.1+2).."px solid transparent")
table.insert(result,"; border-bottom: "..tostring(oWid*3+16).."px solid "..getColor(shape.outlineColor).."\"></div>")
end
table.insert(result,"</div>")
end

local function makeCurveA(result,row,shape) -- draw a curve with Arrow -----
local w,h=getsize(shape.shapeSize) -- = width,height
local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))
local Angle=tonumber(string.match(shape.shapeAngle,"[%.%d]+"))
table.insert(result,'<div style="position: absolute;') --set up out div, which will allow the whole to rotate
table.insert(result,'top:'..tostring(row.gridy - (w + oWid*3+16)/2)..'px;')
table.insert(result,'left:'..tostring(row.gridx - ( w + oWid*3+16)/2)..'px; ')
table.insert(result,'width: '..tostring(w+oWid*3+16)..'px; ')
table.insert(result,'height: '..tostring(w+oWid*3+16)..'px; ')
if shape.shape=='curvea' then
table.insert(result,'transform: rotate( '..tostring(Angle-120)..'deg);">')
else table.insert(result,'transform: rotate( '..tostring(Angle -62)..'deg);">')
end
table.insert(result,'<div style="position: absolute;') --set up div for the rounded corner of a rectangle
table.insert(result,'border-left: '..shape.outlineWidth..' '..shape.outlineStyle..' '..getColor(shape.outlineColor)..';')
if shape.shape=='curvea' then
table.insert(result,'border-radius: 10000px 0 0 '..tostring(w)..'px; top:0px; left:'..tostring(w*0.25)..'px;')
else
table.insert(result,'border-radius: '..tostring(w)..'px 0 0 10000px;')
table.insert(result,'top:'..tostring((oWid*3+16)/2+w*0.15)..'px; left:'..tostring(w*0.25)..'px;')
end -- and add a triangular arrow head
table.insert(result,'width: '..tostring(w)..'px; height: '..tostring(w)..'px;"></div><div style="position: absolute; ')
if shape.shape=='curvea' then
table.insert(result,'transform: rotate(180deg); top:'..tostring(w-1)..'px; ')
else table.insert(result,'transform: rotate(0deg); top: '..tostring(0-( ( oWid*3+16)/2)+1+( w*0.15) )..'px;')
end -- reverse
table.insert(result,'left:'..tostring(0-( oWid*0.6)-2+(w*0.25))..'px;')
table.insert(result,'width: 0; height: 0; outline-width: 0px; border-left: '..tostring(oWid*1.1+2)..'px solid transparent;')
table.insert(result,'border-right: '..tostring(oWid*1.1+2)..'px solid transparent;')
table.insert(result,'border-bottom: '..tostring(oWid*3+16)..'px solid '..getColor(shape.outlineColor)..';"></div></div>')
end

local function makeLineTo (result,x1,y1,x2,y2,oWid, oStyle, oCol,double,shape)
table.insert(result,"<div style=\"display:inline-block; position: absolute;")
-- draw a line between x1,y1 and x2,y2, px-coords where 0,0 is centre of frame
-- Maths calculations thanks to ES
local tw
if double <= 1 then
tw = tonumber(string.match(oWid,"[%.%d]+"))/2 -- shift centre by half the line width
else
tw = tonumber(string.match(oWid,"[%.%d]+")) + (double/2) - 0.5 -- shift centre by a line width + half the gap
end
-- debugmsg(oWid..'+'..double..'/2='..tw)
table.insert(result,"left: "..tostring(x1+( (x2-x1)/2) - (math.sqrt( ( x2-x1)^2 + (y2-y1)^2 )/2) ).."px;")
table.insert(result,"top: "..tostring(y1+( ( y2-y1 )/2) - tw).."px;")
table.insert(result,"width: "..tostring(math.sqrt( (x2-x1 )^2 + ( y2-y1 )^2) ).."px;")
table.insert(result,"height: "..tostring(double).."px; background-color:transparent; color:inherit; ")
table.insert(result,"outline-width: 0; border-bottom: "..oWid.." "..oStyle.." "..getColor(oCol)..";" )
if double>1 then table.insert(result,"border-top: "..oWid.." "..oStyle.." "..getColor(oCol)..";" ) end
local lineAngle=math.atan(( y2-y1)/( x2-x1 ) )*180/math.pi
-- if x1 == x2 then lineAngle=90 end
table.insert(result,"transform: rotate("..lineAngle.."deg);\"></div>")
-- debugmsg('text angle started as '..shape.textNG..' and lineAngle = '..lineAngle)
if (lineAngle < -90) or (lineAngle >90) then lineAngle=lineAngle-180 end
if shape and not shape.textNGarg then shape.textNG=tostring(round(lineAngle,0))..'deg' end -- Put in line angle for a default text angle as well
-- if (y2 >= y1) and (x2 <= x1) then lineAngle=lineAngle-180 debugmsg('arrow angle corrected') end
if x2 < x1 then lineAngle=lineAngle-180 end
if shape and not shape.shapeAngleArg and shape.shape == 'arrowhead' then shape.shapeAngle=tostring(round(lineAngle,0))..'deg' end -- line angle for arrowhead
-- debugmsg('text angle is now '..shape.textNG..'with arrow at '..lineAngle)
end

local function makeClipPath(result,row,shape,outline,tshape) --tshape is a flag to show if the tooltip (title=) is wanted
-- return the text css div code to position and draw a shape occupying a specified clippath
if string.find(shape.shape, 'svgpath,') and #shape.shape > 9 then
pathshape.svgpath=string.sub(shape.shape,9)
shape.shape='svgpath'
end
if not pathshape[shape.shape] then
debugmsg(mw.addWarning('shape'..row.code..' = '..shape.shape..'. The shape name is not defined'))
return
end
local w,h,r=getsize(shape.shapeSize)
if shape.shape == 'arrowhead' then -- enlarge arrowheads, as they only go to the middle of the notional shape-size
w=w*2.5
h=h*2.5
end
if string.match(shape.shape,"circle") or string.match(shape.shape,"square") then h=w end -- use ellipse and box for stretched shapes
local shifth,shiftv = 0,0
if string.match(shape.shape,"triangle") then
shiftv,shifth =tshift(shape.shapeAngle)
end
if outline then
local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+")) or 0
w=w+p*2
h=h+p*2
end
table.insert(result,"<div ")
if tshape then -- Add tooltip if needed
table.insert(result," title=\""..row.title.."\" ")
end
table.insert(result,"style=\"display:inline-block; position: absolute; background-color:")
if outline then
table.insert(result,getColor(shape.outlineColor)) -- fill with outline colour, to make a 'base layer'
else
table.insert(result,getColor(shape.shapeColor))
end
table.insert(result,"; color:inherit; clip-path:path(nonzero, '"..pathshape[shape.shape].."') ")
-- adds the required clippath data from the table of pathshape string literals
table.insert(result,"; top:"..tostring(row.gridy - 10 + h*shiftv).."px")
table.insert(result,"; left:"..tostring(row.gridx - 10 + w*shifth).."px")
table.insert(result,"; width:20px") -- needs to be a path within a 20px20px box, and then rescales using size values to match other shape sizes
table.insert(result,"; height:20px; transform:")
if shape.shapeAngle ~= "0deg" then
table.insert(result," rotate("..shape.shapeAngle..")")
end
table.insert(result," scale("..tostring(w/16)..", "..tostring(h/16)..")")
table.insert(result,"\"></div>")
end

local function makeImage(result,row,shape)
local w,h,r=getsize(shape.shapeSize)
local image=shape.shapeFile
if not image or image=='' then image='Red pog.svg' end
local imagediv=mw.html.create ('div')
imagediv:css('position', "absolute")
if shape.shapeAngle ~= "0deg" then
imagediv:css('transform',"rotate("..shape.shapeAngle..")")
end
imagediv
:css('top', (row.gridy+2 + math.min(h/2-12,0) - h/2).."px") --File seems to adjust pos for small images
:css('left', (row.gridx-1-w/2).."px")
:css('background-color', "transparent" )
:css('color','inherit')
:wikitext('[[file:'..image..'|'..tostring(w+2)..'px|alt='..(row.title or '')..'|link=]]')
table.insert(result,tostring(imagediv))
end

local function makePhotoPanel(result,row,shape)
local h=row.ppheight
table.insert(result, '<div style="position: absolute; top: '..tostring(row.gridy+row.dy-h/2)..'px;' )
table.insert(result, 'left: '..tostring(row.gridx+row.dx - row.ppwidth/2)..'px;')
table.insert(result, 'width: '..tostring(row.ppwidth)..'px; height: '..tostring(h)..'px; border-radius: 2px; color:inherit;')
table.insert(result, 'background-color: #E8E8D6; outline: 2px solid '..getColor(shape.textCL)..'; box-shadow: 2px 2px 4px #33203335;"></div>')
if row.photoImage and row.photowidth >0 then
table.insert(result, '<div style="position: absolute; top: '..tostring(row.gridy+row.dy-h/2)..'px;')
if row.labelPos=='left' or string.find(row.labelPos,'west') then
table.insert(result, 'left: '..tostring(row.gridx+row.dx - row.ppwidth/2)..'px;')
row.dx=row.dx+row.photowidth/2
else
table.insert(result, 'left: '..tostring(row.gridx+row.dx + (row.ppwidth-row.photowidth) - row.ppwidth/2)..'px;')
row.dx=row.dx-row.photowidth/2
end
table.insert(result, 'background-color:transparent; color:inherit; border-radius: 2px;">')
table.insert(result,'[[File:'..row.photoImage..'|x'..tostring(h)..'px|File:'..row.photoImage..']]</div>')
row.labelPos='center'
end
end

local function makePanelText(result, row, shape)
local w,h,r=getsize(shape.shapeSize)
local ty=tonumber(string.match(shape.textSZ or '11',"%d+") )
table.insert(result,'<div style="position:absolute; line-height: 120%; font-size: '..shape.textSZ..'; color:'..getColor(shape.textCL)..';')
if row.labelPos == 'left' or string.find(row.labelPos,'west') then
table.insert(result,'top: '..tostring(row.dy+row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+3)..'px; text-align: left; width:'..tostring(w)..'px;')
elseif row.labelPos == 'right' or string.find(row.labelPos,'east') then
table.insert(result,'top: '..tostring(row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+w-3)..'px; text-align: right; width: max-content; transform: translateX(-100%);')
elseif row.labelPos == 'top' or row.labelPos== 'north' then
table.insert(result,'top: '..tostring(row.gridy+(ty/3))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
elseif row.labelPos == 'bottom' or row.labelPos=='south' then
local bry=(select(2, string.gsub(row.labelText,"<br>", ""))+1)*1.1
table.insert(result,'top: '..tostring(row.gridy+w-(ty*bry))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
else -- center or centre
local bry=(select(2, string.gsub(row.labelText,"<br>", ""))+1)*0.6
table.insert(result,'top: '..tostring(row.gridy+(h/2)-(ty*bry))..'px;')
table.insert(result,'left: '..tostring(row.gridx+(w/2))..'px; text-align: center; width:max-content; transform: translateX(-50%);')
end
if shape.textSP and shape.textSP ~='0px' then table.insert(result,"letter-spacing: "..shape.textSP..';') end
if shape.textLH and shape.textLH ~='120%' then table.insert(result,"line-height: "..shape.textLH..';') end
table.insert(result,"vertical-align: middle;\">"..row.labelText.."</div>")
end

local function makeTextItem(result, row, shape, align, tlink, textItem, dotItem)
local w,h,r=getsize(shape.shapeSize)
table.insert(result,"<div ")
if row.title ~= "" then table.insert(result," title=\""..row.title.."\" ") end
local ty,bry,linkoffset = 0,0,0
local compy=0
local lh=tonumber(string.match(shape.textLH or '120',"%d+"))/100
if dotItem==1 or (dotItem==2 and row.posType~='n-line') then -- if there is a dotTag in the middle of the shape then use the tag settings
ty=tonumber(string.match(shape.tagSize,"%d+")) or 0
table.insert(result,"style=\"position:absolute; line-height: 120%; top: "..tostring(row.gridy-ty*0.62))
table.insert(result,"px; left: "..tostring(row.gridx).."px; width: fit-content; ")
table.insert(result,"text-align: center; color: "..getColor(shape.tagColor).."; background-color: transparent;")
local trf=""
if shape.tagAngle ~="0deg" then trf=" rotate("..shape.tagAngle..")" end
table.insert(result, "transform: translateX(-50%)"..trf.."; font-size: "..shape.tagSize..";")
if shape.tagSpacer~='0px' then table.insert(result, "letter-spacing:"..shape.tagSpacer..";") end
else -- or add tfx settings for left, right or center align, colors, backgrounds, border-outline
table.insert(result,'style="position:absolute; ')
if dotItem==2 then -- dotTag is out at x,y so 85%
ty=tonumber(string.match(shape.tagSize or '0',"%d+"))
table.insert(result,'font-size: '..shape.tagSize..'; padding:0px 2px;line-height: 85%; top: '..tostring(row.dy+row.gridy-ty*0.52))
else -- it is labelText, so use textLH or 120%
ty=tonumber(string.match(shape.textSZ or '11',"%d+"))
if row.labelPos=='northwest' or row.labelPos=='northeast' then compy=-ty
elseif row.labelPos=='southeast' or row.labelPos=='southwest' then compy=ty/2 end
if row.labelPos and not (row.labelPos== 'auto' or row.labelPos=='') then
bry=(select(2, string.gsub(row.labelText,"<br>", ""))*lh) -- is it a multiline text? expand by line-height /120%?
if row.posType == 'with-line' then bry=0 end
if row.labelPos=='bottom' or row.labelPos == 'south' then bry = 0 -- and shift by none, all or half
elseif row.labelPos=='top' or row.labelPos == 'north' then
if shape.shape=='image:' then bry= 1 + math.min(w/2-10,0)-bry*ty
else bry= -bry*ty+2
end
else bry=-bry*(ty/2 * lh)
end
end
if row.posType == 'photo-panel' then bry=bry+3 end
table.insert(result,'font-size: '..shape.textSZ..'; padding:0px 3px;line-height: '..shape.textLH..'; ')
table.insert(result,'top: '..tostring(row.dy+row.gridy+compy+bry-ty*lh/2))
end
table.insert(result,"px; left: "..tostring(row.dx+row.gridx).."px; color: "..getColor(shape.textCL).."; ")
table.insert(result,"width: max-content; ")
local trf=""
if shape.textNG ~="0deg" then trf="rotate("..shape.textNG..")" end
if shape.textOL~="0px" then
table.insert(result,"background-color: "..getColor(shape.textBG).."; ")
table.insert(result,"border: "..shape.textOL.." solid "..getColor(shape.textCL).."; border-radius:6px;")
else table.insert(result,"background-color: transparent;")
end
if row.labelPos=="right" or string.find(row.labelPos,'east') then
table.insert(result,"text-align: left; ")
linkoffset=w
if shape.textNG ~="0px" then table.insert(result,"transform-origin: left; transform: rotate("..shape.textNG.."); ") end
elseif row.labelPos=="left" or string.find(row.labelPos,'west') then
if shape.textNG ~="0px" then table.insert(result,"transform-origin: right;") end
linkoffset=-w
table.insert(result,"text-align: right; transform: translateX(-100%) "..trf.."; ")
else
table.insert(result,"text-align: center; transform: translateX(-50%) "..trf.."; ")
end
table.insert(result,'font-weight: normal; line-height: '..shape.textLH..'; letter-spacing:'..shape.textSP..'; vertical-align: bottom;')
end
if string.find(shape.textAT or '','bold') then textItem='<b>'..textItem..'</b>' end
if string.find(shape.textAT or '','italic') then textItem='<i>'..textItem..'</i>' end
if shape.textOL=='0px' and shape.textBG~='transparent' and dotItem==0 then
table.insert(result,'\"><span style=\"background-color: '..getColor(shape.textBG)..'; color:inherit;\">'..textItem..'</span></div>')
else
table.insert(result,"\">"..textItem.."</div>")
end
if tlink~='' and not string.match(row.param1 or "","nolink") then
table.insert(result,makeLinkBox(row.gridx+row.dx+linkoffset, row.gridy+row.dy+bry, 16, row.dotTag..' '..row.title,tlink))
end
end

local function getshapetable(row,shape) -- Construct CSS divs for a dot from shape and map data
local result={}
local w,h,rndg=getsize(shape.shapeSize)
local tshape,tlink=checkfortooltip(row.title,row.dx,row.dy,row.dotTag,row.dlink,string.match(row.param1 or "","nolink") )
local align=row.labelPos or ''
local offsetx,offsety=0,0
local ty=tonumber(string.match((shape.tagSize or 9),"%d+" ))
if row.labelText and row.labelText~='' then ty=tonumber(string.match((shape.textSZ or 11),"%d+" ))
else align='center' end -- it is just for dotTag, so justify center
-- identify align value and extend offsets
local widthzone,heightzone = (w/2)+1,(h/2)+1
local theta,r = math.deg( math.atan2(row.dy, row.dx)) , math.sqrt(row.dx^2 + row.dy^2)
if align=='auto' or align=='' then
if (theta < -112 or theta > 112) and math.abs(row.dx)>=w/2 and math.abs(row.dy)<w/1.4 then align = "left" offsetx=1
elseif (theta > -68 and theta < 68) and math.abs(row.dx)>=w/2 and math.abs(row.dy)<w/1.4 then align = "right" offsetx=-1
elseif theta <0 then offsety=ty/2-1 -- bottom
else offsety=0-ty/2+1 -- top
end
elseif align=='left' or string.find(align,'west') then
row.dx=row.dx - w/2 widthzone=4 offsetx=-1
elseif align=='right' or string.find(align,'east') then
row.dx=row.dx + w/2 widthzone=4 offsetx=1
elseif align=='top' or align=='north' then
if string.find(shape.shape,'curve') then
row.dy=row.dy-(h/2)-12 heightzone=4 offsety=ty/2-1
else
row.dy=row.dy - h-2 heightzone=4 offsety=ty/2-1
end
elseif align=='bottom' or align=='south' then
if string.find(shape.shape,'curve') then
row.dy=row.dy+(h/2) heightzone=4 offsety=ty/2-1
else
row.dy=row.dy + h+2 heightzone=4 offsety=0-ty/2-1
end
end
if shape.textEW ~= "0px" and not string.match(row.param1 or "","noline") then
-- debugmsg('r-(w/2) > widthzone r-w/2='..tostring(r-(w/2))..', widthzone='..widthzone..', label='..(row.labelText or '')..', postype='..(row.posType or ''))
makeLineTo(result, row.gridx+1, row.gridy-1, row.gridx+row.dx+offsetx, row.gridy+row.dy+offsety, shape.textEW, shape.textES,shape.textEC,1)
-- debugmsg('n-line for '..row.code..':'..tostring(row.gridx+1)..', '..tostring(row.gridy-1)..', '..tostring(row.gridx+row.dx+offsetx)..', '..tostring(row.gridy+row.dy+offsety)..', with width '..tostring(shape.textEW)..'px '..(shape.textES or 'no style')..' and color '..shape.textEC)
end
if row.posType and row.posType=='mark-line' then
if row.gridx2 and row.gridy2 then
makeLineTo(result, row.gridx, row.gridy, row.gridx2, row.gridy2, tostring(row.mlWidth)..'px', row.mlStyle, getColor(shape.textEC),row.mlGap,shape)
-- debugmsg('mark-line line drawn from '..row.code..' with width '..tostring(row.mlWidth)..'px '..(row.mlStyle or 'no style')..' and color '..getColor(shape.textEC))
end
end
if w ~= 0 then
if shape.shape=='itriangle' then shape.shape='triangle' shape.shapeSize=tostring(w)..'px'..tostring(w/2)..'px' end
if shape.shape=="triangle" then
if shape.outlineWidth ~= "0px" then
makeTriangle(result,row,shape,true,false) -- larger triangle to give the outline, if required
end
makeTriangle(result,row,shape,false,tshape) -- smaller triangle to fit over the top
elseif shape.shape=="square" or shape.shape=="box" or shape.shape=='panel' then
makeSquare(result,row,shape,tshape)
elseif shape.shape=="circle" or shape.shape=="ellipse" then
makeCircle(result,row,shape,tshape)
elseif string.find(shape.shape,'image:')==1 then
makeImage(result,row,shape)
elseif shape.shape=="rulea" or shape.shape=='rule' then
makeRuleA(result,row,shape)
elseif shape.shape=="curvea" or shape.shape=="curvec" then
makeCurveA(result,row,shape)
else -- use a pathshape clipPath
if shape.outlineWidth ~= "0px" then
makeClipPath(result,row,shape,true,false) -- larger path-shape to give the outline, if required
end
makeClipPath(result,row,shape,false,tshape)
end
end
if row.ppwidth and row.ppwidth>0 then makePhotoPanel(result,row,shape) end
if shape.shape=='panel' and row.labelText then makePanelText(result, row, shape)
else
if row.dotTag and row.dotTag ~= "" then -- there is a dotTag
if (row.dx==0 and row.dy==0) and w>0 then -- it is on the dot so if dotsize is not 0 any label is ignored
makeTextItem(result, row, shape, align, tlink, '<b>'..row.dotTag..'</b>', 1)
else
if row.labelText and row.labelText~='' then -- tag and label both used
makeTextItem(result, row, shape, align, '', '<b>'..row.dotTag..'</b>', 1)
makeTextItem(result, row, shape, align, tlink, row.labelText, 0)
else
makeTextItem(result, row, shape, align, '', '<b>'..row.dotTag..'</b>', 1)
makeTextItem(result, row, shape, align, tlink, row.dotTag, 2) -- tag is ouside the dot
end
end
else
if (row.labelText and row.labelText~='') then -- just the label. No tag
makeTextItem(result, row, shape, align, tlink, row.labelText, 0)
end
end
end
if tlink and tlink~='' then
table.insert(result,makeLinkBox(row.gridx, row.gridy,w+3,row.dotTag..' '..row.title,tlink))
end
return table.concat(result)
end

local function getmapframecontent(args,use)
local result, comma= {}, ''
local propertyTable= {}
local color=splitItem(string.lower( args['map-data-color'] or 'dark orange'), 2)
if use == 'basemap' then
table.insert(result, '[')
propertyTable.stroke = "#000000"
propertyTable['stroke-width'] = tonumber(args['map-data-width'] or '6')
if color[2] then
propertyTable['stroke-opacity'] = tonumber(color[2] or '20')/100
end
else
propertyTable.title = args['map-data-text'] or args['map-data'] or ''
propertyTable.stroke = getColor(color[1])
propertyTable['stroke-width'] = tonumber(args['map-data-width'] or '6')
propertyTable['stroke-opacity'] = tonumber(color[2] or '100')/100
end
if args['map-data-inverse'] then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geomask',
ids = args['map-data-inverse'],
properties = {title = (args['map-data-text'] or ''),
stroke = '#555555',
fill = '#555555',
['fill-opacity'] = 0.1,
['stroke-width'] = 1,
['stroke-opacity'] = 0.5 }
}
table.insert(result, mapJson)
comma=', '
end
if args['map-data-heavy'] then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data-heavy'],
properties = { title = args['map-data-heavy'],
stroke = propertyTable.stroke,
['stroke-width'] = 9,
['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.2 }
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-data-light'] and args['map-data-light'] ~= '' then
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data-light'],
properties = { title = args['map-data-light'],
stroke = propertyTable.stroke,
['stroke-width'] = 3,
['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.4 }
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-data'] then
propertyTable['stroke-opacity'] = propertyTable['stroke-opacity'] or 0.2
local mapJson = mw.text.jsonEncode{
type = 'ExternalData',
service = 'geoline',
ids = args['map-data'],
properties = propertyTable
}
table.insert(result, comma .. mapJson)
comma=', '
end
if args['map-wdqs'] then -- inserts a SPARQL wdqs query to find geopoints, geoshapes etc from wikidata
local mapSparql = mw.text.jsonEncode{
type = 'ExternalData',
service = args['map-wdqs-type'] or 'geopoint',
query = args['map-wdqs'],
}
table.insert(result, comma .. mapSparql)
-- debugmsg('mapSparql = ' .. mapSparql)
comma=', '
end
if args['map-raw'] then
table.insert(result, comma .. args['map-raw'])
end
if use=='basemap' then table.insert(result,']') end
return table.concat(result)
end

--eg | minilocator=filename,bottom right,132px153px, 38%,60%, 22px
local function makeLocatorMap (args, result)
local miniFile,pos,itemlist,miniW,miniH, miniX,miniY,miniBox, miniBH
if args['mini-locator'] then
pos,miniFile=extractItem(args['mini-locator']) -- first item is filename, in quotes if it includes commas
itemlist=splitItem(pos,5) -- put items in a table filename removed, position,WpxHpx, x%y%,box
pos=itemlist[2] or 'right'
miniW,miniH=getsize(itemlist[3])
miniX=tonumber(string.match(itemlist[4] or '0','[%d]+'))*miniW/100
miniY=tonumber(string.match(itemlist[5] or '0','[%d]+'))*miniH/100
miniBox=tonumber(string.match(itemlist[6] or '0','[%d]+'))
miniBox=miniBox*miniW/100
miniBH=miniBox * maplist.height/maplist.width
elseif args['mini-file'] then
miniFile = args['mini-file']
pos=string.lower(args.minimap or 'right')
if pos=='file' then pos='right' end
miniW,miniH = tonumber(args['mini-width'] or 60), tonumber(args['mini-height'] or 60) -- find top left corner of locator
miniBox,miniBH=tonumber(args['minimap-boxwidth'] or '0'),0 -- firm up pos offsets for dot (with % or not) and boxsize if any,
miniX, miniY=args['minipog-gx'],args['minipog-gy']
if not miniX then miniX=tonumber(args['minipog-x'] or '0') else miniX=tonumber(miniX)*tonumber(miniW)/100 end
if not miniY then miniY=tonumber(args['minipog-y'] or '0') else miniY=tonumber(miniY)*tonumber(miniH)/100 end
if args['minipog-gx'] then miniBox=miniBox*miniW/100 end
miniBH=miniBox * maplist.height/maplist.width
else return end
local miniTop,miniLeft=0,1
if not string.find(pos,'top') then --only use top left, as link box is in top right or put bottom left or right
miniTop=maplist.height+2-miniH
if string.find(pos,'right') then
miniTop=miniTop-15 -- to avoid (c) line
miniLeft=maplist.width-1-miniW
end
end
table.insert(result,'<div style="position: absolute; outline-width: 1px; outline-style: solid; outline-color: white;')
table.insert(result,'top: '..tostring(miniTop)..'px; left:'..tostring(miniLeft)..'px; width:'..tostring(miniW)..'px;' )
table.insert(result,'background-color:transparent; color:inherit;">[[File:'..miniFile..'|'..tostring(miniW)..'px|File:'..miniFile..']]</div>')
if miniX and miniX>0 then
if args['minipog-y'] then miniY=miniY/1.04 end
if args['minipog-x'] then miniX=miniX/1.04 end
if miniBox<1 then
table.insert(result,'<div style="position: absolute; top: '..tostring(miniY+miniTop-3-6)..'px; left:'..tostring(miniX+miniLeft-3)..'px;')
table.insert(result, 'width: 6px; background-color:transparent; color:inherit;">[[File:Red pog.svg|6px|link=]]</div>')
else
table.insert(result,'<div style="position: absolute; top: '..tostring(miniY+miniTop-miniBH/2)..'px; left:'..tostring(miniX+miniLeft-miniBox/2)..'px;')
table.insert(result, 'width: '..tostring(miniBox)..'px; height:'..tostring(miniBH)..'px; outline:1px solid #AA1205; background-color:#AA120522; color:inherit;"></div>')
end
end
end

local function makeArcText(args,result,nval)
local items, itemlist='',{}
local arcText=''
if args['arc'..nval] then
items=convertCoords (args['arc'..nval])
items,arcText=extractItem(items) -- first item is text, in quotes if it includes commas
itemlist=splitItem(items,9) -- put items in a table: text, lat,lon,size,color,angle,gap,radius,ellipse
if itemlist[4]=='' then itemlist[4]='12' end
itemlist[4]=string.match((itemlist[4] or '12'),"[%.%-?%d]+")
if itemlist[5]=='' then itemlist[5]='grey' end
itemlist[6]=string.match((itemlist[6] or '0'),"[%.%-?%d]+")
itemlist[7]=string.match((itemlist[7] or '0'),"[%.%-?%d]+")
itemlist[8]=string.match((itemlist[8] or '0'),"[%.%-?%d]+")
end
if args['arc-coord'..nval] then
local itemTab=splitItem(convertCoordsTrad (args['arc-coord'..nval]),2)
maplist.lat=tonumber(string.match(itemTab[1],"[%.%-?%d]+"))
maplist.lon=tonumber(string.match(itemTab[2],"[%.%-?%d]+"))
else
maplist.lat=tonumber(string.match(args['arc-lat'..nval] or itemlist[2] or '0',"[%.%-?%d]+"))
maplist.lon=tonumber(string.match(args['arc-lon'..nval] or itemlist[3] or '0',"[%.%-?%d]+"))
end
local arcX,arcY=maptogrid(maplist,6)
arcText = args['arc-text'..nval] or arcText
local fontSize =tonumber(args['arc-text-size'..nval] or itemlist[4] or '12')
local textColor=getColor(string.gsub(args['arc-text-color'..nval] or itemlist[5] or 'grey','[%s]+','') )
local arcAngle= tonumber((args['arc-angle'..nval]) or (itemlist[6]) or '45')-90
local arcRadius =tonumber(args['arc-radius'..nval] or itemlist[8] or '0.05')
local arcGap = tonumber(args['arc-gap'..nval] or itemlist[7] or '1')* ( ( math.sin(8-math.rad(arcRadius))^8 )+0.4 )*( ( fontSize+6 )/15 )
arcRadius=450*arcRadius*0.75
local ellipseFactor=tonumber(args['ellipse-factor'..nval] or itemlist[9] or '1')
local arcRotate =arcAngle+90
if arcGap<0 then arcRotate=arcAngle-90 end
local latF=arcY - fontSize + (0-(math.sin(math.rad(arcAngle))) * arcRadius)
local lonF=arcX - fontSize +(0-(math.cos(math.rad(arcAngle))) * arcRadius)

local step=1
for codepoint in mw.ustring.gcodepoint( arcText ) do -- block step=1,#arcText do
table.insert(result,'<div style="position: absolute;')
local posY=tostring(round( (latF + (math.sin(math.rad(arcAngle+((step-1)*arcGap))) * arcRadius)) *ellipseFactor,2))..'px;'
local posX=tostring(round( (lonF + (math.cos(math.rad(arcAngle+((step-1)*arcGap))) * arcRadius))/ellipseFactor,2))..'px;'
table.insert(result,' top: '..posY..' left: '..posX..' transform: rotate( '..tostring(round(arcRotate +((step-1)*arcGap)),2)..'deg);')
table.insert(result,'width:'..tostring(fontSize*2)..'px; text-align: center; background-color:transparent; color: '..textColor..';')
table.insert(result,'vertical-align: baseline; font-size: '..tostring(fontSize)..'px;">'..mw.ustring.char(codepoint)..'</div>')
step=step+1
end
end

local function makeFullscreenItem (itemtitle,itemdescription,lat,lon,group,itemcolor)
local item={}
itemdescription=stripdivs(itemdescription or '')
local templon=lon
if lon > 180 then templon=lon-360 end --for hemisphere+ or -1 dots
if lon < -180 then templon=lon+360 end -- use 'real' coordinates for geohack label, while retaining shifted coords for plot
if itemcolor=='transparent' then itemcolor='white' end
itemcolor=getColor(itemcolor) -- ensure no opacity, which breaks maplink
if string.find(itemcolor,'#')==1 and #itemcolor>7 then itemcolor=string.sub(itemcolor,1,7) end
table.insert(item, '{ "type": "Feature", "properties": {')
table.insert(item, ' "title": "'..itemtitle..'",')
table.insert(item, ' "description": "'..itemdescription)
table.insert(item, ' ([https://geohack.toolforge.org/geohack.php?params='..tostring(lat)..';'..tostring(templon))
table.insert(item, '_dim:2000 '..tostring(lat)..','..tostring(templon)..'])",')
table.insert(item, ' "marker-symbol": "-number-'..string.gsub(group,'%W','')..'", "marker-size": "medium", "marker-color": "'..itemcolor..'" },')
table.insert(item, ' "geometry": {"type": "Point", "coordinates": ['..tostring(lon)..','..tostring(lat)..'] } }')
return table.concat(item)
end

local function makeLegendBox(result,args)
local legend ={}
local line,count, maxWidth='',1,8
local item
line,item=extractItem(args.legendBox or '')
local a='' for c in item:gmatch('.') do a=a..(c:gsub('%^','<br>') or c) end
legend.Text = a -- convert hats to line breaks
line=splitItem(line,6) -- (text, size, poition,background color, text/outline color, param options)
legend.Size=line[2] or '150px80px1px'
legend.Pos=line[3] or '10px10px'
legend.Background=line[4] or 'beigeground'
legend.Color=line[5] or 'darkbrown'
legend.Param= line[6] or ''
local argnum,legendCount,titleHeight='1',1,0
if (legend.Text and legend.Text~='') then
titleHeight=15+(13.4*(select(2, string.gsub(legend.Text,"<br>", ""))))
end
local legendLine,legendGroup,legendY={},{},{}
while args['legendItem'..argnum] do -- assign legendLine, legendGroup, legendY for each dot
line,legendLine[legendCount] = extractItem(args['legendItem'..argnum] or '')
line=splitItem(line,3)
legendGroup[legendCount]=line[2] or argnum
if shapeList[legendGroup[legendCount]] then
maxWidth=math.max(tonumber(string.match(shapeList[legendGroup[legendCount]].shapeSize or '10','[%d]+')),maxWidth)
else maxWidth=math.max(tonumber(string.match(shapeList['1'].shapeSize or '10','[%d]+')),maxWidth)
end
maxWidth=maxWidth+1
if line[3] then
legendY[legendCount]=tonumber(string.match(line[3],'[%d]+'))
else legendY[legendCount] = 3+maxWidth*(legendCount-1)+titleHeight
-- if (legend.Text and legend.Text~='') then legendY[legendCount]=legendY[legendCount]+15 end
end
legendCount=legendCount+1
argnum=tostring(legendCount)
end
local w,h,r=getsize(legend.Size or '')
local x,y=getsize(legend.Pos or '')
local div=mw.html.create ('div')
div:css('position', 'absolute')
div:css('outline', '1px solid'..getColor(legend.Color))
if r~=0 then div:css('border-radius',tostring(r).."px") end
div
:css('top', y.."px")
:css('left', x.."px")
:css('width', w.."px")
:css('height', h.."px")
:css('line-height','105%')
:css('background-color', getColor(legend.Background) )
:css('color','inherit')
if not string.find(legend.Param,'noshadow') then div:css('box-shadow', '2px 2px 4px #33203335') end
div:tag( 'div' )
:css('position', 'absolute')
:css('top','1px')
:css('left', (w/2).."px")
:css('width',(w-8)..'px')
:css('text-align', 'center')
:css('color', getColor(legend.Color))
:css('transform', 'translateX(-50%)')
:css('font-size','11px')
:wikitext(legend.Text)
:done()
for lct=1,legendCount-1 do
--local t=legendGroup[lct]
local shape=shapeList[legendGroup[lct]] or shapeList['1']
local row={}
row.gridx=3+maxWidth/2
row.gridy=(legendY[lct] or 0) + 5
if shape.shape=='image:' then row.gridy=row.gridy+6 end
row.dx=0 row.dy=0
local legendShape= getshapetable(row,shape)
div:wikitext(legendShape)
:tag( 'div' )
:css('position', 'absolute')
:css('top',(legendY[lct] or 0)..'px')
:css('left', (maxWidth+6)..'px')
:css('width', (w-maxWidth-6)..'px')
:css('text-align', 'left')
:css('line-height','103%')
:css('color', getColor(legend.Color))
:css('font-size','10px')
:wikitext(legendLine[lct])
:done()
end
div:allDone()
table.insert(result,tostring(div))
end

local function getQset (qValue,pValue,argNumber,args)
local result={}
local sortType=string.lower(args['geo-list-sort'] or 'a')
local testValue='0'
if sortType == 'alpha' or sortType == 'a' or sortType == 'ah' or sortType == 'al' then
testValue = mw.wikibase.getLabel(qValue)
elseif sortType == 'value' or sortType == 'v' or sortType == 'vh' or sortType == 'vl'then
if qValue==nil or pValue == nil then debugmsg(mw.addWarning((qValue or 'nil')..' Qnumber for '..(pValue or 'nil')))
else
if mw.wikibase.getBestStatements(qValue,pValue)[1] then
testValue = mw.wikibase.getBestStatements(qValue,pValue)[1].mainsnak.datavalue.value.amount or '0'
if pValue == 'P2046' then
testValue = convertToSqKm(testValue, mw.wikibase.getBestStatements(qValue,pValue)[1].mainsnak.datavalue.value.unit)
end
end
end
elseif sortType == 'north' or sortType == 'n' or sortType == 'nh' or sortType == 'nl' then
if mw.wikibase.getBestStatements(qValue,'P625')[1] then
testValue = mw.wikibase.getBestStatements(qValue,'P625')[1].mainsnak.datavalue.value.latitude or 0
end
elseif sortType == 'west' or sortType == 'w' or sortType == 'wh' or sortType == 'wl' then
if mw.wikibase.getBestStatements(qValue,'P625')[1] then
testValue = mw.wikibase.getBestStatements(qValue,'P625')[1].mainsnak.datavalue.value.longitude or 0
end
end
result[1]=testValue
result[2]=argNumber
return result
end

function p._main ( args )
local result={}
local frame=mw.getCurrentFrame()
local dotTable={}
local magVal,scaleVal = args.magnify,''
local origH,origW=maplist.height,maplist.width

if magVal then --set up the values needed to magnify the top-right portion of the map
magVal=tonumber(string.match(magVal or '0',"[%.%-?%d]+")) or 1
if magVal>1 and magVal <=2 then
maplist.height= round(maplist.height/magVal,0)
maplist.width=round(maplist.width/magVal,0)
scaleVal='transform: scale('..magVal..') translateY('..tostring((origH-maplist.height)/2)..'px);'
else magVal=1
end
end
-- set up the three nested div boxes (plus an extra if centered) to put the map plus title/caption area, in an appropriate frame on the page
if args.float=='center' or args.float=='centre' then table.insert(result,'<div class="center"><div class="thumb tnone">')
elseif args.float=='left' then table.insert(result,'<div class="thumb tleft">')
else table.insert(result,'<div class="thumb tright">')
end
table.insert(result,'<div class="thumbinner" style="position: relative; top: 0px; right: 0px; width: '..(args.width or "400")..'px;">')
if args.title then table.insert(result,'<div class="center" style="font-weight:bold">'..args.title..'</div>') end
if magVal and magVal >1 and magVal<=2 then
table.insert(result,'<div class="thumbinner noresize" style="display:block; position: relative; outline:0px; border:0px; padding:0px; background-color:transparent; color:inherit;')
table.insert(result,'top: 50%; right: '..tostring(0-((origW-maplist.width))/2)..'px; ')
table.insert(result,'height: '..origH..'px; width: '..maplist.width..'px; '..scaleVal..'">')
else
magVal=1
table.insert(result,'<div class="thumbinner noresize" style="position: relative; outline:0px; border:0px; padding:0px;')
table.insert(result,'top: 0px; right: 0px; ')
table.insert(result,'height: '..maplist.height..'px; width: '..maplist.width..'px ">')
end
--add any boundary Qvalues to map-data-light if requested
if args['geo-region'] and (args['geo-boundaries'] == '1') then
local qmaps=args['map-data-light'] or ''
if qmaps ~='' and string.sub(qmaps,#qmaps) ~= ',' then qmaps=qmaps..',' end
local geoRegion = args['geo-region'] -- or add base-page here
local geoSubRegion = args['geo-sub-region'] or 'P150'
if not mw.wikibase.isValidEntityId(geoSubRegion) then geoSubRegion = 'P150' end
if mw.wikibase.isValidEntityId(geoRegion) then
local ct=1
local qtemp
while (mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct]) do
-- debugmsg('table '..ct..' - '..mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id)
qtemp = mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id or nil
if qtemp then
if mw.wikibase.entityExists(qtemp) then
qmaps=qmaps..qtemp..',' -- see if there is a geocode boundary Qvalue to add
else debugmsg(mw.addWarning('unable to add geocode value for '..mw.wikibase.getLabel..','..qtemp))
end

end
ct=ct+1
end
end
if qmaps and qmaps ~= '' then -- add back the created/expanded list of boundary Qvalues, and remove trailing comma
args['map-data-light'] = string.sub(qmaps,1,#qmaps-1)
end
end
-- Create the basemap using mapframe
local mapframecontent=getmapframecontent(args,'basemap')
table.insert(result, frame:extensionTag{ name ='mapframe', content=mapframecontent, args={width=tostring(maplist.width), height=tostring(maplist.height),
zoom=tostring(maplist.zoom), longitude=tostring(maplist.lonbase), latitude=tostring(maplist.latbase), mapstyle=maplist.mapstyle, frameless=true } } )

--Add coverall box to block the unhelpful links from mapframe - which wouldn't include all the dots. Reinstate some links to osm and wikimedia
table.insert(result,'<div style="position: absolute;width:'..tostring(maplist.width)..'px; height:'..tostring(maplist.height)..'px;')
table.insert(result,'top:0px;left:0px;background-color:#FFFFFF00; color:inherit;"></div>')
--Add replacent hover-links for OpenStreetMap and maps terms and conditions
table.insert(result,'<div style="position: absolute; top: '..tostring(maplist.height-18)..'px; left: '..tostring(maplist.width-13)..'px; width: 12px; height: 12px">')
table.insert(result,'[[file:Transparent.svg|12px|link=https://www.openstreetmap.org/copyright|'..aboutOSM..']]</div>')
table.insert(result,'<div style="position: absolute; top: '..tostring(maplist.height-18)..'px; left: '..tostring(maplist.width-110)..'px;')
table.insert(result,'width: 12px; height: 12px background-color: transparent; color:inherit;">')
table.insert(result,'[[file:Transparent.svg|12px| link=https://foundation.wikimedia.org/wiki/Policy:Maps_Terms_of_Use|'..termsOfUse..']]</div>')

-- Add scale-line
if not args.scalemark or args.scalemark~='0' then
local top=maplist.height-42
local left=maplist.width-61-(tonumber(args.scalemark or '1'))
local minipos=string.lower(args.minimap or '') -- scalemark gets pushed left if it would be behind the minimap
if minipos~='' and not(string.find(minipos,'left') or string.find(minipos,'top') ) then
local offset=tonumber(args.scalemark or '1')-tonumber(args['mini-width'] or '60')
if offset<1 then left=maplist.width-61-tonumber(args['mini-width'] or '60') end
end
if maplist.width-left >216 then top=top+14 end -- shunt scaleline down if it is beyond the copyright stuff
local scalek,scalem=getScale(maplist.zoom, maplist.latbase, magVal)
local magReduce=''
table.insert(result,"<div style=\"display:inline-block; position: absolute; background-color: #111111")
table.insert(result,"; color:inherit; clip-path:path(nonzero, 'M0,8 l0,4 l20,0 l0,-4 l-0.3,0 l0,3.7 l-19.4,0 l0,-3.7 z') ")
table.insert(result,"; width:20px") -- path is a 20px20px box, and then rescales
if magVal==1 then
table.insert(result,"; top:"..tostring(top-1).."px")
table.insert(result,"; left:"..tostring(left+16).."px")
table.insert(result,"; height:20px; transform:scale("..tostring(2.5)..", "..tostring(1.5)..")")
else -- shrink the scalemark to compensate for magnification
table.insert(result,"; top:"..tostring(top-(magVal*0.28)).."px")
table.insert(result,"; left:"..tostring(left+(16*(magVal*1.15))).."px")
table.insert(result,"; height:20px; transform:scale("..tostring(2.5*(1/magVal))..", "..tostring(1.5*(1/magVal))..")")
magReduce= 'scale('..tostring(1/magVal)..')'
end
table.insert(result,"\"></div>")

table.insert(result,'<div style="position: absolute; top: '..tostring(top)..'px; left: '..tostring(left+47)..'px; font-size: 9.5px; line-height: 126%; width: fit-content;')
table.insert(result,'color: #444433; background-color: transparent; text-align: right; transform: '..magReduce..' translateX(-100%);">'..scalek..'<br>'..scalem..'</div>')
end

--Set up the shapeList and dotList tables, to provide data to go on the map
local sgNumbers,sgSortable={},{} --s1,s2
sgNumbers["1"]="1"
if args.useFormatStyle and args.useFormatStyle=='shortstyle' then
shapeList=ParseShapeTypes (shapeList,args,"1")
for argindex,argv in pairs(args) do -- build a list of all the numbered sg's that have been used
if string.find(argindex,"sg[a-f,n%d]+") == 1 then -- only look through the sga,sgb, sgc,sgd,sge,sgf and sgn args
local x=string.match(argindex,"[%d]+") -- find its number
if x and not sgNumbers[x] then sgNumbers[x]=x end -- only add if not already found
end
if string.find(argindex,"sg[a-f]H") == 1 and highlightNum then highlightOption=true end
end
for indx,sgnum in pairs(sgNumbers) do table.insert(sgSortable,sgnum) end
table.sort(sgSortable,lessthan) -- put the list in a sortable form
for k,v in pairs(sgSortable) do -- work through the sorted list, parsing each set of sg's in turn, from 1 upwards
shapeList=ParseShapeTypes (shapeList,args,v)
end
if highlightOption==true then shapeList=ParseShapeTypes (shapeList,args,'H') end
end

local dotList,dotresult,dotItemTable,dotGroupList={},{},{},{}

if (not args.useFormatStyle) or args.useFormatStyle=='standardstyle' then
local dotmax=0
local qset={}
for indx,val in pairs(args) do
if string.match(indx,'mark%-coord[%d]+') or string.match(indx,'lat[%d]+') or string.match(indx,'geo%-data[%d]+') then
dotmax=math.max(dotmax, tonumber(string.match(indx,"[%d]+")))
if string.match(indx,'geo%-data[%d]+') then
local argnum=string.sub(indx,9,#indx) or ''
if args['mark-title'..argnum] == 'none' or (string.find(args['mark-title'..argnum] or 'x','nolist')== 1) then
-- debugmsg('sort values ignored '..argnum..', '..args['mark-title'..argnum])
else
qset[val]=getQset (val, (args['geo-data-type'] or 'P1082'), argnum, args)
end
end
end
if (indx=='shapeH') or (indx=='shape-colorH') or (indx=='shape-outlineH') or (indx=='label-colorH') then highlightOption=true end
end

local qlist=args['geo-data-list']
if qlist then
if string.sub(qlist,#qlist) ~= ',' then qlist=qlist..',' end
else
qlist=''
end
local geoRegion = args['geo-region'] -- or add base-page here
local geoSubRegion = args['geo-sub-region'] or 'P150'
if not mw.wikibase.isValidEntityId(geoSubRegion) then geoSubRegion = 'P150' end
if (args['find-geo-dots'] or '1') ~= '0' and geoRegion and mw.wikibase.isValidEntityId(geoRegion) then
local ct=1
local qtemp
while (mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct]) do
-- debugmsg('table '..ct..' - '..mw.wikibase.getBestStatements(adminRegion,adminSubRegion)[ct].mainsnak.datavalue.value.id)
qtemp = mw.wikibase.getBestStatements(geoRegion,geoSubRegion)[ct].mainsnak.datavalue.value.id or nil
if qtemp then
qlist=qlist..qtemp..',' -- add subregion Qvalue to the list
end
ct=ct+1
end
end
if qlist and #qlist>1 then -- create a table from the csv list
local _, c = qlist:gsub(",","")
local qtab=splitItem(qlist,c)
for xd,yd in pairs(qtab) do
yd=string.upper(yd)
if qset[yd] == nil and mw.wikibase.isValidEntityId(yd) then
dotmax=dotmax+1
qset[yd]=getQset (yd, (args['geo-data-type'] or 'P1082'), tostring(dotmax), args)
args['geo-data'..tostring(dotmax)] = yd
-- debugmsg(dotmax..' = '..(string.upper(yd) or 'Q Not found')..': '..(mw.wikibase.getLabel(yd) or 'label Not found')..': '..(mw.wikibase.getSitelink(yd) or 'link Not found'))
elseif not mw.wikibase.isValidEntityId(yd) then
debugmsg(mw.addWarning(yd..' is not a [[wikidata]] page. geo-data-list needs comma-separated Qvalues' ))
else debugmsg(mw.addWarning(yd..' is duplicate'))
end
end
end
-- qset contains set of Qvalues and can be from wikidata geo-region, list of geo-data-list Q values or individual geo-data1= etc
local ts = {} -- table to hold the keys
local useQset=false
for ky, val in pairs(qset) do
table.insert(ts, {key = ky, value = val[1], num=val[2]})
useQset=true
end
if useQset then
local order = string.lower(args['geo-list-sort'] or 'a') -- sort the list from previously stored sortkey, either Lowest or Highest first
if string.find(',al,vl,nl,wl,west,w,alpha,a,' , ','..order..',') then
table.sort(ts, function (a,b) return lessthan(a.value, b.value) end)
else
table.sort(ts, function (a,b) return morethan(a.value, b.value) end)
end
for ky,val in ipairs(ts) do -- assign values from sorted list to numbered parameter

args['numbered'..val.num] = ky -- The numbered parameter becomes the value for each dot that has a geo Qvalue, from manual, list or wiki sources.
end
end

dotItemTable=tradstyleParseShapes(args,dotItemTable,dotmax)
for argindex=1,dotmax do -- build a list of all the numbered coords or lat,lons that have been used
local x=tostring(argindex)
if args['mark-coord'..x] or (args['mark-lat'..x] and args['mark-lon'..x]) or args['geo-data'..x] then
sgNumbers[x]=x -- add it to the list
end
end
else
for indx in pairs(args) do
if string.match(indx,'dot[%d]+') then table.insert(dotList,indx) end --add the index name for dot1, dot2 etc to dotList
end
table.sort(dotList,morethan)
for indx,dotName in pairs(dotList) do
dotresult=ParseData(args,string.match(dotName,'[%d]+') ) -- using each dot number, assign the settings for each dot to a dotresult item line
table.insert(dotItemTable,dotresult) -- and store that item line within the dotItemTable
end
end

for arcVal = 65,91 do -- check through args looking for any arcs
local arcLetter=string.char(arcVal)
if args['arc-text'..arcLetter] or args['arc'..arcLetter] then
makeArcText(args,result,arcLetter)
end
end

local dotdivs=''
local ddots=0
if dotItemTable[1] then
local ddots=(dotItemTable[1].lat or 0)+(dotItemTable[1].lon or 0)
end
local fgroup='F'..tostring(maplist.latbase+maplist.lonbase+ddots )
local FullscreenList={}
local addcomma=''
for i,dotitem in pairs(dotItemTable) do -- working throug each dot item, merge the dot and shape values into a full set of css text
local dotgroup= dotitem.group or "0"

if dotitem.posType=='mark-line' and dotitem.markDest then --find destination xy values for any mark-lines
for n,v in pairs(dotItemTable) do
if v.code == dotitem.markDest then dotitem.gridx2=v.gridx dotitem.gridy2=v.gridy break end
end
end
local qtype=dotitem.group -- find which shape group each dot has been assigned
--debugmsg('dotgroup='..qtype..', sg='..(sgNumbers[qtype] or 'nil')..' , shapeList='..shapeList[qtype].shape)
if not sgNumbers[qtype] then qtype="0" end --shapeList[dotitem.group] will give access to the shape values for that dot
if highlightNum==dotitem.code and highlightOption==true and shapeList['H'] then
table.insert(result, getshapetable(dotitem,shapeList['H']))
else
table.insert(result, getshapetable(dotitem,shapeList[qtype])) -- Add the actual css instructions for each dot
end
if shapeList[dotgroup] and not string.find((dotitem.param1 or ''),'nomap') then -- only add if not excluded with 'nomap' labelText
local ftext=''
if dotitem.dotTag~='' and not string.match(dotitem.labelText or '','[%d]') then ftext=stripdivs(dotitem.dotTag or '')..' <br>' end
if (dotitem.labelText ~= ftext) and dotitem.dotLink =='' then ftext=ftext..' '..stripdivs(dotitem.labelText)..'<br>' end
if (dotitem.dotLink) and (dotitem.dotLink ~='') then ftext=ftext..dotitem.dotLink..'<br>' end
if dotitem.imageName then ftext=ftext..'[[File:'..dotitem.imageName..'|250px]]' end
table.insert(FullscreenList,1, makeFullscreenItem (string.gsub(ftext,"[\n]+"," "), dotitem.info,round(dotitem.lat,5),round(dotitem.lon,5),fgroup,shapeList[dotgroup].shapeColor)..addcomma )
addcomma=', '
end
-- makeFullscreenItem (itemtitle,itemdescription,lat,lon,group,itemcolor)
-- Always add to start of list, to reverse the sequence, and separate with commas except for first item, which is now at the end
end
if args.legendBox then makeLegendBox(result,args) end
if args.minimap or args['mini-locator'] then makeLocatorMap(args,result) end

-- add tag link and details for fullscreen version
addcomma=''
if (mapframecontent or '[]') ~= '[]' then addcomma=',' end
mapframecontent=getmapframecontent(args,'fullscreen')
local contentstart='[ '..mapframecontent..addcomma..'{ "type": "FeatureCollection", "features": [ ' --extra features after first square bracket
local contentend=' ] } ]'
table.insert(result, '<div style="position: absolute;top: 9px;left: '..tostring(maplist.width-34)..'px">')
table.insert(result, '<div style="color: white; opacity:100; font-size: 19px; font-weight:normal; text-align: left;">')
table.insert(result, frame:extensionTag{ name ='maplink', content=contentstart..table.concat(FullscreenList)..contentend, args={zoom=tostring(maplist.zoom+1), class='no-icon', frameless='1',
latitude=tostring(maplist.latbase), longitude=tostring(maplist.lonbase), --add invisble 'en-spaces' for tooltip
text='<div title="'..fullscreenlinktext..'">   </div>'} } )
table.insert(result,'</div></div>') -- end of maplink -----

-- add closing div for main map
table.insert(result,'</div>')

-- collate caption material to go in the outer div class
if captionTable ~= '' and (not args['auto-caption']) then args['auto-caption']='on' end --default to include list if using geo values
local autocaption=string.lower(args['auto-caption'] or 'no')
local autoOff=autocaption:match("(%w+)(.*)") -- select the first word in autocaption and see if it is a negativeAnswer)
if negativeAnswer[autoOff] then captionTable='' end
if args.caption or (not negativeAnswer[autoOff]) then
table.insert(result,'<div class="thumbcaption" style="text-align:left">')
if args.caption then
table.insert(result,args.caption)
if captionTable ~= '' then table.insert(result,'<hr>') end
end
end
local columns=tonumber(autoOff:match("[%d]+") or '1')
if columns>1 then columns=round(maplist.width/(columns*17), 0) end -- convert from em to px for historical reasons
--for k in pairs(dotList) do capchk=capchk..(args["dotlink"..k] or '') end

local capchk=nil
local captionList = {}
for key, value in pairs(dotItemTable) do
-- only add an autocaption line if there is both a dotTag and a dotLink line available and it is not marked as nolist
if value.dotTag and value.dotTag~='' and (not string.find(value.param1 or '','nolist')) and string.gsub(value.dotLink or '',"%s+","")~='' then
table.insert(captionList, {key = key, value = value})
if captionTable == '' then
capchk=true
else -- add the next line of content to the html table
capchk=false
end
end
end
if captionTable ~= '' then
table.sort(captionList, function (a,b) return lessthan(string.match(a.value.dotTag,'[%w]+'), string.match(b.value.dotTag,'[%w]+')) end)
for k,v in pairs(captionList) do
local nval=string.match(v.value.dotTag,'[%w]+') -- find the first alphanumeric item in the dotTag
local ngrp=v.value.group
if captionTableText[ngrp] then
-- debugmsg('table text for'..v.value.dotTag..', '..captionTableText[v.value.group][1]..', '..captionTableText[v.value.group][2]..', '..captionTableText[v.value.group][3]..' ('..captionTableText[v.value.group][4]..')')
local c1,c2
c1,c2=checkColors(shapeList[ngrp].shapeColor)
local cDot='<div style="display:inline-block;line-height:110%;vertical-align:middle; padding:1px 4px;border-radius:8px;border: 0.5px solid black;'
cDot=cDot..'background-color:'..c1..';color:'..c2..';font-size:88%;font-weight:bold">'..nval..'</div>'
captionTable = htmlTableLine(captionTable,cDot,captionTableText[ngrp][1], captionTableText[ngrp][2], captionTableText[ngrp][3], captionTableText[ngrp][4])
end
end
end
if capchk and (not negativeAnswer[autoOff]) then
table.sort(captionList, function (a,b) return lessthan(string.match(a.value.dotTag,'[%w]+'), string.match(b.value.dotTag,'[%w]+')) end)
-- local myDivision = string.gsub((args.toggletext or toggletext), "%s+", "")
if string.find(autocaption,'collaps') then
table.insert(result,'<div class = "wikitable mw-collapsible ')
if string.find(autocaption,'collapsed') then table.insert(result,'mw-collapsed') end
table.insert(result,'" style="width:100%; line-height: 17px; border-style:none; text-align: center"><b>'..(args.toggletext or toggletext)..'</b>')
end
if string.find(autocaption, 'columns=') then
columns=string.match(autocaption,'[%d]+',string.find(autocaption, 'columns=') )
end
table.insert(result,'<div class="mw-collapsible-content" style="column-count:'..columns..'; column-rule:solid 1px;text-align:left;padding-top:5px">')
table.sort(dotList,lessthan)
local nval,ngrp='','0'
for k,v in pairs(captionList) do
nval=string.match(v.value.dotTag,'[%w]+') -- find the first alphanumeric item in the dotTag
ngrp=v.value.group or '0'
if v.value.dotLink and v.value.dotLink~='' and nval and nval~='' then
local c1,c2
if nval==args.highlight then
c1,c2=checkColors(shapeList['H'].shapeColor)
else
c1,c2=checkColors(shapeList[ngrp].shapeColor)
end
table.insert(result,'<div style="display:inline-block;line-height:110%;vertical-align:middle; padding:1px 4px;border-radius:8px;border: 0.5px solid black;')
table.insert(result,'background-color:'..c1..';color:'..c2..';font-size:88%;font-weight:bold">'..nval..'</div> '..v.value.dotLink..'<br>')
end
end
table.insert(result,'</div>') -- end for caption-content div
if string.find(autocaption,'collaps') then table.insert(result,'</div>') end -- end for toggle frame
end
if captionTable ~= '' then table.insert(result,captionTable..'</table>') end
if args.caption or (not negativeAnswer[autoOff]) then table.insert(result,'</div>') end -- end for whole caption frame
table.insert(result,'</div></div>') -- outer two frames
if args.float == 'center' or args.float=='centre' then table.insert(result,'</div>') end

if args['show-new-format'] == 'hints' then -- provide a 'format hint panel' in the 'Preview Box'
local w="<small>Below are some template hints for the 'sga' compressed version, "
w=w..'{{tl|OSM Location dots}}. It can use these, instead of the more verbose {{tl|OSM Location map}} parameter format. '
w=w..'Data is divided between a "ShapeGroup" and the "Dots", so that a single shapeGroup can be used for multiple dots on the map. '
previewMsg(w..'(nb. the "group" value can be the number or an assigned name of a shapeGroup)</small>')

w='<small>{{tl|OSM Location dots}}: | dot(n)=group,lat,lon,dotTag | '
w=w..'dotlink=link/tooltip | dotlabel=label,position,dx,dy,param1,info | dotpic=filename <br>'
w=w.."(nb. param1 options include 'nolink' 'nolist' 'nomap' 'hemisphere-1' 'hemisphere+1', 'noline' - quotes not required, separate with spaces).<br>"
w=w..'| sga = Shape,Sizepx,Color,Angledeg | sgb= OutlineWidth,Color,Style | sgc=TextSize,Color,Angle,bold italic <br>'
w=w..'| sgd=TagSizepx,Color,Spacer,Angledeg | sge=LineWidth,Color,Style | sgf=TextSpacingpx,LineHeight%,Outlinepx,backgroundColor<br>'
w=w..'| sgn=Name (optional, to assign a meaningful name) | sgp=Parent (can be the name or number of the parent shapeGroup. '
previewMsg(w..'Each shapegroup will inherit values from a parent, stretching back to "sga1" and its default values.)</small>')
if #pmsg then
local dbg={}
for i,x in pairs(pmsg) do
table.insert(dbg,x..'<br>')
end
dbg=mw.addWarning(table.concat(dbg))
table.insert(result, dbg)
end
end

if args.coordtest then debugmsg(mw.text.nowiki(args.coordtest)) end

for i,x in pairs(msg) do
table.insert(result, x..'<br>')
end
return table.concat(result)
end

function p.main(frame)
local args = getArgs(frame)
local itemTab={}
maplist.width=tonumber(args.width) or 400
maplist.height=tonumber(args.height) or 300
if args.coord then
itemTab=splitItem(convertCoordsTrad (args.coord),2)
maplist.latbase=itemTab[1]
maplist.lonbase=itemTab[2]
else
maplist.lonbase=tonumber(args.lon) or 5
maplist.latbase=tonumber(args.lat) or 0
end
maplist.zoom=tonumber(args.zoom) or 1
visibleLinks=args.showlinks
highlightNum=args.highlight
if args.nolabels=='1' then maplist.mapstyle='osm' else maplist.mapstyle='osm-intl' end
if maplist.width >= 400 and not(args['show-q-values']) then args['show-q-values'] = '1' -- default to on if wider than 400px
elseif maplist.width < 320 then args['show-q-values'] = '0' end -- turn off Qvalus if frame is too narrow, even if requested
return p._main(args)
end

return p

Module:Coordinates

2026-04-05T10:00:23Z

Cultopedia-admin: Cultopedia: make Module:Coordinates tolerate missing #coordinates parser function

--[[
This module is intended to replace the functionality of {{Coord}} and related
templates. It provides several methods, including

{{#invoke:Coordinates | coord }} : General function formatting and displaying
coordinate values.

{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal
degree values to DMS format.

{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
to decimal degree format.

{{#invoke:Coordinates | link }} : Export the link used to reach the tools

]]

require('strict')

local math_mod = require("Module:Math")
local coordinates = {};
local isSandbox = mw.getCurrentFrame():getTitle():find('sandbox', 1, true);

local current_page = mw.title.getCurrentTitle()
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
local coord_link = 'https://geohack.toolforge.org/geohack.php?pagename=' .. page_name .. '&params='

--[[ Helper function, replacement for {{coord/display/title}} ]]
local function displaytitle(coords)
return mw.getCurrentFrame():extensionTag{
name = 'indicator',
args = { name = 'coordinates' },
content = '<span id="coordinates">[[Geographic coordinate system|Coordinates]]: ' .. coords .. '</span>'
}
end

--[[ Helper function, used in detecting DMS formatting ]]
local function dmsTest(first, second)
if type(first) ~= 'string' or type(second) ~= 'string' then
return nil
end
local s = (first .. second):upper()
return s:find('^[NS][EW]$') or s:find('^[EW][NS]$')
end

--[[ Wrapper function to grab args, see Module:Arguments for this function's documentation. ]]
local function makeInvokeFunc(funcName)
return function (frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = 'Template:Coord'
})
return coordinates[funcName](args, frame)
end
end

--[[ Helper function, handle optional args. ]]
local function optionalArg(arg, supplement)
return arg and arg .. supplement or ''
end

--[[
Formats any error messages generated for display
]]
local function errorPrinter(errors)
local result = ""
for i,v in ipairs(errors) do
result = result .. '<strong class="error">Coordinates: ' .. v[2] .. '</strong><br />'
end
return result
end

--[[
Determine the required CSS class to display coordinates

Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
default is the mode as specificied by the user when calling the {{coord}} template
mode is the display mode (dec or dms) that we will need to determine the css class for
]]
local function displayDefault(default, mode)
if default == "" then
default = "dec"
end

if default == mode then
return "geo-default"
else
return "geo-nondefault"
end
end

--[[
specPrinter

Output formatter. Takes the structure generated by either parseDec
or parseDMS and formats it for inclusion on Wikipedia.
]]
local function specPrinter(args, coordinateSpec)
local uriComponents = coordinateSpec["param"]
if uriComponents == "" then
-- RETURN error, should never be empty or nil
return "ERROR param was empty"
end
if args["name"] then
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end

local geodmshtml = '<span class="geo-dms" title="Maps, aerial photos, and other data for this location">'
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '</span>'

local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local geodeclat
if lat < 0 then
-- FIXME this breaks the pre-existing precision
geodeclat = tostring(coordinateSpec["dec-lat"]):sub(2) .. "°S"
else
geodeclat = (coordinateSpec["dec-lat"] or 0) .. "°N"
end

local long = tonumber( coordinateSpec["dec-long"] ) or 0
local geodeclong
if long < 0 then
-- FIXME does not handle unicode minus
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"
else
geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
end

local geodechtml = '<span class="geo-dec" title="Maps, aerial photos, and other data for this location">'
.. geodeclat .. ' '
.. geodeclong
.. '</span>'

local geonumhtml = '<span class="geo">'
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
.. '</span>'

local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';

if not args["name"] then
inner = inner .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>'
else
inner = inner .. '<span class="vcard">' .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>'
.. '<span style="display:none"> (<span class="fn org">'
.. args["name"] .. '</span>)</span></span></span>'
end

local stylesheetLink = 'Module:Coordinates' .. ( isSandbox and '/sandbox' or '' ) .. '/styles.css'
return mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = stylesheetLink }
} .. '<span class="plainlinks nourlexpansion">[' .. coord_link .. uriComponents ..
' ' .. inner .. ']</span>' .. '[[Category:Pages using gadget WikiMiniAtlas]]'
end

--[[ Helper function, convert decimal to degrees ]]
local function convert_dec2dms_d(coordinate)
local d = math_mod._round( coordinate, 0 ) .. "°"
return d .. ""
end

--[[ Helper function, convert decimal to degrees and minutes ]]
local function convert_dec2dms_dm(coordinate)
coordinate = math_mod._round( coordinate * 60, 0 );
local m = coordinate % 60;
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."°"

return d .. string.format( "%02d′", m )
end

--[[ Helper function, convert decimal to degrees, minutes, and seconds ]]
local function convert_dec2dms_dms(coordinate)
coordinate = math_mod._round( coordinate * 60 * 60, 0 );
local s = coordinate % 60
coordinate = math.floor( (coordinate - s) / 60 );
local m = coordinate % 60
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."°"

return d .. string.format( "%02d′", m ) .. string.format( "%02d″", s )
end

--[[
Helper function, convert decimal latitude or longitude to
degrees, minutes, and seconds format based on the specified precision.
]]
local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
local coord = tonumber(coordinate)
local postfix
if coord >= 0 then
postfix = firstPostfix
else
postfix = secondPostfix
end

precision = precision:lower();
if precision == "dms" then
return convert_dec2dms_dms( math.abs( coord ) ) .. postfix;
elseif precision == "dm" then
return convert_dec2dms_dm( math.abs( coord ) ) .. postfix;
elseif precision == "d" then
return convert_dec2dms_d( math.abs( coord ) ) .. postfix;
end
end

--[[
Convert DMS format into a N or E decimal coordinate
]]
local function convert_dms2dec(direction, degrees_str, minutes_str, seconds_str)
local degrees = tonumber(degrees_str)
local minutes = tonumber(minutes_str) or 0
local seconds = tonumber(seconds_str) or 0

local factor = 1
if direction == "S" or direction == "W" then
factor = -1
end

local precision = 0
if seconds_str then
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
elseif minutes_str and minutes_str ~= '' then
precision = 3 + math.max( math_mod._precision(minutes_str), 0 );
else
precision = math.max( math_mod._precision(degrees_str), 0 );
end

local decimal = factor * (degrees+(minutes+seconds/60)/60)
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
end

--[[
Checks input values to for out of range errors.
]]
local function validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, source, strong )
local errors = {};
lat_d = tonumber( lat_d ) or 0;
lat_m = tonumber( lat_m ) or 0;
lat_s = tonumber( lat_s ) or 0;
long_d = tonumber( long_d ) or 0;
long_m = tonumber( long_m ) or 0;
long_s = tonumber( long_s ) or 0;

if strong then
if lat_d < 0 then
table.insert(errors, {source, "latitude degrees < 0 with hemisphere flag"})
end
if long_d < 0 then
table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"})
end
--[[
#coordinates is inconsistent about whether this is an error. If globe: is
specified, it won't error on this condition, but otherwise it will.

For not simply disable this check.

if long_d > 180 then
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
end
]]
end

if lat_d > 90 then
table.insert(errors, {source, "latitude degrees > 90"})
end
if lat_d < -90 then
table.insert(errors, {source, "latitude degrees < -90"})
end
if lat_m >= 60 then
table.insert(errors, {source, "latitude minutes >= 60"})
end
if lat_m < 0 then
table.insert(errors, {source, "latitude minutes < 0"})
end
if lat_s >= 60 then
table.insert(errors, {source, "latitude seconds >= 60"})
end
if lat_s < 0 then
table.insert(errors, {source, "latitude seconds < 0"})
end
if long_d >= 360 then
table.insert(errors, {source, "longitude degrees >= 360"})
end
if long_d <= -360 then
table.insert(errors, {source, "longitude degrees <= -360"})
end
if long_m >= 60 then
table.insert(errors, {source, "longitude minutes >= 60"})
end
if long_m < 0 then
table.insert(errors, {source, "longitude minutes < 0"})
end
if long_s >= 60 then
table.insert(errors, {source, "longitude seconds >= 60"})
end
if long_s < 0 then
table.insert(errors, {source, "longitude seconds < 0"})
end

return errors;
end

--[[
parseDec

Transforms decimal format latitude and longitude into the
structure to be used in displaying coordinates
]]
local function parseDec( lat, long, format )
local coordinateSpec = {}
local errors = {}

if not long then
return nil, {{"parseDec", "Missing longitude"}}
elseif not tonumber(long) then
return nil, {{"parseDec", "Longitude could not be parsed as a number: " .. long}}
end

errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
coordinateSpec["dec-lat"] = lat;
coordinateSpec["dec-long"] = long;

local mode = coordinates.determineMode( lat, long );
coordinateSpec["dms-lat"] = convert_dec2dms( lat, "N", "S", mode) -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}

if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dec"
end

return coordinateSpec, errors
end

--[[
parseDMS

Transforms degrees, minutes, seconds format latitude and longitude
into the a structure to be used in displaying coordinates
]]
local function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
local coordinateSpec, errors, backward = {}, {}

lat_f = lat_f:upper();
long_f = long_f:upper();

-- Check if specified backward
if lat_f == 'E' or lat_f == 'W' then
lat_d, long_d, lat_m, long_m, lat_s, long_s, lat_f, long_f, backward = long_d, lat_d, long_m, lat_m, long_s, lat_s, long_f, lat_f, true;
end

errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
if not long_d then
return nil, {{"parseDMS", "Missing longitude" }}
elseif not tonumber(long_d) then
return nil, {{"parseDMS", "Longitude could not be parsed as a number:" .. long_d }}
end

if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then
if math_mod._precision( lat_d ) > 0 or math_mod._precision( long_d ) > 0 then
if lat_f:upper() == 'S' then
lat_d = '-' .. lat_d;
end
if long_f:upper() == 'W' then
long_d = '-' .. long_d;
end

return parseDec( lat_d, long_d, format );
end
end

coordinateSpec["dms-lat"] = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. lat_f
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. long_f
coordinateSpec["dec-lat"] = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- {{coord/dms2dec|{{{4}}}|{{{1}}}|0{{{2}}}|0{{{3}}}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}

if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dms"
end

return coordinateSpec, errors, backward
end

--[[
Check the input arguments for coord to determine the kind of data being provided
and then make the necessary processing.
]]
local function formatTest(args)
local result, errors
local backward, primary = false, false

local function getParam(args, lim)
local ret = {}
for i = 1, lim do
ret[i] = args[i] or ''
end
return table.concat(ret, '_')
end

if not args[1] then
-- no lat logic
return errorPrinter( {{"formatTest", "Missing latitude"}} )
elseif not tonumber(args[1]) then
-- bad lat logic
return errorPrinter( {{"formatTest", "Unable to parse latitude as a number:" .. args[1]}} )
elseif not args[4] and not args[5] and not args[6] then
-- dec logic
result, errors = parseDec(args[1], args[2], args.format)
if not result then
return errorPrinter(errors);
end
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation
-- wikiminiatlas doesn't support D;D notation
-- #coordinates parserfunction doesn't support negative decimals with NSWE
result.param = table.concat({
math.abs(tonumber(args[1])),
((tonumber(args[1]) or 0) < 0) and 'S' or 'N',
math.abs(tonumber(args[2])),
((tonumber(args[2]) or 0) < 0) and 'W' or 'E',
args[3] or ''}, '_')
elseif dmsTest(args[4], args[8]) then
-- dms logic
result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],
args[5], args[6], args[7], args[8], args.format)
if args[10] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 9)
elseif dmsTest(args[3], args[6]) then
-- dm logic
result, errors, backward = parseDMS(args[1], args[2], nil, args[3],
args[4], args[5], nil, args[6], args['format'])
if args[8] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 7)
elseif dmsTest(args[2], args[4]) then
-- d logic
result, errors, backward = parseDMS(args[1], nil, nil, args[2],
args[3], nil, nil, args[4], args.format)
if args[6] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 5)
else
-- Error
return errorPrinter({{"formatTest", "Unknown argument format"}}) .. '[[Category:Pages with malformed coordinate tags]]'
end
result.name = args.name

local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
for _, v in ipairs(extra_param) do
if args[v] then
table.insert(errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' })
end
end

local ret = specPrinter(args, result)
if #errors > 0 then
ret = ret .. ' ' .. errorPrinter(errors) .. '[[Category:Pages with malformed coordinate tags]]'
end
return ret, backward
end

--[[
Generate Wikidata tracking categories.
]]
local function makeWikidataCategories(qid)
local ret
local qid = qid or mw.wikibase.getEntityIdForCurrentPage()
if mw.wikibase and current_page.namespace == 0 then
if qid and mw.wikibase.entityExists(qid) and mw.wikibase.getBestStatements(qid, "P625") and mw.wikibase.getBestStatements(qid, "P625")[1] then
local snaktype = mw.wikibase.getBestStatements(qid, "P625")[1].mainsnak.snaktype
if snaktype == 'value' then
-- coordinates exist both here and on Wikidata, and can be compared.
ret = 'Coordinates on Wikidata'
elseif snaktype == 'somevalue' then
ret = 'Coordinates on Wikidata set to unknown value'
elseif snaktype == 'novalue' then
ret = 'Coordinates on Wikidata set to no value'
end
else
-- We have to either import the coordinates to Wikidata or remove them here.
ret = 'Coordinates not on Wikidata'
end
end
if ret then
return string.format('[[Category:%s]]', ret)
else
return ''
end
end

--[[
link

Simple function to export the coordinates link for other uses.

Usage:
{{#invoke:Coordinates | link }}

]]
function coordinates.link(frame)
return coord_link;
end

--[[
dec2dms

Wrapper to allow templates to call dec2dms directly.

Usage:
{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
negative_suffix | precision }}

decimal_coordinate is converted to DMS format. If positive, the positive_suffix
is appended (typical N or E), if negative, the negative suffix is appended. The
specified precision is one of 'D', 'DM', or 'DMS' to specify the level of detail
to use.
]]
coordinates.dec2dms = makeInvokeFunc('_dec2dms')
function coordinates._dec2dms(args)
local coordinate = args[1]
local firstPostfix = args[2] or ''
local secondPostfix = args[3] or ''
local precision = args[4] or ''

return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
end

--[[
Helper function to determine whether to use D, DM, or DMS
format depending on the precision of the decimal input.
]]
function coordinates.determineMode( value1, value2 )
local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
if precision <= 0 then
return 'd'
elseif precision <= 2 then
return 'dm';
else
return 'dms';
end
end

--[[
dms2dec

Wrapper to allow templates to call dms2dec directly.

Usage:
{{#invoke:Coordinates | dms2dec | direction_flag | degrees |
minutes | seconds }}

Converts DMS values specified as degrees, minutes, seconds too decimal format.
direction_flag is one of N, S, E, W, and determines whether the output is
positive (i.e. N and E) or negative (i.e. S and W).
]]
coordinates.dms2dec = makeInvokeFunc('_dms2dec')
function coordinates._dms2dec(args)
local direction = args[1]
local degrees = args[2]
local minutes = args[3]
local seconds = args[4]

return convert_dms2dec(direction, degrees, minutes, seconds)
end

--[[
coord

Main entry point for Lua function to replace {{coord}}

Usage:
{{#invoke:Coordinates | coord }}
{{#invoke:Coordinates | coord | lat | long }}
{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
...

Refer to {{coord}} documentation page for many additional parameters and
configuration options.

Note: This function provides the visual display elements of {{coord}}. In
order to load coordinates into the database, the {{#coordinates:}} parser
function must also be called, this is done automatically in the Lua
version of {{coord}}.
]]
coordinates.coord = makeInvokeFunc('_coord')
function coordinates._coord(args)
if not tonumber(args[1]) and not args[2] then
args[3] = args[1]; args[1] = nil
local entity = mw.wikibase.getEntityObject(args.qid)
if entity
and entity.claims
and entity.claims.P625
and entity.claims.P625[1].mainsnak.snaktype == 'value'
then
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
if precision then
precision = -math_mod._round(math.log(precision)/math.log(10),0)
args[1] = math_mod._round(args[1],precision)
args[2] = math_mod._round(args[2],precision)
end
end
end

local contents, backward = formatTest(args)
local Notes = args.notes or ''
local Display = args.display and args.display:lower() or 'inline'

-- it and ti are short for inline,title and title,inline
local function isInline(s)
-- Finds whether coordinates are displayed inline.
return s:find('inline') ~= nil or s == 'i' or s == 'it' or s == 'ti'
end
local function isInTitle(s)
-- Finds whether coordinates are displayed in the title.
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
end

local function coord_wrapper(in_args)
-- Calls the parser function {{#coordinates:}} when available.
local ok, result = pcall(function()
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args)
end)
if ok then
return result or ''
end
return ''
end

local text = ''
if isInline(Display) then
text = text .. '<span class="geo-inline">' .. contents .. Notes .. '</span>'
end
if isInTitle(Display) then
-- Add to output since indicator content is invisible to Lua later on
if not isInline(Display) then
text = text .. '<span class="geo-inline-hidden noexcerpt">' .. contents .. Notes .. '</span>'
end
text = text .. displaytitle(contents .. Notes) .. makeWikidataCategories(args.qid)
end
if not args.nosave then
local page_title, count = mw.title.getCurrentTitle(), 1
if backward then
local tmp = {}
while not string.find((args[count-1] or ''), '[EW]') do tmp[count] = (args[count] or ''); count = count+1 end
tmp.count = count; count = 2*(count-1)
while count >= tmp.count do table.insert(tmp, 1, (args[count] or '')); count = count-1 end
for i, v in ipairs(tmp) do args[i] = v end
else
while count <= 9 do args[count] = (args[count] or ''); count = count+1 end
end
if isInTitle(Display) and not page_title.isTalkPage and page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
args.notes, args.format, args.display = nil
text = text .. coord_wrapper(args)
end
return text
end

--[[
coord2text

Extracts a single value from a transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coord2text | {{Coord}} | parameter }}

Valid values for the second parameter are: lat (signed integer), long (signed integer), type, scale, dim, region, globe, source

]]
function coordinates._coord2text(coord,type)
if coord == '' or type == '' or not type then return nil end
type = mw.text.trim(type)
if type == 'lat' or type == 'long' then
local coordString = mw.ustring.match(coord,'[%.%d]+°[NS] [%.%d]+°[EW]')
if not coordString then
return nil
end
local result = mw.text.split(coordString, ' ')
local negative
if type == 'lat' then
result, negative = result[1], 'S'
else
result, negative = result[2], 'W'
end
if not result then
return nil
end
result = mw.text.split(result, '°')
if not result[1] then
return nil
end
if result[2] == negative then result[1] = '-'..result[1] end
return result[1]
else
return mw.ustring.match(coord, 'params=.-_' .. type .. ':(.-)[ _]')
end
end

function coordinates.coord2text(frame)
return coordinates._coord2text(frame.args[1],frame.args[2]) or ''
end

--[[
coordinsert

Injects some text into the Geohack link of a transclusion of {{Coord}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

{{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}

Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} documentation.

]]
function coordinates.coordinsert(frame)
-- for the 2nd or later integer parameter (the first is the coord template, as above)
for i, v in ipairs(frame.args) do
if i ~= 1 then
-- if we cannot find in the coord_template the i_th coordinsert parameter e.g. region
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then
-- find from the params= up to the first possibly-present underscore
-- and append the i_th coordinsert parameter and a space
-- IDK why we're adding a space but it does seem somewhat convenient
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ')
end
end
end
if frame.args.name then
-- if we can't find the vcard class
if not mw.ustring.find(frame.args[1], '<span class="vcard">') then
-- take something that looks like a coord template and add the vcard span with class and fn org class
local namestr = frame.args.name
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)',
'%1<span class="vcard">%2<span style="display:none"> (<span class="fn org">' .. namestr .. '</span>)</span></span>%3'
)
-- then find anything from coordinates parameters to the 'end' and attach the title parameter
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(&params=[^&"<>%[%] ]*) ',
'%1&title=' .. mw.uri.encode(namestr) .. ' '
)
end
end

-- replace the existing indicator with a new indicator using the modified content
frame.args[1] = mw.ustring.gsub(
frame.args[1],
'(<span class="geo%-inline[^"]*">(.+)</span>)\127[^\127]*UNIQ%-%-indicator%-%x+%-%-?QINU[^\127]*\127',
function (inline, coord) return inline .. displaytitle(coord) end
)

return frame.args[1]
end

return coordinates

Leaders

2026-04-05T09:58:42Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders page

'''Leaders''' is a curated index of founders, heads, and key figures connected to the organizations Cultopedia is currently tracking.

This page is intentionally selective. It focuses on people who were central to the leadership of the organizations in Cultopedia's current MVP scope.

{| class="wikitable sortable"
! Leader
! Organization or organizations
! Years in leadership
! Current situation
|-
| [[A. C. Bhaktivedanta Swami Prabhupada]]
| [[International Society for Krishna Consciousness]]
|
| Alive; listed here as current leader
|-
| [[Abdullah Hashem]]
| [[Ahmadi Religion of Peace and Light]]
|
| Alive; listed here as current leader
|-
| [[Agnès Callamard]]
| [[Amnesty International]]
| 1995–present
| Alive; still leads organization
|-
| [[Ahmed al-Hasan]]
| [[Soldiers of Heaven]]
|
| Alive
|-
| [[Alan John Miller (known as "AJ")]]
| [[Divine Truth]]
|
| Alive; listed here as current leader
|-
| [[Alexander Everett]]
| [[Mind Dynamics]]
|
| Deceased
|-
| [[Allen Noonan]]
| [[One World Family Commune]]
|
| Alive; listed here as current leader
|-
| [[Allison Mack]]
| [[NXIVM]]
|
|
|-
| [[Amy Carlson (religious leader)]]
| [[Love Has Won]]
|
| Alive; listed here as current leader
|-
| [[Ann Lee]]
| [[Shakers]]
| 1758–1784
| Deceased
|-
| [[Anthony Levandowski]]
| [[Way of the Future]]
| since 2009
| Alive; listed here as current leader
|-
| [[Arnaud Mussy]]
| [[Néo-Phare]]
|
| Alive; listed here as current leader
|-
| [[Ayah Pin]]
| [[Sky Kingdom]]
|
| Deceased
|-
| [[Baba Simeo Lodvikus Melkio Ondetto]]
| [[Legio Maria]]
|
| Alive; listed here as current leader
|-
| [[Bavua Ntinu Decantor Andrew]]
| [[Puissance spirituelle du verbe]]
|
| Alive; listed here as current leader
|-
| [[Benjamin Roden]]
| [[Branch Davidians]]
|
| Deceased
|-
| [[Bernadette Meehan]]
| [[Wikimedia Foundation]]
|
| Alive; listed here as current leader
|-
| [[Bhagwan Shree Rajneesh]]
| [[Rajneesh movement]]
| 1970-1990
| Deceased
|-
| [[Bill Levin]]
| [[First Church of Cannabis]]
|
| Alive; listed here as current leader
|-
| [[Bishop Patrick L. Frazier Jr]]
| [[Fire Baptized Holiness Church of God of the Americas]]
|
| Alive; listed here as current leader
|-
| [[Bob Weiner]]
| [[Maranatha Campus Ministries]]
|
| Alive; listed here as current leader
|-
| [[Bonnie Nettles]]
| [[Heaven's Gate (religious group)]]
|
| Deceased
|-
| [[Brian Tamaki]]
| [[Destiny Church (New Zealand)]]
|
| Alive
|-
| [[Brock Blomberg]]
| [[California Institute of Integral Studies]]
|
| Alive; listed here as current leader
|-
| [[Bruce Hales]]
| [[Plymouth Brethren Christian Church]]
|
| Alive; listed here as current leader
|-
| [[Cecilia Eggleston]]
| [[Metropolitan Community Church]]
| 1989–present
| Alive; still leads organization
|-
| [[Charles Boyd Gentzel]]
| [[Mark-Age]]
|
|
|-
| [[Charles Dederich Sr]]
| [[Synanon]]
|
|
|-
| [[Charles Manson]]
| [[Manson Family]]
|
| Deceased
|-
| [[Charles Taze Russell]]
| [[Jehovah's Witnesses]]
|
| Deceased
|-
| [[Chris Butler (aka Siddhaswarupananda Paramahamsa)]]
| [[Science of Identity Foundation]]
|
| Alive; listed here as current leader
|-
| [[Chris Korda]]
| [[Church of Euthanasia]]
|
| Alive; listed here as current leader
|-
| [[Clare Bronfman]]
| [[NXIVM]]
|
|
|-
| [[David Berg]]
| [[The Family International]] / Children of God
| 1968-1994
| Deceased
|-
| [[David Brian Stone Sr]]
| [[Hutaree]]
|
| Alive; listed here as current leader
|-
| [[David C. Pack]]
| [[Restored Church of God]]
|
| Alive; listed here as current leader
|-
| [[David Ekerbring]]
| [[Word of Life (Sweden)]]
|
| Alive; listed here as current leader
|-
| [[David Koresh]]
| [[Branch Davidians]]
| 1988-1993
| Deceased
|-
| [[David Lane (white supremacist)]]
| [[Wotansvolk]]
|
| Deceased
|-
| [[David Miscavige]]
| [[Scientology|Church of Scientology]]
| 1986-present
| Alive; still leads organization
|-
| [[Dia Abdul Zahra Kadim]]
| [[Soldiers of Heaven]]
|
|
|-
| [[Dick Price]]
| [[Esalen Institute]]
|
| Deceased
|-
| [[Dorothy Bailey]]
| [[Amica Temple of Radiance]]
|
|
|-
| [[Dorothy Martin]]
| [[The Seekers (rapturists)]]
|
| Alive; listed here as current leader
|-
| [[Doug Kunin]]
| [[Eckankar]]
|
| Alive; listed here as current leader
|-
| [[Eberhard Arnold]]
| [[Bruderhof Communities]]
|
| Deceased
|-
| [[Edir Macedo]]
| [[Universal Church of the Kingdom of God]]
|
| Alive; listed here as current leader
|-
| [[Eduardo González Arenas]]
| [[Edelweiss (organization)]]
|
|
|-
| [[Edward Mielnik]]
| [[Antrovis]]
|
|
|-
| [[Elbert "Gene" Spriggs]]
| [[Twelve Tribes communities]]
|
| Alive; listed here as current leader
|-
| [[Elijah Hong]]
| [[New Testament Church (Hong Kong)]]
|
| Alive; listed here as current leader
|-
| [[Elizabeth Clare Prophet]]
| [[Church Universal and Triumphant]]
| 1959–2009
| Deceased
|-
| [[Emanuel Swedenborg]]
| [[Swedenborgianism]]
|
| Deceased
|-
| [[Emiliano Salinas]]
| [[NXIVM]]
|
|
|-
| [[Erika Bertschinger-Eicke]]
| [[Fiat Lux (UFO religion)]]
|
| Alive; listed here as current leader
|-
| [[Estevam Hernandes]]
| [[Reborn in Christ Church]]
|
| Alive; listed here as current leader
|-
| [[Gen-la Kelsang Dekyong]]
| [[New Kadampa Tradition]]
|
| Alive; listed here as current leader
|-
| [[George King (religious leader)]]
| [[Aetherius Society]]
| 1954–1997
| Deceased
|-
| [[George Müller]]
| [[Open Brethren]]
|
| Deceased
|-
| [[Gerald E. Weston]]
| [[Living Church of God]]
|
| Alive; listed here as current leader
|-
| [[Hak Ja Han]]
| [[Unification Church]]
|
| Alive; listed here as current leader
|-
| [[Hakeem Abdul Rasheed]]
| [[Church of Hakeem]]
|
| Alive; listed here as current leader
|-
| [[Hannah Tamaki]]
| [[Destiny Church (New Zealand)]]
|
| Alive
|-
| [[Haven Boggs]]
| [[Living Enrichment Center]]
|
|
|-
| [[Heide Fittkau-Garthe]]
| [[Atman Foundation]]
|
| Alive; listed here as current leader
|-
| [[Henri Hillion]]
| [[Monastic Order of Avallon]]
|
| Alive; listed here as current leader
|-
| [[Henry Prince]]
| [[Agapemonites]]
|
|
|-
| [[Hon-Ming Chen (陳恆明)]]
| [[Chen Tao (UFO religion)]]
|
| Alive; listed here as current leader
|-
| [[Honório Pinto]]
| [[Assembly of God Bethlehem Ministry]]
|
| Alive; listed here as current leader
|-
| [[Igor Danilov]]
| [[AllatRa]]
|
| Alive; listed here as current leader
|-
| [[J. Z. Knight]]
| [[Ramtha's School of Enlightenment]]
| 1977–present
| Alive; still leads organization
|-
| [[Jaime Gomez (also known as Michel Rostan)]]
| [[Buddhafield (religious movement)]]
|
| Alive; listed here as current leader
|-
| [[Jean Spademan]]
| [[Bethel Church]] / [[Mansfield Woodhouse]]
|
|
|-
| [[Jean-Paul Appel]]
| [[Siderella]]
|
| Alive; listed here as current leader
|-
| [[Jerold Gliege]]
| [[Evangelical Orthodox Church]]
|
| Alive; listed here as current leader
|-
| [[Jerry Williams]]
| [[The Brethren (Jim Roberts group)]]
|
| Alive; listed here as current leader
|-
| [[Ji Sanbao]]
| [[Mentuhui]]
|
| Alive; listed here as current leader
|-
| [[Jim Jones]]
| [[Peoples Temple]]
| 1955-1978
| Deceased
|-
| [[John Hanley Sr]]
| [[Lifespring]]
|
|
|-
| [[John Hibbert]]
| [[Bethel Church]] / [[Mansfield Woodhouse]]
|
|
|-
| [[John Morton]]
| [[Movement of Spiritual Inner Awareness]]
|
| Alive; listed here as current leader
|-
| [[John Robert Stevens]]
| [[Church of the Living Word]]
|
| Alive; listed here as current leader
|-
| [[Jonás Ataucusi Molina]]
| [[Evangelical Association of the Israelite Mission of the New Universal Covenant]]
|
| Alive; listed here as current leader
|-
| [[Jorge Ángel Livraga Rizzi]]
| [[New Acropolis]]
|
| Deceased
|-
| [[Joseph Di Mambro]]
| [[Order of the Solar Temple]]
| 1984-1994
| Deceased
|-
| [[Joseph Franklin Rutherford]]
| [[Jehovah's Witnesses]]
|
| Deceased
|-
| [[Joseph Odermatt]]
| [[Palmarian Catholic Church]]
|
| Alive; listed here as current leader
|-
| [[João Torunsky]]
| [[The Christian Community]]
|
| Alive; listed here as current leader
|-
| [[Juliano Verbard]]
| [[Sorrowful and Immaculate Heart of Mary (cult)]]
|
| Alive; listed here as current leader
|-
| [[Julien Origas]]
| [[Renewed Order of the Temple]]
|
| Deceased
|-
| [[Jung Myung-seok]]
| [[Providence (religious movement)]]
|
| Alive; listed here as current leader
|-
| [[Katsutoshi Sekiguchi]]
| [[World Divine Light]]
|
| Alive; listed here as current leader
|-
| [[Keith Raniere]]
| [[NXIVM]]
|
|
|-
| [[Kim Joo-Cheol]]
| [[World Mission Society Church of God]]
|
| Alive; listed here as current leader
|-
| [[Kirby J. Hensley]]
| [[Universal Life Church]]
| 1962–1999
| Deceased
|-
| [[Konstantin Rudnev]]
| [[Ashram Shambala]]
|
| Deceased
|-
| [[Kurusar Lokhon Engti Hensek]]
| [[Lokhimon]]
|
| Alive; listed here as current leader
|-
| [[Kōō Okada]]
| [[Sukyo Mahikari]]
|
| Alive; listed here as current leader
|-
| [[L. Ron Hubbard]]
| [[Scientology]]
| 1952-1986
| Deceased
|-
| [[Lee Man-hee]]
| [[Shincheonji Church of Jesus]]
|
| Alive; listed here as current leader
|-
| [[Lekhraj Kripalani]]
| [[Brahma Kumaris]]
|
| Alive; listed here as current leader
|-
| [[Leon MacLaren]]
| [[School of Economic Science]]
|
| Alive; listed here as current leader
|-
| [[Louis Antoine]]
| [[Antoinism]]
|
| Alive; listed here as current leader
|-
| [[Louis Farrakhan]]
| [[Nation of Islam]]
|
| Alive; listed here as current leader
|-
| [[Luc Jouret]]
| [[Order of the Solar Temple]]
| 1984-1994
| Deceased
|-
| [[Lucien Greaves]]
| [[The Satanic Temple]]
|
| Alive; listed here as current leader
|-
| [[Maharishi Mahesh Yogi]]
| [[Maharishi International University]]
|
| Deceased
|-
| [[Marie-Thérèse Castano]]
| [[International Center of Parapsychology and Scientific Research of the New Age]]
|
| Alive; listed here as current leader
|-
| [[Marion Pettie]]
| [[The Finders (movement)]]
|
| Alive; listed here as current leader
|-
| [[Marshall Applewhite]]
| [[Heaven's Gate (religious group)|Heaven's Gate]]
| 1974-1997
| Deceased
|-
| [[Marshall Vian Summers]]
| [[New Message from God]]
|
| Alive; listed here as current leader
|-
| [[Mary Baker Eddy]]
| [[Christian Science]]
|
| Deceased
|-
| [[Mary Manin Morrissey]]
| [[Living Enrichment Center]]
|
|
|-
| [[María Luisa Piraquive]]
| [[Church of God Ministry of Jesus Christ International]]
| 1971–present
| Alive; still leads organization
|-
| [[Michael A. Aquino]]
| [[Temple of Set]]
|
| Deceased
|-
| [[Michael Leavitt]]
| [[Landmark Worldwide]]
|
| Alive; listed here as current leader
|-
| [[Michael Murphy (author)]]
| [[Esalen Institute]]
|
|
|-
| [[Michel Collin]]
| [[Apostles of Infinite Love]]
|
| Alive; listed here as current leader
|-
| [[Michel Potay]]
| [[Pilgrims of Arès]]
|
| Alive; listed here as current leader
|-
| [[Minoru Harada]]
| [[Soka Gakkai]]
|
| Alive; listed here as current leader
|-
| [[Mirjana Spoljaric Egger]]
| [[International Committee of the Red Cross]]
|
| Alive; listed here as current leader
|-
| [[Naasón Joaquín García]]
| [[La Luz del Mundo]]
|
| Alive; listed here as current leader
|-
| [[Nancy Salzman]]
| [[NXIVM]]
|
| Alive
|-
| [[Neville Cooper]]
| [[Gloriavale Christian Community]]
|
| Alive; listed here as current leader
|-
| [[Noel Stanton]]
| [[Jesus Army]]
|
| Deceased
|-
| [[Oba Adejuyigbe Adefunmi II]]
| [[African Theological Archministry]]
|
| Alive; listed here as current leader
|-
| [[Oberto Airaudi]]
| [[Federation of Damanhur]]
| 1975–2013
| Deceased
|-
| [[Ock Soo Park]]
| [[Good News Mission]]
|
| Alive; listed here as current leader
|-
| [[Olivier Fenoy]]
| [[Cultural Office of Cluny]]
|
| Alive; listed here as current leader
|-
| [[Pai Seta Branca]]
| [[Valley of the Dawn]]
|
| Alive; listed here as current leader
|-
| [[Pastor S.O Oladele]]
| [[Christ Apostolic Church]]
|
| Alive; listed here as current leader
|-
| [[Patricia Paulsen]]
| [[Sunburst (community)]]
|
| Alive; listed here as current leader
|-
| [[Paul Baumann]]
| [[Methernitha]]
|
| Alive; listed here as current leader
|-
| [[Paul Erdmann aka Love Israel]]
| [[Love Family]]
|
| Alive; listed here as current leader
|-
| [[Paul Nthenge Mackenzie]]
| [[Good News International Ministries]]
|
|
|-
| [[Paul P. Harris]]
| [[Rotary International]]
|
| Alive; listed here as current leader
|-
| [[Paul Wei]]
| [[True Jesus Church]]
|
| Deceased
|-
| [[Pauline Sharpe]]
| [[Mark-Age]]
|
|
|-
| [[Peter H. Gilmore]]
| [[Church of Satan]]
|
| Alive; listed here as current leader
|-
| [[Philip Berg]]
| [[Kabbalah Centre]]
|
| Deceased
|-
| [[Prem Rawat]]
| [[Elan Vital (organization)]]
| 1966–present
| Alive; still leads organization
|-
| [[Purodhā Pramukha]]
| [[Ananda Marga]]
|
| Alive; listed here as current leader
|-
| [[Ra Un Nefer Amen]]
| [[Ausar Auset Society]]
|
| Alive; listed here as current leader
|-
| [[Rashad Jamal]]
| [[University of Cosmic Intelligence]]
|
| Alive; listed here as current leader
|-
| [[Raël]]
| [[Raelian movement]]
|
| Alive; listed here as current leader
|-
| [[Riaz Ahmed Gohar Shahi]]
| [[Messiah Foundation International]]
|
| Alive; listed here as current leader
|-
| [[Robert Earl Burton]]
| [[Fellowship of Friends]]
|
| Alive; listed here as current leader
|-
| [[Roland T. Hunt]]
| [[Amica Temple of Radiance]]
|
|
|-
| [[Ruben Ecleo Sr.]]
| [[Philippine Benevolent Missionaries Association]]
|
| Deceased
|-
| [[Ryan Ringnald]]
| [[Church of Wells]]
|
| Alive; listed here as current leader
|-
| [[Ryuho Okawa]]
| [[Happy Science]]
| 1996-2023; 1986-1996
| Deceased
|-
| [[Sam J. Wibberley]]
| [[Bethel Church]] / [[Mansfield Woodhouse]]
|
|
|-
| [[Samuel Chang-Woo Lee]]
| [[University Bible Fellowship]]
|
|
|-
| [[Samuel Oshoffa]]
| [[Celestial Church of Christ]]
|
| Deceased
|-
| [[Sarah Barry]]
| [[University Bible Fellowship]]
|
|
|-
| [[Shin Ok-ju]]
| [[Grace Road Church]]
|
| Alive; listed here as current leader
|-
| [[Shoko Asahara]]
| [[Aum Shinrikyo]]
| 1987-1995
| Deceased
|-
| [[Shukri Mustafa]]
| [[Takfir wal-Hijra]]
|
| Alive; listed here as current leader
|-
| [[Simon Kimbangu Kiangani]]
| [[Kimbanguism]]
|
| Alive; listed here as current leader
|-
| [[Simon Mokoena]]
| [[Tyrannus Apostolic Church]]
|
| Alive; listed here as current leader
|-
| [[Sofía Betancourt]]
| [[Unitarian Universalist Association]]
|
| Alive; listed here as current leader
|-
| [[Sri Aurobindo]]
| [[Sri Aurobindo Ashram]]
|
| Deceased
|-
| [[Steve Morgan]]
| [[The Network (group of churches)]]
|
| Alive; listed here as current leader
|-
| [[Sun Myung Moon]]
| [[Unification Church]]
| 1954-2012
| Deceased
|-
| [[Thomas Schaller (Chair, Board of Elders)]]
| [[Greater Grace World Outreach]]
|
| Alive; listed here as current leader
|-
| [[Tore Tvedt]]
| [[Vigrid (Norway)]]
|
| Alive; listed here as current leader
|-
| [[Victor Barnard]]
| [[River Road Fellowship]]
|
|
|-
| [[Wallace C. Halsey]]
| [[Christ Brotherhood]]
|
| Alive; listed here as current leader
|-
| [[Warren Jeffs]]
| [[Fundamentalist Church of Jesus Christ of Latter-Day Saints|FLDS Church]]
| 2002-present
| Alive; still regarded by followers as leader
|-
| [[Wayman O. Mitchell]]
| [[Potter's House Christian Fellowship]]
|
| Alive; listed here as current leader
|-
| [[Werner Erhard]]
| [[Erhard Seminars Training]]
|
|
|-
| [[William Irvine (Scottish evangelist)]]
| [[Two by Twos]]
|
| Deceased
|-
| [[William R. Ferguson]]
| [[Cosmic Circle of Fellowship]]
|
| Deceased
|-
| [[William Sowders]]
| [[Gospel Assembly Churches]]
|
| Alive; listed here as current leader
|-
| [[Yogi Bhajan]]
| [[3HO]]
|
| Deceased
|-
| [[Yoo Jae-yeol]]
| [[Tabernacle Temple Church]]
|
|
|-
| [[Younus AlGohar]]
| [[Kalki Avatar Foundation]]
|
| Alive; listed here as current leader
|-
| [[Yvonne Trubert]]
| [[Invitation to Life]]
|
| Alive; listed here as current leader
|}

== Related pages ==
* [[Organizations]]
* [[Main Page]]

Organizations

2026-04-05T09:58:40Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations page

'''Organizations''' is a curated index of groups that Cultopedia currently tracks.

Cultopedia imports Wikipedia entries of organizations which, at least by some, have been indicated to be a cult or a sect. This page is intentionally selective and is meant to give a quick overview of the organizations currently included in the project.

{| class="wikitable sortable"
! Organization
! Founded
! Status
! Founder
! Current leader
! Current name
|-
| [["I AM" Activity]]
|
| Active
|
|
|
|-
| [[3HO]]
| 1969
| Active
| [[Yogi Bhajan]]
|
|
|-
| [[Adidam]]
|
| Unknown
|
|
|
|-
| [[Aetherius Society]]
| 1955
| Unknown
|
|
|
|-
| [[African Theological Archministry]]
| 1970
| Active
|
| [[Oba Adejuyigbe Adefunmi II]]
|
|-
| [[Agapemonites]]
| 1846
| Closed 1956
| Henry Prince
|
|
|-
| [[Ahmadi Religion of Peace and Light]]
|
| Active
| [[Abdullah Hashem]]
| [[Abdullah Hashem]]
| The Ahmadi Religion of Peace and Light
|-
| [[Alamo Christian Foundation]]
|
| Active
| Tony Alamo, Susan Alamo
|
|
|-
| [[All Ranges Church]]
|
| Unknown
|
|
|
|-
| [[AllatRa]]
| 2014
| Active
| AllatRa LLC
| [[Igor Danilov]]
|
|-
| [[Amica Temple of Radiance]]
| 1959
| Unknown
| Roland T. Hunt, Dorothy Bailey
|
|
|-
| [[Amnesty International]]
|
| Active
| [[Peter Benenson]], [[Eric Baker (activist)]], [[Seán MacBride]]
| [[Agnès Callamard]]
|
|-
| [[Ananda Marga]]
|
| Active
| [[Prabhat Ranjan Sarkar]]
| [[Purodhā Pramukha]]
| Ánanda Márga Pracáraka Saḿgha
|-
| [[Ancient British Church]]
|
| Unknown
|
|
|
|-
| [[Ancient Teachings of the Masters]]
|
| Unknown
|
|
|
|-
| [[Ant Hill Kids]]
|
| Unknown
|
|
|
|-
| [[Antoinism]]
|
| Active
|
| [[Louis Antoine]]
|
|-
| [[Antrovis]]
|
| Closed 1994
| Edward Mielnik
|
|
|-
| [[Apostles of Infinite Love]]
|
| Active
| Michel Collin
| [[Michel Collin]]
|
|-
| [[Ashram Shambala]]
|
| Unknown
| Konstantin Rudnev
|
|
|-
| [[Ashtar Galactic Command]]
|
| Unknown
|
|
|
|-
| [[Assembly of God Bethlehem Ministry]]
| 2018
| Active
| Honório Pinto
| [[Honório Pinto]]
| Assembly of God of Belém Pará, Brazil
|-
| [[Atman Foundation]]
|
| Active
|
| [[Heide Fittkau-Garthe]]
|
|-
| [[Aum Shinrikyo]]
|
| Active, split successors
| [[Shoko Asahara]]
| No single leader
|
|-
| [[Ausar Auset Society]]
| 1973
| Active
|
| [[Ra Un Nefer Amen]]
|
|-
| [[Bana'im]]
|
| Unknown
|
|
|
|-
| [[Bethel Church, Mansfield Woodhouse]]
|
| Unknown
|
|
|
|-
| [[Brahma Kumaris]]
|
| Active
| [[Lekhraj Kripalani]]
| [[Lekhraj Kripalani]]
|
|-
| [[Branch Davidians]]
|
| Active, fragmented
| [[Benjamin Roden]]
| [[Trent Wilde]] ''(one continuing group)''
|
|-
| [[British New Church Movement]]
|
| Active
|
|
|
|-
| [[Brother Stair]]
|
| Active
|
|
|
|-
| [[Brotherhood of the Cross and Star]]
|
| Active
|
|
|
|-
| [[Bruderhof Communities]]
|
| Active
| [[Eberhard Arnold]]
|
| Bruderhof
|-
| [[Buddhafield (religious movement)]]
|
| Active
| Jaime Gomez (also known as Michel Rostan)
| [[Jaime Gomez (also known as Michel Rostan)]]
| Buddhafield
|-
| [[California Institute of Integral Studies]]
|
| Active
|
| [[Brock Blomberg]]
|
|-
| [[Camisards]]
|
| Unknown
|
|
|
|-
| [[CEIRUS]]
|
| Unknown
|
|
|
|-
| [[Celestial Church of Christ]]
| 1947
| Unknown
| [[Samuel Oshoffa]]
|
|
|-
| [[Chapel of Russia's Resurrection]]
|
| Active
|
|
|
|-
| [[Charismatic movement]]
|
| Active
|
|
|
|-
| [[Chen Tao (UFO religion)]]
| 1996
| Active
| Hon-Ming Chen (陳恆明)
| [[Hon-Ming Chen (陳恆明)]]
| Chen Tao
|-
| [[Cherubim and Seraphim Society]]
|
| Unknown
|
|
|
|-
| [[Christ Apostolic Church]]
| 1918
| Active
| Pastor Isaac Babalola Akinyele, Pastor David O. Odubanjo, Apostle Joseph Ayo Babalola
| [[Pastor S.O Oladele]]
|
|-
| [[Christ Brotherhood]]
| 1956
| Active
| Wallace C. Halsey
| [[Wallace C. Halsey]]
|
|-
| [[Christ Heart Church]]
|
| Active
|
|
|
|-
| [[Christian fundamentalism]]
|
| Active
|
|
|
|-
| [[Christian Science]]
|
| Active
| [[Mary Baker Eddy]]
|
|
|-
| [[Church Body of Christ – Filipinista]]
|
| Active
|
|
|
|-
| [[Church of Almighty God]]
|
| Unknown
|
|
|
|-
| [[Church of Bible Understanding]]
|
| Active
|
|
|
|-
| [[Church of Body Modification]]
|
| Unknown
|
|
|
|-
| [[Church of Cognizance]]
|
| Unknown
|
|
|
|-
| [[Church of Euthanasia]]
| 1992
| Active
| [[Chris Korda]]
| [[Chris Korda]]
|
|-
| [[Church of God Ministry of Jesus Christ International]]
| 1972
| Active
| [[Luis Eduardo Moreno]], [[María Luisa Piraquive]]
| [[María Luisa Piraquive]]
| Church of God, Ministry of Jesus Christ International
|-
| [[Church of God Preparing for the Kingdom of God]]
|
| Active
|
|
|
|-
| [[Church of Hakeem]]
| 1977
| Active
|
| [[Hakeem Abdul Rasheed]]
|
|-
| [[Church of Satan]]
| 1966
| Active
| [[Anton Szandor LaVey]]
| [[Peter H. Gilmore]]
|
|-
| [[Church of the First Born of the Lamb of God]]
|
| Unknown
|
|
|
|-
| [[Church of the Firstborn (Morrisite)]]
|
| Unknown
|
|
|
|-
| [[Church of the Guanche People]]
| 2001
| Unknown
|
|
|
|-
| [[Church of the Living Word]]
| 1951
| Active
|
| [[John Robert Stevens]]
| The Living Word Fellowship
|-
| [[Church of the Lord (Aladura)]]
|
| Active
|
|
|
|-
| [[Church of the Universe]]
|
| Unknown
|
|
|
|-
| [[Church of Wells]]
| 2011
| Active
|
| [[Ryan Ringnald]]
|
|-
| [[Church Universal and Triumphant]]
| 1975
| Unknown
|
|
|
|-
| [[Colonia Dignidad]]
|
| Active
|
|
|
|-
| [[Community of the Lady of All Nations]]
|
| Active
|
|
|
|-
| [[Concerned Christians]]
|
| Unknown
|
|
|
|-
| [[Cosmic Circle of Fellowship]]
| 1954
| Unknown
| [[William R. Ferguson]]
|
|
|-
| [[Cosmon Research Foundation]]
|
| Unknown
|
|
|
|-
| [[Cultural Office of Cluny]]
| 1963
| Active
| Olivier Fenoy
| [[Olivier Fenoy]]
|
|-
| [[Dami Mission]]
|
| Unknown
|
|
|
|-
| [[Destiny Church (New Zealand)]]
|
| Active
| [[Brian Tamaki]], [[Hannah Tamaki]]
|
| Destiny Church
|-
| [[Divine Immortality Church]]
|
| Unknown
|
|
|
|-
| [[Divine Light Mission]]
|
| Unknown
|
|
|
|-
| [[Divine Truth]]
| 2007
| Active
| Alan John Miller (known as "AJ" and "Jesus")
| [[Alan John Miller (known as "AJ")]]
|
|-
| [[Dulcinians]]
|
| Unknown
|
|
|
|-
| [[Dwell Community Church]]
|
| Unknown
|
|
|
|-
| [[Dōkai]]
|
| Active
|
|
|
|-
| [[Eckankar]]
| 1965
| Active
| [[Paul Twitchell]]
| [[Doug Kunin]]
|
|-
| [[Edelweiss (organization)]]
| 1970
| Closed 1984
| Eduardo González Arenas
|
|
|-
| [[Eden Community]]
|
| Active
|
|
|
|-
| [[Educo]]
|
| Unknown
|
|
|
|-
| [[Elan Vital (organization)]]
| 1971
| Active
|
| [[Prem Rawat]]
| Elan Vital
|-
| [[Emin (esoteric movement)]]
|
| Active
|
|
|
|-
| [[Energo-Chromo-Kinese]]
|
| Active
|
|
|
|-
| [[Eranos Foundation]]
|
| Active
|
|
|
|-
| [[Erhard Seminars Training]]
| 1971
| Closed 1984
|
|
|
|-
| [[Esalen Institute]]
| 1962
| Active
| [[Michael Murphy (author)]], [[Dick Price]]
|
|
|-
| [[Eschatology (religious movement)]]
|
| Active
|
|
|
|-
| [[Evangelical Association of the Israelite Mission of the New Universal Covenant]]
| 1968
| Active
| [[Ezequiel Ataucusi Gamonal]]
| [[Jonás Ataucusi Molina]]
|
|-
| [[Evangelical Baptist Church of Korea]]
|
| Unknown
|
|
|
|-
| [[Evangelical Orthodox Church]]
| 1979
| Active
| [[Peter E. Gillquist]]
| [[Jerold Gliege]]
|
|-
| [[Exegesis (group)]]
|
| Unknown
|
|
|
|-
| [[Falun Buddha Society (Singapore)]]
|
| Active
|
|
|
|-
| [[Falun Gong]]
|
| Active
|
|
|
|-
| [[Family Radio]]
| 1959
| Active
| [[Richard H. Palmquist]], [[Harold Camping]]
|
|
|-
| [[Federation of Damanhur]]
| 1975
| Unknown
|
|
|
|-
| [[Fellowship of Friends]]
| 1970
| Active
| Robert Earl Burton
| [[Robert Earl Burton]]
|
|-
| [[Fellowship of Isis]]
|
| Active
|
|
|
|-
| [[Fiat Lux (UFO religion)]]
| 1980
| Active
| Erika Bertschinger-Eicke
| [[Erika Bertschinger-Eicke]]
|
|-
| [[Findhorn Foundation]]
|
| Active
|
|
| Findhorn Foundation and Community
|-
| [[Fire Baptized Holiness Church of God of the Americas]]
| 1908
| Active
| Benjamin Hardin Irwin and Bishop William Edward Fuller Sr.
| [[Bishop Patrick L. Frazier Jr]]
|
|-
| [[First Cannabis Church of Logic and Reason]]
|
| Active
|
|
|
|-
| [[First Church of Cannabis]]
| 2015
| Active
| Bill "Grand Poobah" Levin
| [[Bill Levin]]
|
|-
| [[Five-Percent Nation]]
|
| Active
|
|
|
|-
| [[Fort Hill Community]]
|
| Unknown
|
|
|
|-
| [[Fourth Great Awakening]]
|
| Unknown
|
|
|
|-
| [[Freie Interessengemeinschaft für Grenz- und Geisteswissenschaften und Ufologiestudien]]
|
| Unknown
|
|
|
|-
| [[Friends of Man]]
|
| Unknown
|
|
|
|-
| [[Fundamentalist Church of Jesus Christ of Latter-Day Saints]]
|
| Active
|
| [[Warren Jeffs]]
| FLDS Church
|-
| [[George Adamski Foundation]]
|
| Unknown
|
|
|
|-
| [[Global Harvest Ministries]]
|
| Unknown
|
|
|
|-
| [[Gloriavale Christian Community]]
|
| Active
| Neville Cooper
| [[Neville Cooper]]
|
|-
| [[God Light Association]]
|
| Unknown
|
|
|
|-
| [[Good News International Ministries]]
| 2003
| Closed 2019
| Paul Nthenge Mackenzie
|
|
|-
| [[Good News Mission]]
| 1972
| Active
| [[Ock Soo Park]]
| [[Ock Soo Park]]
|
|-
| [[Gospel Assembly Churches]]
| 1914
| Active
| William Sowders
| [[William Sowders]]
|
|-
| [[Grace Road Church]]
| 2002
| Active
| Shin Ok-ju
| [[Shin Ok-ju]]
|
|-
| [[Greater Grace World Outreach]]
| 1973
| Active
| [[Carl H. Stevens Jr.]]
| [[Thomas Schaller (Chair, Board of Elders)]]
|
|-
| [[Greenpeace]]
|
| Active
|
|
|
|-
| [[Ground Crew Project]]
|
| Active
|
|
|
|-
| [[Gruppo del Rosario]]
|
| Unknown
|
|
|
|-
| [[Guanyin Famen]]
|
| Unknown
|
|
|
|-
| [[Haizidao]]
|
| Active
|
|
|
|-
| [[Hanau sect]]
|
| Active
|
|
|
|-
| [[Happy Science]]
| 1986
| Active
| [[Ryuho Okawa]]
|
| Happy Science 幸福の科学
|-
| [[Harmony Society]]
|
| Unknown
|
|
|
|-
| [[Heaven's Gate (religious group)|Heaven's Gate]]
| 1974
| Defunct
| [[Marshall Applewhite]], [[Bonnie Nettles]]
| None
|
|-
| [[Ho No Hana]]
|
| Unknown
|
|
|
|-
| [[Holy Ecclesia of Jesus]]
|
| Active
|
|
|
|-
| [[Holy Ghost Church of East Africa]]
|
| Active
|
|
|
|-
| [[Holy Order of MANS]]
|
| Active
|
|
|
|-
| [[Holy Spirit Movement]]
|
| Unknown
|
|
|
|-
| [[House of Israel (Guyana)]]
|
| Active
|
|
|
|-
| [[House of Prayer Christian Church]]
|
| Active
|
|
|
|-
| [[House of Yahweh]]
| 1980
| Active
| Yisrayl Hawkins
|
|
|-
| [[Hutaree]]
|
| Active
|
| [[David Brian Stone Sr]]
|
|-
| [[IFCA International]]
| 1930
| Unknown
|
|
|
|-
| [[Iglesia Watawat ng Lahi]]
| 1936
| Unknown
|
|
|
|-
| [[Inochentism]]
|
| Active
|
|
|
|-
| [[Insight Seminars]]
|
| Active
|
|
|
|-
| [[International Center of Parapsychology and Scientific Research of the New Age]]
| 1989
| Active
|
| [[Marie-Thérèse Castano]]
| International Center of Parapsychology and the Scientific Research of the New Age
|-
| [[International Church of Cannabis]]
| 2017
| Active
|
|
|
|-
| [[International Churches of Christ]]
|
| Active
|
|
|
|-
| [[International Committee of the Red Cross]]
| 1863
| Active
| [[Henry Dunant]]
| [[Mirjana Spoljaric Egger]]
|
|-
| [[International Community of Christ]]
|
| Active
|
|
|
|-
| [[International Society for Krishna Consciousness]]
| 1966
| Active
| [[A. C. Bhaktivedanta Swami Prabhupada]]
| [[A. C. Bhaktivedanta Swami Prabhupada]]
|
|-
| [[Invitation to Life]]
|
| Active
|
| [[Yvonne Trubert]]
|
|-
| [[Iriadamant]]
|
| Active
|
|
|
|-
| [[Japan Ecclesia of Christ]]
|
| Active
|
|
|
|-
| [[Jehovah's Witnesses]]
|
| Active
| [[Charles Taze Russell]], [[Joseph Franklin Rutherford]]
|
|
|-
| [[Jesus Army]]
| 1969
| Active
| [[Noel Stanton]]
|
| Jesus Fellowship Church
|-
| [[Jesus Christians]]
|
| Active
|
|
|
|-
| [[Joshua Media Ministries]]
|
| Active
|
|
|
|-
| [[Jurisdavidism]]
|
| Unknown
|
|
|
|-
| [[Kabbalah Centre]]
|
| Unknown
| [[Philip Berg]]
|
|
|-
| [[Kalki Avatar Foundation]]
| 2000
| Active
|
| [[Younus AlGohar]]
|
|-
| [[Kartanoism]]
|
| Unknown
|
|
|
|-
| [[Kashi Ashram]]
|
| Active
|
|
|
|-
| [[Kashi Church Foundation]]
|
| Unknown
|
|
|
|-
| [[Kerista]]
|
| Unknown
|
|
|
|-
| [[Kimbanguism]]
| 1921
| Active
| [[Simon Kimbangu]]
| [[Simon Kimbangu Kiangani]]
|
|-
| [[Kingdom of Jesus Christ (church)]]
| 1985
| Active
| [[Apollo Quiboloy]]
|
| Kingdom of Jesus Christ,, The Name Above Every Name
|-
| [[La Luz del Mundo]]
| 1926
| Active
| Aarón Joaquín González
| [[Naasón Joaquín García]]
| Church of the Living God, Pillar and Ground of the Truth, The Light of the World
|-
| [[Landmark Worldwide]]
|
| Active
|
| [[Michael Leavitt]]
| Landmark Worldwide LLC
|-
| [[Latter Day Saint movement]]
|
| Active
|
|
|
|-
| [[Laymen's Home Missionary Movement]]
|
| Active
|
|
|
|-
| [[Legio Maria]]
| 1961
| Active
|
| [[Baba Simeo Lodvikus Melkio Ondetto]]
|
|-
| [[Licht-Oase]]
|
| Unknown
|
|
|
|-
| [[Life Word Mission]]
|
| Active
|
|
|
|-
| [[Lifespring]]
| 1974
| Closed
| John Hanley Sr.
|
|
|-
| [[Lily Dale Spiritualist Assembly]]
|
| Unknown
|
|
|
|-
| [[Lindisfarne Association]]
|
| Unknown
|
|
|
|-
| [[Living Church of God]]
| 1998
| Active
| Roderick C. Meredith
| [[Gerald E. Weston]]
|
|-
| [[Living Enrichment Center]]
|
| Unknown
| Mary Manin Boggs (Morrissey), and Haven Boggs
|
|
|-
| [[Living Word Fellowship]]
|
| Unknown
|
|
|
|-
| [[Lokhimon]]
| 1959
| Active
| Kurusar Lokhon Engti Hensek
| [[Kurusar Lokhon Engti Hensek]]
|
|-
| [[Lord Our Righteousness Church]]
|
| Active
|
|
|
|-
| [[Love Family]]
|
| Active
| Paul Erdmann aka Love Israel
| [[Paul Erdmann aka Love Israel]]
|
|-
| [[Love Has Won]]
|
| Active
| [[Amy Carlson (religious leader)]]
| [[Amy Carlson (religious leader)]]
|
|-
| [[Lumpa Church]]
|
| Unknown
|
|
|
|-
| [[Magarites]]
|
| Unknown
|
|
|
|-
| [[Maharishi International University]]
|
| Unknown
| [[Maharishi Mahesh Yogi]]
|
|
|-
| [[Makuya]]
|
| Active
|
|
|
|-
| [[Mama Tata]]
|
| Active
|
|
|
|-
| [[Manson Family]]
|
| Active
|
|
|
|-
| [[Maná Church]]
|
| Active
|
|
|
|-
| [[Maranatha Campus Ministries]]
| 1971
| Active
|
| [[Bob Weiner]]
|
|-
| [[Mark-Age]]
| 1962
| Unknown
| Pauline Sharpe and Charles Boyd Gentzel
|
|
|-
| [[Mentuhui]]
| 1989
| Active
| Ji Sanbao
| [[Ji Sanbao]]
| Three-Redemptive Christ
|-
| [[Messiah Foundation International]]
| 2002
| Active
|
| [[Riaz Ahmed Gohar Shahi]]
|
|-
| [[Messianic Judaism]]
|
| Active
|
|
|
|-
| [[Methernitha]]
| 1960
| Active
| Paul Baumann
| [[Paul Baumann]]
|
|-
| [[Metropolitan Community Church]]
| 1968
| Active
| [[Troy Perry]]
| [[Cecilia Eggleston]]
|
|-
| [[Mind Dynamics]]
| 1968
| Closed 1973
| [[Alexander Everett]]
|
|
|-
| [[Miracle of Love]]
|
| Active
|
|
|
|-
| [[Mission of the Holy Spirit]]
|
| Unknown
|
|
|
|-
| [[Missionary Church of Kopimism]]
|
| Active
|
|
|
|-
| [[Modekngei]]
|
| Active
|
|
|
|-
| [[Monastic Order of Avallon]]
| 1970
| Active
| Henri Hillion
| [[Henri Hillion]]
|
|-
| [[Moorish Orthodox Church of America]]
|
| Active
|
|
|
|-
| [[Mormonism]]
|
| Active
|
|
|
|-
| [[Movement for the Restoration of the Ten Commandments of God]]
| 1989
| Closed 2000
| [[Credonia Mwerinde]], [[Joseph Kibweteere]]
|
|
|-
| [[Movement of Spiritual Inner Awareness]]
| 1968
| Active
| [[John-Roger Hinkins]]
| [[John Morton]]
|
|-
| [[Nation of Islam]]
| 1930
| Active
| [[Wallace Fard Muhammad]]
| [[Louis Farrakhan]]
|
|-
| [[Nation of Yahweh]]
|
| Active
|
|
|
|-
| [[Nemenhah]]
|
| Active
|
|
|
|-
| [[Neo-American Church]]
|
| Active
|
|
|
|-
| [[Neo-Luciferian Church]]
|
| Active
|
|
|
|-
| [[Neu-Salems-Gesellschaft]]
|
| Unknown
|
|
|
|-
| [[New Acropolis]]
|
| Unknown
| [[Jorge Ángel Livraga Rizzi]]
|
|
|-
| [[New Forest Shakers]]
|
| Unknown
|
|
|
|-
| [[New Israelites]]
|
| Unknown
|
|
|
|-
| [[New Kadampa Tradition]]
| 1991
| Active
| [[Kelsang Gyatso]]
| [[Gen-la Kelsang Dekyong]]
| New Kadampa Tradition, International Kadampa Buddhist Union
|-
| [[New Message from God]]
| 1992
| Active
| [[Marshall Vian Summers]]
| [[Marshall Vian Summers]]
| The New Message from God
|-
| [[New Testament Church (Hong Kong)]]
|
| Active
|
| [[Elijah Hong]]
|
|-
| [[New World Alliance]]
|
| Unknown
|
|
|
|-
| [[Niscience]]
|
| Active
|
|
|
|-
| [[Nova Religio]]
|
| Active
|
|
|
|-
| [[Nuwaubian Nation]]
|
| Unknown
|
|
|
|-
| [[NXIVM]]
|
| Active
|
|
| NXIVM Corporation
|-
| [[Néo-Phare]]
|
| Active
| Arnaud Mussy
| [[Arnaud Mussy]]
|
|-
| [[Okinawa Christian Gospel]]
|
| Active
|
|
|
|-
| [[Olive Tree (religious movement)]]
|
| Unknown
|
|
|
|-
| [[One World Family Commune]]
| 1967
| Active
| Allen Noonan
| [[Allen Noonan]]
|
|-
| [[Oneness Movement]]
|
| Active
|
|
|
|-
| [[Open Brethren]]
| 1848
| Active
| [[George Müller]]
|
| Open Brethren, (Christian Brethren)
|-
| [[Open Source Order of the Golden Dawn]]
|
| Unknown
|
|
|
|-
| [[Order of Nine Angles]]
|
| Active
|
|
|
|-
| [[Order of the Solar Temple]]
| 1984
| Defunct
| [[Joseph Di Mambro]], [[Luc Jouret]]
| None
|
|-
| [[Palmarian Catholic Church]]
| 1978
| Active
| [[Jesus Christ]], [[Clemente Domínguez y Gómez]]
| [[Joseph Odermatt]]
|
|-
| [[Pana Wave]]
|
| Unknown
|
|
|
|-
| [[People Unlimited]]
|
| Active
|
|
|
|-
| [[Peoples Temple]]
| 1955
| Defunct
| Jim Jones
| None
|
|-
| [[Phare-Ouest]]
|
| Unknown
|
|
|
|-
| [[Philippine Benevolent Missionaries Association]]
|
| Active
| [[Ruben Ecleo Sr.]]
|
|
|-
| [[Pilgrims of Arès]]
| 1974
| Active
| Michel Potay
| [[Michel Potay]]
|
|-
| [[Plymouth Brethren Christian Church]]
| 1848
| Active
| [[John Nelson Darby]]
| [[Bruce Hales]]
|
|-
| [[Potter's House Christian Fellowship]]
| 1970
| Active
| Wayman O. Mitchell
| [[Wayman O. Mitchell]]
|
|-
| [[Process Church of the Final Judgement]]
|
| Unknown
|
|
|
|-
| [[Providence (religious movement)]]
| 1980
| Active
| [[Jung Myung-seok]]
| [[Jung Myung-seok]]
| Christian Gospel Mission, , Providence
|-
| [[Pró-Vida]]
|
| Active
|
|
|
|-
| [[Puissance spirituelle du verbe]]
|
| Active
| Bavua Ntinu Decantor Andrew
| [[Bavua Ntinu Decantor Andrew]]
|
|-
| [[Radio Church of God]]
|
| Unknown
|
|
|
|-
| [[Raelian movement]]
|
| Active
| [[Raël]]
| [[Raël]]
| Raëlism
|-
| [[Rajneesh movement]]
|
| Active
| [[Rajneesh]]
| No single leader
| Osho movement / Osho International Foundation
|-
| [[Ramtha's School of Enlightenment]]
| 1988
| Active
| [[J. Z. Knight]]
| [[J. Z. Knight]]
|
|-
| [[Rational Culture]]
|
| Active
|
|
|
|-
| [[Reborn in Christ Church]]
| 1986
| Active
| Estevam Hernandes and Sonia Hernandes
| [[Estevam Hernandes]]
|
|-
| [[Remnant Fellowship]]
|
| Active
|
|
|
|-
| [[Renewed Order of the Temple]]
|
| Unknown
| [[Raymond Bernard (esotericist)]]
|
|
|-
| [[Restored Church of God]]
| 1999
| Active
| David C. Pack
| [[David C. Pack]]
|
|-
| [[River Road Fellowship]]
|
| Closed 2014
|
|
|
|-
| [[Rod of Iron Ministries]]
|
| Unknown
|
|
|
|-
| [[Rosicrucian Fellowship]]
|
| Unknown
|
|
|
|-
| [[Rotary International]]
| 1905
| Active
| [[Paul P. Harris]]
| [[Paul P. Harris]]
|
|-
| [[Sabbateans]]
|
| Unknown
|
|
|
|-
| [[Sacrament of Transition]]
|
| Active
|
|
|
|-
| [[Sahaja Yoga]]
|
| Active
|
|
|
|-
| [[Salvation Sect]]
|
| Unknown
|
|
|
|-
| [[Sanban Puren Pai]]
|
| Active
|
|
|
|-
| [[Sanctuary of Thought]]
|
| Unknown
|
|
|
|-
| [[School of Economic Science]]
| 1938
| Active
| [[Leon MacLaren]]
| [[Leon MacLaren]]
| School of Philosophy and Economic Science
|-
| [[Science of Identity Foundation]]
|
| Active
| Chris Butler (aka Siddhaswarupananda Paramahamsa)
| [[Chris Butler (aka Siddhaswarupananda Paramahamsa)]]
|
|-
| [[Scientology]]
|
| Active
|
| [[David Miscavige]]
| [[Church of Scientology]]
|-
| [[Sekta Niebo]]
|
| Unknown
|
|
|
|-
| [[Shakers]]
|
| Active
| [[Ann Lee]]
|
| United Society of Believers in Christ's Second Appearing
|-
| [[Shambhala Training]]
|
| Active
|
|
|
|-
| [[Share International]]
|
| Active
|
|
|
|-
| [[Shiloh (Christian movement)]]
|
| Unknown
|
|
|
|-
| [[Shincheonji Church of Jesus]]
| 1984
| Active
| [[Lee Man-hee]]
| [[Lee Man-hee]]
| Shincheonji
|-
| [[Siderella]]
| 1966
| Active
|
| [[Jean-Paul Appel]]
|
|-
| [[Silver Sisterhood]]
|
| Unknown
|
|
|
|-
| [[Sky Kingdom]]
|
| Unknown
| [[Ayah Pin]]
|
|
|-
| [[Society of Guardians]]
|
| Active
|
|
|
|-
| [[Soka Gakkai]]
| 1930
| Active
| [[Tsunesaburō Makiguchi]], [[Jōsei Toda]], [[Daisaku Ikeda]]
| [[Minoru Harada]]
| Sōka Gakkai
|-
| [[Soldiers of Heaven]]
|
| Unknown
|
|
|
|-
| [[Sorrowful and Immaculate Heart of Mary (cult)]]
|
| Active
|
| [[Juliano Verbard]]
| Sorrowful and Immaculate Heart of Mary
|-
| [[Spirit Church (China)]]
|
| Unknown
|
|
|
|-
| [[Spirit of Jesus Church]]
|
| Unknown
|
|
|
|-
| [[Sri Aurobindo Ashram]]
| 1926
| Unknown
| [[Sri Aurobindo]]
|
|
|-
| [[Sri Aurobindo Ashram, Rewa]]
|
| Active
|
|
|
|-
| [[Staroizrail]]
|
| Unknown
|
|
|
|-
| [[Sukyo Mahikari]]
| 1978
| Active
| [[:ja:岡田恵珠]]
| [[Kōō Okada]]
|
|-
| [[Summum]]
|
| Active
|
|
|
|-
| [[Sunburst (community)]]
| 1969
| Active
|
| [[Patricia Paulsen]]
| Sunburst
|-
| [[Swedenborgianism]]
| 1787
| Unknown
|
|
|
|-
| [[Swissindo]]
|
| Unknown
|
|
|
|-
| [[Sword of Christ Good News Ministries]]
|
| Unknown
|
|
|
|-
| [[Synanon]]
| 1958
| Closed 1991
| Charles Dederich Sr.
|
|
|-
| [[Tabernacle Temple Church]]
| 1966
| Closed 1980
| [[:ko:%EC%9C%A0%EC%9E%AC%EC%97%B4]]
|
|
|-
| [[Tadtad]]
| 1972
| Unknown
|
|
|
|-
| [[Takfir wal-Hijra]]
|
| Active
|
| [[Shukri Mustafa]]
|
|-
| [[Temple of Set]]
| 1975
| Unknown
| [[Michael A. Aquino]]
|
|
|-
| [[Temple of the Vampire]]
| 1989
| Unknown
| Anonymous
|
|
|-
| [[Temple of Zeus (organization)]]
|
| Unknown
| Andrea Maxine Dietrich (1962-2020)
|
|
|-
| [[Templers (Radical Pietist sect)]]
|
| Active
|
|
|
|-
| [[THC Ministry]]
|
| Active
|
|
|
|-
| [[The African Church]]
|
| Active
|
|
|
|-
| [[The Brethren (Jim Roberts group)]]
| 1971
| Active
| [[Jimmie T. Roberts]]
| [[Jerry Williams]]
| Brethren , Body of Christ , Brothers and Sisters
|-
| [[The Bridge to Freedom]]
|
| Active
|
|
|
|-
| [[The Christian Community]]
|
| Active
| [[Friedrich Rittelmeyer]]
| [[João Torunsky]]
|
|-
| [[The Circle (sect)]]
|
| Unknown
|
|
|
|-
| [[The Circle of Friends]]
|
| Unknown
|
|
|
|-
| [[The Family (Australian New Age group)]]
|
| Unknown
|
|
|
|-
| [[The Family International]]
| 1968
| Active
| [[David Brandt Berg]]
| [[Karen Zerby]]
|
|-
| [[The Fellowship (Australia)]]
|
| Active
|
|
|
|-
| [[The Finders (movement)]]
|
| Active
| Marion Pettie
| [[Marion Pettie]]
|
|-
| [[The Living Word Fellowship]]
| 1951
| Unknown
|
|
|
|-
| [[The Network (group of churches)]]
| 2006
| Active
| Steve Morgan
| [[Steve Morgan]]
| The Network
|-
| [[The Order of Christ Sophia]]
|
| Unknown
|
|
|
|-
| [[The Satanic Temple]]
| 2012
| Active
| [[Lucien Greaves]]
| [[Lucien Greaves]]
|
|-
| [[The Seekers (rapturists)]]
| 1953
| Active
| Charles Laughead
| [[Dorothy Martin]]
|
|-
| [[The Shouters]]
|
| Active
|
|
|
|-
| [[The Way International]]
|
| Active
|
|
| The Way International Victor Paul Wierwille
|-
| [[Theta Noir]]
| 2020
| Active
|
|
|
|-
| [[True and Living Church of Jesus Christ of Saints of the Last Days]]
|
| Active
|
|
|
|-
| [[True Buddha School]]
|
| Active
|
|
|
|-
| [[True Jesus Church]]
|
| Unknown
| [[Paul Wei]]
|
|
|-
| [[True Russian Orthodox Church]]
|
| Unknown
|
|
|
|-
| [[Twelve Tribes communities]]
| 1972
| Active
| Elbert "Gene" Spriggs
| [[Elbert "Gene" Spriggs]]
| Twelve Tribes
|-
| [[Twin Flames Universe]]
|
| Active
|
|
|
|-
| [[Two by Twos]]
|
| Active
| [[William Irvine (Scottish evangelist)]]
|
| The Truth, Two by Twos
|-
| [[Tyrannus Apostolic Church]]
| 2000
| Active
| Simon Mokoena
| [[Simon Mokoena]]
|
|-
| [[Unarius Academy of Science]]
| 1954
| Unknown
|
|
|
|-
| [[Understanding, Inc.]]
|
| Unknown
|
|
|
|-
| [[Unification Church]]
| 1954
| Active
| [[Sun Myung Moon]]
| [[Hak Ja Han]]
| Family Federation for World Peace and Unification
|-
| [[Unitarian Universalist Association]]
| 1961
| Active
|
| [[Sofía Betancourt]]
|
|-
| [[Universal Church of the Kingdom of God]]
| 1977
| Active
| Edir Macedo
| [[Edir Macedo]]
|
|-
| [[Universal Life Church]]
| 1962
| Active
| [[Kirby J. Hensley]]
|
|
|-
| [[Universal Medicine]]
|
| Active
|
|
|
|-
| [[Universe People]]
|
| Active
|
|
|
|-
| [[University Bible Fellowship]]
|
| Unknown
| Samuel Chang-Woo Lee, Sarah Barry
|
|
|-
| [[University of Cosmic Intelligence]]
|
| Active
|
| [[Rashad Jamal]]
|
|-
| [[União do Vegetal]]
| 1961
| Unknown
|
|
|
|-
| [[Unión Espiritista Cristiana de Filipinas, Inc.]]
|
| Active
|
|
|
|-
| [[Urantia Foundation]]
|
| Active
|
|
|
|-
| [[Valley of the Dawn]]
| 1969
| Active
|
| [[Pai Seta Branca]]
| Vale do Amanhecer
|-
| [[Victory Altar]]
|
| Active
|
|
|
|-
| [[Vigrid (Norway)]]
| 1998
| Active
|
| [[Tore Tvedt]]
| Vigrid
|-
| [[Waking Down in Mutuality]]
|
| Unknown
|
|
|
|-
| [[Way of the Future]]
| 2017
| Active
| [[Anthony Levandowski]]
| [[Anthony Levandowski]]
|
|-
| [[Weixinism]]
|
| Active
| Grand Master Hun Yuan (1944–2026)
|
|
|-
| [[Werner Erhard and Associates]]
| 1981
| Closed 1991
|
|
|
|-
| [[White Brotherhood (religious group)]]
|
| Active
|
|
|
|-
| [[Wikimedia Foundation]]
| 2003
| Active
| [[Jimmy Wales]]
| [[Bernadette Meehan]]
| Wikimedia Foundation, Inc.
|-
| [[Word of Faith Fellowship]]
|
| Active
|
|
|
|-
| [[Word of Life (Sweden)]]
| 1983
| Active
|
| [[David Ekerbring]]
| Word of Life
|-
| [[World Divine Light]]
| 1963
| Active
| [[:ja:関口榮]]
| [[Katsutoshi Sekiguchi]]
|
|-
| [[World Elijah Evangelical Mission]]
|
| Unknown
|
|
|
|-
| [[World Mission Society Church of God]]
|
| Active
| [[Ahn Sahng-hong]]
| [[Kim Joo-Cheol]]
| World Mission Society Church of God, 하나님의교회 세계복음선교협회
|-
| [[Worldwide Church of God]]
|
| Unknown
|
|
|
|-
| [[Wotansvolk]]
|
| Unknown
| [[David Lane (white supremacist)]]
|
|
|-
| [[Yehowists]]
|
| Active
|
|
|
|-
| [[Zendik Farm]]
|
| Unknown
|
|
|
|-
| [[Zhong Gong]]
|
| Unknown
|
|
|
|-
| [[Zion Christian Church]]
|
| Unknown
|
|
|
|-
| [[Zizians]]
|
| Active
|
|
|
|}

== Related pages ==
* [[Leaders]]
* [[Main Page]]

FAQ

2026-04-04T20:56:50Z

Cultopedia-admin: Cultopedia: add About Us pages

== What is Cultopedia? ==
Cultopedia is a public reference platform that organises published information about organisations and their histories.

== Is Cultopedia only about cults? ==
No. Cultopedia focuses on organisations that have drawn significant public concern, scrutiny, or debate, but it is not limited to one label.

== Does Cultopedia make accusations? ==
No. Cultopedia does not create original allegations. It brings together published sources so readers can examine them in context.

== Is the content all written by Cultopedia? ==
No. The project starts with Wikipedia-derived material as a baseline, and then adds its own structured layer, including tables, timelines, and source collections.

== Can I contribute? ==
Yes, in a limited early-stage way. The most useful contributions right now are factual corrections and suggestions of reliable published sources.

* [[Main Page|Back to Main Page]]

I want to contribute

2026-04-04T20:56:49Z

Cultopedia-admin: Cultopedia: add About Us pages

If you would like to contribute to Cultopedia, thank you.

Right now the project is still in its early build phase, which means the most helpful contributions are usually:

* suggesting organisations or leaders that should be included
* pointing out factual errors, outdated details, or broken pages
* sharing reliable journalism, academic research, court material, or documentary sources
* helping review timelines, names, and organisational history

In time, Cultopedia will offer a clearer public contribution workflow. For now, contributions are best understood as careful source suggestions and factual corrections rather than open editing.

* [[Main Page|Back to Main Page]]

About Cultopedia

2026-04-04T20:56:48Z

Cultopedia-admin: Cultopedia: add About Us pages

'''Cultopedia''' is building a public reference platform for people who want to understand organisations over time.

The project begins with Wikipedia-derived pages as a practical baseline, and then adds a Cultopedia layer of structured context, timelines, and source collections. The goal is not to replace careful reading, but to make it easier to find relevant material in one place.

Cultopedia is especially interested in organisations that have attracted sustained public scrutiny, concern, or debate. Over time, the site will also bring together journalism, academic research, documentary material, and other evidence so readers can follow how organisations have been described across history.

Cultopedia does not create original allegations and does not ask readers to accept one fixed label. It aims to organise published information clearly, responsibly, and in a way that supports informed judgment.

* [[Main Page|Back to Main Page]]

Main Page

2026-04-04T20:56:47Z

Cultopedia-admin: Cultopedia: add About Us pages

<div class="cultopedia-home">
'''Cultopedia''' is building the world's most up-to-date and comprehensive resource on organizations.

It is designed for people who want more than scattered articles, outdated summaries, or sensational fragments. Cultopedia brings together organizations, leaders, and the latest developments in one place, so readers can follow these systems with clarity and context.

Cultopedia is a public reference platform that organises reliable, published information about organisations over time. It brings together encyclopedic sources, journalism, academic research, and documentary material into structured timelines so readers can explore how organisations have been described across history.

Cultopedia does not classify organisations as cults and does not produce original allegations. It provides access to reputable sources so readers can make informed interpretations for themselves.

== Explore ==
* [[Organizations|Organizations]]
* [[Leaders|Leaders]]

== About Us ==
* [[About Cultopedia|About Cultopedia]]
* [[I want to contribute|I want to contribute]]
* [[FAQ|FAQ]]
</div>

Template:Clarification needed

2026-04-04T20:35:08Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

#REDIRECT [[Template:Clarify]]

{{Redirect category shell|
{{R from alternative name}}
}}

Template:Nontheism and religion

2026-04-04T20:35:04Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

{{Sidebar with collapsible lists
| name = Nontheism and religion
| bodyclass = plainlist
| pretitle = Part of a series on
| titlestyle = font-size:150%;font-weight:normal;padding-bottom:0.15em;
| title = [[Nontheistic religion]]
| listtitlestyle = background:transparent;border-top:1px solid #aaa;text-align:center;
| liststyle = padding:0.3em 0.3em 0.6em;
| expanded = {{{expanded|{{{1|}}}}}}

| list1name = concepts
| list1title = Concepts
| list1 =
* [[Agnosticism]]
* [[Atheism and religion]]
* [[Ietsism]]
* [[Pantheism]]
* [[Religious humanism]]
* [[Secular spirituality]]

| list2name = religious stances
| list2title = Religious stances
| list2 =
* [[Christian atheism]]
* [[Cultural Christians]]
* [[Cultural Muslims]]
* [[Hindu atheism]]
* [[Jewish atheism]]
* [[Satanism#Nontheistic_Satanism|Nontheistic Satanism]]
* [[Secular Buddhism]]
* [[Secular paganism]]
* [[Spiritual naturalism]]
}}<noinclude>
[[Category:Religion and belief sidebar templates]]
</noinclude>

Template:Criticism of religion

2026-04-04T20:35:01Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

{{navbox
| name = Criticism of religion
| title = [[Criticism of religion]]
| state = {{{state|autocollapse}}}
| listclass = hlist

| group1 = By religion
| list1 =
<section begin=By religion />
* [[Criticism of the Bahá'í Faith|Baháˈí Faith]]
* [[Criticism of Buddhism|Buddhism]]
* [[Criticism of Christianity|Christianity]]
** [[Criticism of the Catholic Church|Catholic]]
** [[Criticism of Jehovah's Witnesses|Jehovah's Witnesses]]
** [[Criticism of the Church of Jesus Christ of Latter-day Saints|Latter Day Saint movement]]
** [[Criticism of Protestantism|Protestantism]]
** [[Criticism of the Seventh-day Adventist Church|Seventh-day Adventist]]
** [[Unification movement#Controversy|Unification movement]]
** [[Criticism of Unification Church in Japan|Unification Church in Japan]]
** [[Westboro Baptist Church#Criticisms|Westboro Baptist Church]]
* [[Criticism of Hinduism|Hinduism]]
** [[Criticism of Swaminarayan sect|Swaminarayan sect]]
* [[Criticism of Islam|Islam]]
** [[Criticism of Islamism|Islamism]]
** [[Criticism of Twelver Shia Islam|Twelver Shia Islam]]
** [[Wahhabism#Criticism and controversy|Wahhabism]]
* [[Criticism of Jainism|Jainism]]
* [[Criticism of Judaism|Judaism]]
* [[Criticism of monotheism|Monotheism]]
* [[New religious movement#Opposition|New religious movement]]
* [[Criticism of modern paganism|Neopaganism]]
* [[Scientology controversies|Scientology]]
* [[Criticism of Sikhism|Sikhism]]
* [[Yazdânism#Criticism|Yazdânism]]
* [[Criticism of Zoroastrianism|Zoroastrianism]]
<section end=By religion />

| group2 = Religious texts
| list2 =
<section begin=Religious texts />
* [[Criticism of the Bible|Bible]]
* [[Criticism of the Quran|Quran]]
* [[Criticism of hadith|Hadith]]
* [[Criticism of Mormon sacred texts|Mormon sacred texts]]
** [[Criticism of the Book of Mormon|Book of Mormon]]
* [[Talmud#Criticism|Talmud]]
<section end=Religious texts />

| group3 = Religious figures
| list3 =
<section begin=Religious figures />
* [[Shia view of Aisha|Aisha]]
* [[Charles Taze Russell#Controversies|Charles Taze Russell]]
* [[Criticism of Ellen G. White|Ellen White]]
* [[Criticism of Jesus|Jesus]]
* [[Moses#Criticism of Moses|Moses]]
* [[Criticism of Muhammad|Muhammad]]
* [[Mirza Ghulam Ahmad#Legacy|Mirza Ghulam Ahmad]]
* [[Saul#Biblical criticism|Saul]]
<section end=Religious figures />

| group4 = [[Religious discrimination]]
| list4 =
<section begin=Religious discrimination />
* [[Persecution of Ahmadis|Ahmadiyya]]
* [[Discrimination against atheists|Atheism]]
* [[Persecution of Bahá'ís|Bahá'i Faith]]
* [[Persecution of Buddhists|Buddhism]]
* [[Anti-Catholicism|Catholicism]]
** [[Criticism of the Catholic Church|Catholic Church]]
* [[Persecution of Christians|Christianity]]
** [[Persecution of Christians in the post–Cold War era|post–Cold War era]]
* [[Persecution of Druze|Druze]]
* [[Persecution of Falun Gong|Falun Gong]]
* [[Anti-Hindu sentiment|Hinduism]]
** [[Persecution of Hindus|Persecution]]
* [[Islamophobia|Islam]]
** [[Persecution of Muslims|Persecution]]
* [[Persecution of Jehovah's Witnesses|Jehovah's Witness]]
* [[Religious antisemitism|Judaism]]
** [[Antisemitism]]
** [[Anti-Judaism]]
** [[Persecution of Jews|Persecution]]
* [[Anti-Mormonism|Mormonism]]
* [[Religious discrimination against Neopagans|Neopaganism]]
* [[Persecution of Eastern Orthodox Christians|Eastern Orthodoxy]]
* [[Persecution of Oriental Orthodoxy|Oriental Orthodoxy]]
** [[Persecution of Copts|Copts]]
* [[Anti-Protestantism|Protestantism]]
* [[Persecution of Rastafari|Rastafari]]
* [[Persecution of Sikhs|Sikhism]]
* [[Anti-Sunnism|Sunni Islam]]
* [[Anti-Shi'ism|Shia Islam]]
* [[Persecution of Sufis|Sufism]]
* [[Persecution of Zoroastrians|Zorostianism]]
<section end=Religious discrimination />

| group5 = [[Religious violence]]
| list5 =
<section begin=Religious violence />
* [[Buddhism and violence|Buddhism]]
* [[Christianity and violence|Christianity]]
** [[Mormonism and violence|Mormonism]]
* [[Judaism and violence|Judaism]]
* [[Islam and violence|Islam]]
* [[Religious terrorism|Terrorism]]
** [[Christian terrorism|Christian]]
** [[Hindu terrorism|Hindu]]
** [[Islamic terrorism|Islamic]]
** [[Jewish extremist terrorism|Jewish]]
* [[Religious persecution|Persecution]]
** [[History of Christian thought on persecution and tolerance|Christian thought on persecution and tolerance]]
* [[Religious war|War]]
** [[Islam and war|In Islam]]
** [[Judaism and warfare|In Judaism]]
* [[Sectarian violence]]
* By country
** [[Religious violence in India|India]]
*** [[Violence against Christians in India|Anti-Christian violence]]
*** [[Religious violence in Odisha|In Odisha]]
** [[Religious violence in Nigeria|Nigeria]]
** [[Religious discrimination in Pakistan|Pakistan]]
<section end=Religious violence />

| group6 = [[:Category:Books critical of religion|Books]]
| list6 =
<section begin=Books />
* ''[[Atheist Manifesto: The Case Against Christianity, Judaism, and Islam|Atheist Manifesto]]''
* ''[[Breaking the Spell: Religion as a Natural Phenomenon|Breaking the Spell]]''
* ''[[Christianity Unveiled]]''
* ''[[God in the Age of Science?]]''
* ''[[God Is Not Great]]''
* ''[[God: The Failed Hypothesis]]''
* ''[[Letter to a Christian Nation]]''
* ''[[The Age of Reason]]''
* ''[[The Blind Watchmaker]]''
* ''[[The Caged Virgin]]''
* ''[[The End of Faith]]''
* ''[[The God Delusion]]''
* ''[[The Gospel of the Flying Spaghetti Monster]]''
* ''[[Why I Am Not a Christian]]''
* ''[[Why I Am Not a Muslim]]''
* ''[[The Demon-Haunted World]]''
<section end=Books />
* [[Bibliography of books critical of Christianity|Books critical of Christianity]]
* [[Bibliography of books critical of Islam|Books critical of Islam]]
* [[Bibliography of books critical of Judaism|Books critical of Judaism]]
* [[Bibliography of books critical of Mormonism|Books critical of Mormonism]]
* [[Bibliography of books critical of Scientology|Books critical of Scientology]]

| group7 = Movements
| list7 =
<section begin=Movements />
* [[Agnosticism]]
* [[Antitheism]]
* [[Atheism]] ([[Criticism of atheism|Criticism]])
* [[Charvaka|Cārvāka]]
* [[New Atheism]]
* [[Nontheistic religion]]s
* [[Parody religion]]
<section end=Movements />

| group8 = Related topics
| list8 = {{excerpt|Template:Criticism of religion sidebar|Related topics|hat=no}}

| below =
}}<noinclude>
{{Documentation}}
</noinclude>

Template:Theology

2026-04-04T20:34:56Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

{{Navbox with collapsible groups
| name = Theology
| title = [[Theology]]
| state = {{{state|<noinclude>expanded</noinclude><includeonly>collapsed</includeonly>}}}
| listclass = hlist
| selected = {{{selected|{{{expanded|{{{1|}}}}}}}}}
| abovestyle = background:transparent;


| abbr1 = god
| sect1 = [[Conceptions of God]]
| state1 = <noinclude>expanded</noinclude>
| list1 =
{{Navbox |child

| group1 = [[Theism]]
| list1 = {{Navbox|subgroup
| group1 = Forms
| list1 =
* 
* [[Deism]]
* [[Dystheism]]
* [[Henotheism]]
* [[Hermeticism]]
* [[Kathenotheism]]
* [[Nontheism]]
* [[Monolatry]]
* [[Monotheism]]
** [[Urmonotheismus]]
* [[Mysticism]]
* [[Panentheism]]
* [[Pandeism]]
* [[Pantheism]]
* [[Polytheism|Polydeism]]
* [[Polytheism]]
* [[Spiritualism (movement)|Spiritualism]]
* [[Theistic finitism]]
* [[Theopanism]]

| group2 = Concepts
| list2 =
* 
* [[Deity]]
*[[Divinity]]
* [[Gender of God]] ''and gods''
** [[Goddess]]
* [[Numen]]
}}
| group2 = [[God|Singular god]]<br />theologies
| list2 = {{Navbox|subgroup
| group1 = By faith
| list1 =
* [[God in Abrahamic religions|Abrahamic religions]]
** [[God in the Baháʼí Faith|Baháʼí Faith]]
** [[God in Judaism|Judaism]]
** [[God in Christianity|Christianity]]
** [[God in Islam|Islam]]
** [[Rastafari#Jah and Jesus Christ|Rastafari]]
* [[Creator in Buddhism|Buddhism]]
* [[God in Hinduism|Hinduism]]
* [[God in Jainism|Jainism]]
* [[God in Sikhism|Sikhism]]
* [[God in Tenrikyo|Tenrikyo]]
* [[Ahura Mazda|Zoroastrianism]]

| group2 = Concepts
| list2 =
* [[Absolute (philosophy)|Absolute]]
* [[Brahman]]
* [[Emanationism]]
* [[Logos]]
* [[God|Supreme Being]]

| group3 = God as
| list3 =
* [[Zurvanism|Time]]
* [[Good]] ([[Ahura Mazda]], [[Father of Greatness]])
}}

| group3 = [[Trinity|Trinitarianism]]
| list3 =
* [[Athanasian Creed]]
* [[Johannine Comma|Comma Johanneum]]
* [[Consubstantiality]]
* [[Homoousion|Homoousian]]
* [[Homoiousian]]
* [[Hypostasis (philosophy and religion)|Hypostasis]]
* [[Perichoresis]]
* [[Shield of the Trinity]]
* [[Trinitarian formula]]
* [[Trinity]]
* [[Trinitarianism in the Church Fathers|Trinity of the Church Fathers]]
* [[Trinitarian universalism]]

| group4 = [[Eschatology]]
| list4 =
* [[Afterlife]]
* [[Apocalypticism]]
* [[Fate of the unlearned]]
** [[Fitra]]
* [[Heaven]] / [[Hell]]

{{navbox|subgroup|groupstyl
|group1 = By religion
|list1 =
* [[Buddhist eschatology|Buddhist]]
* [[Christian eschatology|Christian]]
* [[Hindu eschatology|Hindu]]
* [[Islamic eschatology|Islamic]]
* [[Jewish eschatology|Jewish]]
* [[Divine Incantations Scripture|Taoist]]
* [[Frashokereti|Zoroastrian]]
}}

| group5 = [[Feminist theology|Feminist]]
| list5 =
* [[Women in Buddhism|Buddhism]]
* [[Christian feminism|Christianity]]
* [[Women in Hinduism|Hinduism]]
* [[Islamic feminism|Islam]]
* [[Jewish feminism|Judaism]]
* [[Mormonism and women|Mormonism]]
* [[Goddess]]es

| group6 = Other concepts
| list6 =
* [[Attributes of God in Christianity]]{{\}}[[God in Islam|in Islam]]
* [[Binitarianism]]
* [[Demiurge]]
* [[Divine simplicity]]
* [[Divine presence]]
* [[Egotheism]]
* [[Exotheology]]
* [[Theological hermeneutics|Hermeneutics]]
* [[Holocaust theology|Holocaust]]
* [[Godhead in Christianity]]
** {{smaller|[[God in Mormonism|Latter Day Saints]]}}
* [[Great Architect of the Universe]]
* [[Great Spirit]]
* [[Apophatic theology]]
* [[Olelbis]]
* [[Open theism]]
* [[Personal god]]
* [[Phenomenological definition of God|Phenomenological definition]]
* [[Philo's view of God|Philo's view]]
* [[Process theology|Process]]
* [[Tian]]
* [[Unmoved mover]]

| group7 = [[Names of God]] in
| list7 =
* [[Names of God in Christianity|Christianity]]
* [[List of titles and names of Krishna|Hinduism]]
* [[Names of God in Islam|Islam]]
* [[Tirthankara|Jainism]]
* [[Names of God in Judaism|Judaism]]
}}


| abbr5 = faith
| sect5 = By faith
| state5 = <noinclude>expanded</noinclude>
| list5 =
{{Navbox |child

| group1 = [[Christian theology|Christian]]
| list1 =
* [[History of Christian theology|History]]
* [[Outline of Christian theology|Outline]]
* [[Biblical canon]]
* [[Glossary of Christianity|Glossary]]
* [[Paterology]]
* [[Christology]]
* [[Pneumatology]]
* [[Biblical cosmology|Cosmology]]
* [[Ecclesiology]]
* [[Christian_eschatology|Eschatology]]
* [[Christian ethics|Ethics]]
* [[Sin|Hamartiology]]
* [[Messianism]]
* [[Christian philosophy|Philosophy]]
* [[Political theology|Political]]
* [[Practical theology|Practical]]
* [[Public theology|Public]]
* [[Sophiology]]
* [[Salvation in Christianity|Soteriology]]

| group3 = [[Āstika and nāstika|Hindu]]
| list3 =
* [[Ayyavazhi theology]]
* [[Vaishnavism|Krishnology]]

| group4 = [[Schools of Islamic theology|Islamic]]
| list4 =
* [[Tawhid|Oneness]] of [[God in Islam|God]]
* [[Prophets and messengers in Islam|Prophets]]
* [[Islamic holy books|Holy Scriptures]]
* [[Angels in Islam|Angels]]
* [[Predestination in Islam|Predestination]]
* [[Islamic eschatology|Last Judgment]]

| group5 = [[:Category:Jewish theology|Jewish]]
| list5 =
* [[Nevi'im|Abrahamic prophecy]]
* [[Aggadah]]
* [[Jewish religious movements|Denominations]]
* [[Kabbalah]]
* [[Jewish philosophy|Philosophy]]

| group6 = [[:Category:Modern pagan theology|Pagan]]
| list6 =
* [[Slavic Native Faith's theology and cosmology|Slavic Native Faith]]
* [[Wiccan views of divinity|Wiccan]]

| group7 = East Asian
| list7 =
* [[Tenrikyo theology|Tenrikyo]]

}}

|below = {{icon|portal}} [[Portal:Religion|Religion portal]]

}}<noinclude>
{{Documentation}}
</noinclude>

Template:Irreligion

2026-04-04T20:34:53Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

{{Navbox
|name = Irreligion
|title = [[Irreligion]]
|listclass = hlist
|state = {{{state|autocollapse}}}
| expanded = {{{expanded|{{{selected|{{{1|}}}}}}}}}

|basestyle = background: #BFEAF9;
|group1 = [[Irreligion]]
|list1 =
<section begin=Irreligion />
* [[Antireligion]]
* [[Anti-clericalism]]
* [[Criticism of religion]]
* [[Freethought]]
* [[Organized secularism]]
* [[Secular humanism]]
* [[Secular liberalism]]
* [[Secular state]]
* [[Secularism]]
* [[Secularity]]
* [[Secularization]]
* [[Separation of church and state]]<section end=Irreligion />

|group2 = [[Atheism]]
|list2 =
<section begin=Atheism />
* [[Demographics of atheism|Demographics]]
* [[Atheism and religion|Religion]]
* [[History of atheism|History]]
* [[State atheism|State]]
* [[New Atheism|New]]
* [[Criticism of atheism|Criticism]]
* [[Discrimination against atheists|Discrimination/Persecution]]
* [[Implicit and explicit atheism|Implicit and explicit]]
* [[Negative and positive atheism|Negative and positive]]
* [[Existence of God]]
* [[Antitheism]]
<section end=Atheism />

|group3 = [[Agnosticism]]
|list3 =
<section begin=Agnosticism />
* [[Strong agnosticism|Strong]]
* [[Weak agnosticism|Weak]]
* [[Agnostic atheism]]
* [[Apatheism]]
<section end=Agnosticism />

|group4 = People
|list4 =
<section begin=People />
* [[Lists of atheists|Atheists]]
* [[List of agnostics|Agnostics]]
* [[List of secular humanists|Humanists]]
<section end=People />

|group5 = [[:Category:Books about atheism|Books]]
|list5 =
<section begin=Books />
* ''[[The Age of Reason]]''
* ''[[Breaking the Spell: Religion as a Natural Phenomenon|Breaking the Spell]]''
* ''[[The Demon-Haunted World]]''
* ''[[The End of Faith]]''
* ''[[The God Delusion]]''
* ''[[God Is Not Great]]''
* ''[[Letter to a Christian Nation]]''
* ''[[The System of Nature]]''
* ''[[Why I Am Not a Christian]]''
* ''[[Why I Am Not a Muslim]]''
* ''[[Why I Am an Atheist]]''<section end=Books />

|group6= [[List of secularist organizations|Organizations]]
|list6 =
<section begin=Organizations />
* [[American Atheists]]
* [[American Humanist Association]]
* [[Atheist Alliance International]]
* [[Center for Inquiry]]
* [[Freedom from Religion Foundation]]
* [[Humanists International]]
* [[Humanists UK]]
* [[Internet Infidels]]
* [[Rational Response Squad]]
* [[Recovering from Religion]]
* [[Brazilian Association of Atheists and Agnostics]]<section end=Organizations />

|group7 = Related topics
|list7=
<section begin=Related topics />
* [[List of countries by irreligion|Countries by irreligion]]
* [[Disestablishmentarianism]]
* [[Secular ethics]]

}}<noinclude>
{{Documentation}}
</noinclude>

Template:Religion topics

2026-04-04T20:34:46Z

Cultopedia-admin: Cultopedia: sync selected page content from English Wikipedia

{{Navbox with collapsible groups
| name = Religion topics
| state = {{{state|<includeonly>autocollapse</includeonly><noinclude>expanded</noinclude>}}}
| bodyclass = hlist
| title = [[Religion]]
| selected = {{{1|}}}


| sect1 = [[List of religions and spiritual traditions|Religious groups and denominations]]
| abbr1 = major
| state1 = <noinclude>expanded</noinclude>
| list1 =
{{#invoke:navbox|navbox |child |groupstyle=font-weight:normal;



| group1 = [[Western religions|Western]]</br> and</br> [[Middle Eastern religions|Middle</br> Eastern]]
| list1 =
{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;

| group1 = [[Abrahamic religions|Abrahamic]]
| list1 =
{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;

| group1 = [[Judaism]]
| list1 =
* [[Orthodox Judaism|Orthodox]]
** [[Haredi Judaism|Haredi]]
*** [[Hasidic Judaism|Hasidic]]
** [[Modern Orthodox Judaism|Modern]]
*** [[Religious Zionism|Zionist]]
* [[Conservative Judaism|Conservative]]
* [[Reform Judaism|Reform]]
* [[Karaite Judaism|Karaite]]
* [[Haymanot]]
* [[Reconstructionist Judaism|Reconstructionist]]
* [[Jewish Renewal|Renewal]]
* [[Humanistic Judaism|Humanistic]]
* ''[[Jewish religious movements|list]]''

| group2 = [[Christianity]]
| list2 =
* [[Catholic Church|Catholicism]]
** [[Latin Church|Latin]]
** [[Eastern Catholic Churches|Eastern]]
* [[Eastern Orthodoxy]]
* [[Oriental Orthodox Churches|Oriental Orthodoxy]]
* [[Nestorianism]]
** [[Ancient Church of the East|Ancient]]
** [[Assyrian Church of the East|Assyrian]]
* [[Proto-Protestantism]]
** [[Hussites]]/[[Moravian Church|Moravians]]
** [[Waldensians]]
* [[Protestantism]]
** [[Adventism]]
** [[Anabaptism]]
*** [[Amish]]
*** [[Schwarzenau Brethren|Brethren]]
*** [[Hutterites]]
*** [[Mennonites]]
*** [[Schwenkfelder Church]]
** [[Anglicanism]]
** [[Baptists]]
** [[Reformed Christianity|Calvinism]]
*** [[Congregationalism]]
*** [[Presbyterianism]]
*** [[Continental Reformed Protestantism|Reformed]]
** [[Charismatic Christianity]]
*** [[Pentecostalism|Pentecostal]]
*** [[Charismatic movement|Charismatic]]
*** [[Neo-charismatic movement|Neo-charismatic]]
** [[Evangelicalism]]
** [[Catholic Apostolic Church|Irvingism]]
** [[Lutheranism|Lutheran]]
** [[Methodism|Methodist]]
*** [[Holiness movement|Holiness]]
** [[Non-denominational Christianity|Non-denominational]]
** [[Plymouth Brethren]]
** [[Quakers|Quakerism]]
* [[Restoration Movement|Restorationism]]
* [[Esoteric Christianity|Esoteric]]
** [[The Christian Community]]
* [[Independent Catholicism]]
* [[Old Catholic Church|Old Catholic]]
* [[Judaizers]]
* [[Nontrinitarianism]]
** [[Bible Student movement|Bible Students]]
*** [[Bible Student movement#Associated Bible Students|Associated Bible Students]]
*** [[Free Bible Students]]
*** [[Friends of Man]]
*** [[Jehovah's Witnesses]]
*** [[Religion in the Democratic Republic of the Congo#Kitawala|Kitawala]]
*** [[Laymen's Home Missionary Movement]]
** [[Christadelphians]]
** [[Mormonism]]
** [[Oneness Pentecostalism]]
** [[Spiritual Christianity|Spiritual]]
** [[The New Church (Swedenborgian)|Swedenborgianism]]
** [[Tolstoyan movement|Tolstoyan]]
** [[Unitarianism]]
* ''[[List of Christian denominations|list]]''

| group3 = [[Islam]]
| list3 =
* [[Sunni Islam|Sunnism]]
** [[Ash'arism]]
** [[Maturidism]]
** [[Atharism]]
** [[Salafi movement|Salafism]]
*** [[Wahhabism]]
*** [[Islamic modernism|Modernist Salafism]]
* [[Shia Islam|Shi'ism]]
** [[Alawites|Alawism]]
** [[Ali-Illahism]]
** [[Ismailism]]
** [[Twelver Shi'ism]]
** [[Zaydism]]
* [[Sufism]]
* [[Kharijites|Khawarij]]
** [[Ibadism]]
* [[Alevism]]
** [[Ishikism]]
** [[Kurdish Alevism]]
* [[Ahmadiyya|Ahmadi]]
* [[Mahdavi movement|Mahdavism]]
* [[Quranism]]
* [[Milah Abraham]]
* [[Non-denominational Muslim|Non-denominational]]
* ''[[Islamic schools and branches|list]]''

| group4 = Other
| list4 =
* [[Bábism]]
** [[Subh-i-Azal|Azalism]]
** [[Baháʼí Faith]]
* [[Druze]]
* [[Mandaeism]]
* [[Rastafari]]
* [[Samaritanism]]
}}

| group2 = [[Iranian religions|Iranian]]
| list2 =
{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;

| group1 = [[Zoroastrianism|Zoroastrian]]
|list1 =
* [[Zoroastrianism in Russia|Blagovery]]
* [[Ilm-e-Khshnoom]]
* [[Mazdaznan]]
* [[Zurvanism]]

| group2 = Kurdish
|list2 =
* [[Shabakism]]
* [[Yarsanism]]

| group3 = Other
|list3 =
* [[Assianism|Assianism/Uatsdin]]
* [[Roshani movement|Roshani]]
* [[Manichaeism]]
** [[Chinese Manichaeism]]
* [[Yazdânism]]
* [[Yazidism]]
}}
}}



| group2 = [[Eastern religions|Eastern]]
| list2 =

{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;
| group1 = [[East Asian religions|East Asian]]
| list1 =

{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;
| group1 = [[Religion in China|Chinese]]
| list1 =
* [[Chinese folk religion]]
* [[Confucianism]]
* [[Luo teaching|Luoism]]
* [[Nuo folk religion|Nuo]]
* [[Chinese salvationist religions|Salvationist]]
** [[Xiantiandao]]
** [[Yiguandao]]
** [[Falun Gong]]
* [[Taoism]]
** [[Chinese ritual mastery traditions|Folk Taoism]]
** [[Yao folk religion|Yao Taoism]]

| group2 = [[Religion in Japan|Japonic]]
| list2 =
* [[Shinto]]
** ''[[Shinto sects and schools|list]]''
* [[Shugendō]]
* [[Japanese new religions|New religions]]
** [[Tenrikyo]]
* [[Ryukyuan religion|Ryukyuan]]

| group3 = [[Religion in Korea|Korean]]
| list3 =
* [[Korean shamanism]]
* [[Cheondoism]]
* [[Jeung San Do|Jeungsanism]]

| group4 = [[Religion in Vietnam|Vietnamese]]
| list4 =
* [[Vietnamese folk religion]]
** [[Đạo Mẫu]]
* [[Caodaism]]
* [[Hòa Hảo|Hoahaoism]]
* [[Đạo Bửu Sơn Kỳ Hương]]
}}

| group2 = [[Indian religions|Indian]]
| list2 =

{{#invoke:navbox|navbox |child |groupstyle=font-weight:normal;

| group1 = [[Hinduism]]
| list1 =
* [[Vaishnavism]]
** [[Krishnaism]]
** [[Sri Vaishnavism]]
** [[Brahma Sampradaya]]
** [[Nimbarka Sampradaya]]
** [[Pushtimarga Sampradaya|Pushtimarg]]
** [[Mahanubhava]]
** [[Ramanandi Sampradaya|Ramanandi]]
** [[Warkari]]
** [[Swaminarayan Sampradaya|Swaminarayan]]
* [[Shaivism]]
** [[Shaiva Siddhanta]]
** [[Ganapatya]]
** [[Kashmir Shaivism|Kashmiri]]
** [[Kapalika]]
** [[Kaumaram]]
** [[Lingayats|Lingayatism]]
** [[Natha Sampradaya|Nath]]
** [[Balinese Hinduism|Balinese]]
* [[Shaktism]]
* [[Smarta tradition|Smartism]]
* [[Śrauta]]
* [[Sant Mat]]
* [[Hindu reform movements|Neo-Hinduism]]
* ''[[Hindu denominations|list]]''

| group2 = [[Buddhism]]
| list2 =
* [[Theravada]]
* [[Mahayana]]
** [[Chan Buddhism|Chan]]/[[Zen]]/[[Thiền]]
** [[Pure Land Buddhism|Amidism]]
** [[Nichiren Buddhism|Nichiren]]
* [[Vajrayana]]
** [[Tibetan Buddhism|Tibetan]]
* [[Buddhist modernism|Neo-Buddhism]]
* ''[[Schools of Buddhism|list]]''

| group3 = Other
| list3 =
* [[Ayyavazhi]]
* [[Kalash people#Religion|Kalash]]
* [[Jainism]]
** [[Digambara]]
** [[Śvetāmbara]]
* [[Sarnaism]]
* [[Kirat Mundhum]]
* [[Vedda#Religion|Vedda religions]]
* [[Ravidassia]]
* [[Sikhism]]
** [[Khalsa]]
** [[Sects of Sikhism|Sects]]
}}
}}

| group3 = [[Ethnic religion|Ethnic]]
| list3 =

{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;
| group6 = [[Altaic languages|Altaic]]
| list6 =
* [[Turkic mythology|Turko]]-[[Mongolian shamanism|Mongolic]]
** [[Burkhanism]]
** [[Tengrism]]
** [[Vattisen Yaly]]
* [[Tungusic creation myth|Tungusic]]
** [[Evenks#Religion|Evenki]]
** [[Manchu shamanism|Manchu]]

| group7 = [[Austroasiatic languages|Austroasiatic]]
| list7 =
* [[Sarna (place)|Sarnaism]]

| group8 = [[Austronesian languages|Austronesian]]
| list8 =
* [[Parmalim|Batak Parmalim]]
* [[Dayak people#Religion and festivals|Dayak]]
** [[Kaharingan]]
* Indonesian
** [[Aliran Kepercayaan]]
** [[Kejawèn]]
* [[Kapitayan]]
* [[Pemena|Karo Pemena]]
* [[Malaysian folk religion|Malaysian]]
** [[Traditional Sabahan religions]]
* [[Indigenous Philippine folk religions|Philippine Dayawism]]
** [[Tagalog religion|Tagalog]]
* [[Polynesian mythology|Polynesian]]
** [[Hawaiian religion|Hawaiian]]
** [[Religion of Māori people|Māori]]
* [[Marapu|Sumbese Marapu]]
* [[Sunda Wiwitan|Sundanese Wiwitan]]

| group10 = [[Native American religions|Native<br />American]]
| list10 =
* [[Abenaki mythology|Abenaki]]
* [[Alaska Native religion|Alaskan]]
* [[Anishinaabe traditional beliefs|Anishinaabe]]
** [[Ojibwe#Spiritual beliefs|Ojibwe]]
** [[Midewiwin]]
** [[Wabunowin]]
* [[Apache#Religion|Apache]]
* [[Blackfoot mythology|Blackfoot]]
* [[Traditional narratives of Indigenous Californians|Californian]]
** [[Kuksu (religion)|Kuksu]]
** [[Miwok mythology|Miwok]]
** [[Ohlone mythology|Ohlone]]
** [[Pomo religion|Pomo]]
* [[Chilote mythology|Chilote]]
* [[Choctaw mythology|Choctaw]]
* [[Crow religion|Crow]]
* [[Ghost Dance]]/[[Sun Dance]]
* [[Guarani mythology|Guarani]]
* [[Haida mythology|Haida]]
* [[Ho-Chunk mythology|Ho-Chunk]]
* [[Iroquois mythology|Iroquois]]
** [[Cherokee spiritual beliefs|Cherokee]]
*** [[Four Mothers Society]]
*** [[Keetoowah Nighthawk Society|Keetoowah Society]]
** [[Longhouse Religion|Longhouse]]
** [[Mohawk people#Religion|Mohawk]]
** [[Creek mythology|Muscogee Creek]]
** [[Seneca mythology|Seneca]]
** [[Wyandot religion|Wyandot]]
* [[Jivaroan peoples#Religion|Jivaroan]]
* [[Kwakwakaʼwakw mythology|Kwakwakaʼwakw]]
* [[Lenape mythology|Lenape]]
* [[Mapuche religion|Mapuche]]
* [[Mesoamerican religion|Mesoamerican]]
** [[Aztec religion|Aztec]]
** [[Maya religion|Maya]]
** [[Purépecha religion|Purépecha]]
* [[Muisca mythology|Muisca]]
* [[Native American Church]]
* [[Navajo#Spiritual and religious beliefs|Navajo]]
* [[Nuu-chah-nulth mythology|Nuu-chah-nulth]]
* [[Pawnee mythology|Pawnee]]
* [[Pueblo religion|Pueblo]]
** [[Acoma Pueblo#Religion|Acoma Pueblo]]
** [[Hopi mythology|Hopi]]
** [[Zuni mythology|Zuni]]
* [[Sioux#Religion|Sioux]]
** [[Lakota religion|Lakota]]
*** [[Wocekiye]]
* [[Tsimshian mythology|Tsimshian]]
* [[Ute mythology|Ute]]
* [[Native American religions#Washat Dreamers Religion|Washat Dreamers]]
* [[Yaqui#Yaqui cosmology and religion|Yaqui]]

| group11 = [[Tai peoples|Tai]] and [[Miao people|Miao]]
| list11 =
* [[Ahom religion|Ahom]]
* [[Miao folk religion|Hmongism]]
* [[Mo (religion)|Mo]]
* [[Tai folk religion|Satsana Phi]]

| group12 = [[Tibeto-Burman languages|Tibeto-Burmese]]
| list12 =
* [[Bon]]
* [[Burmese folk religion|Burmese]]
* [[Benzhuism]]
* [[Bimoism]]
* [[Bathouism]]
* [[Mun (religion)|Bongthingism]]
* [[Dongba]]
* [[Donyi-Polo]]
* [[Gurung shamanism|Gurung]]
* [[Heraka]]
* [[Kirat Mundhum|Kiratism]]
* [[Qiang folk religion|Qiang]]
* [[Sanamahism]]

| group13 = [[African traditional religions|Traditional <br> African]]
| list13 =
{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;
| group1 = North African
| list1 =
* [[Traditional Berber religion|Berber]]
** [[Church of the Guanche People|Guanche church]]

| group2 = [[Religion in Africa|Sub-Saharan</br>African]]
| list2 =
* [[Kamba people|Akamba]]
* [[Akan religion|Akan]]
* [[Baluba religion|Baluba]]
* [[Bantu religion|Bantu]]
** [[Kongo religion|Kongo]]
** [[Zulu traditional religion|Zulu]]
* [[Bushongo religion|Bushongo]]
* [[Dinka religion|Dinka]]
* [[Dogon religion|Dogon]]
* [[Efik mythology|Efik]]
* [[Dahomean religion|Fon and Ewe]]
* [[Ik people|Ik]]
* [[Lotuko mythology|Lotuko]]
* [[Lozi mythology|Lozi]]
* [[Lugbara mythology|Lugbara]]
* [[Maasai religion|Maasai]]
* [[Mbuti mythology|Mbuti]]
* [[Odinala]]
* [[San religion|San]]
* [[Serer religion|Serer]]
* [[Tumbuka mythology|Tumbuka]]
* [[Urhobo people|Urhobo]]
* [[Waaqeffanna]]
* [[Yoruba religion|Yoruba]]
** [[Ifá]]

*'''[[African diaspora religions|Diasporic]]:'''
** [[Candomblé]]
*** [[Candomblé Bantu|Bantu]]
*** [[Candomblé Jejé|Jejé]]
*** [[Candomblé Ketu|Ketu]]
** [[Comfa]]
** [[Convince]]
** [[Espiritismo]]
** [[Kumina]]
** [[Obeah]]
** [[Palo (religion)|Palo]]
** [[Quimbanda]]
** [[Santería]]
** [[Tambor de Mina]]
** [[Trinidad Orisha]]
** [[Umbanda]]
** [[Haitian Vodou|Vodou]]
** [[Louisiana Voodoo|Voodoo]]
** [[Winti]]
}}

| group15 = Other ethnic
| list15 =
* [[Australian Aboriginal religion and mythology|Aboriginal Australian]]
* [[Inuit religion|Inuit]]
* [[Papuan mythology|Papuan]]
* [[Shamanism in Siberia|Siberian]]
}}

| group4 = [[New religious movement|New</br> religious</br> movements]]
| list4 =

{{#invoke:navbox|navbox |child|groupstyle=font-weight:normal;

| group16 = Syncretic
| list16 =

* [[Zoroastrianism in Russia|Blagovery]]
* [[Brahmoism]] 
* [[Chinese salvationist religions|Chinese]]
** [[Falun Gong]]
* [[Coconut Religion]]
* [[Japanese new religions|Japanese]]
* [[Meivazhi]]
* [[Modekngei]]
* [[New Age]]
* [[New Thought]]
* [[Rajneesh movement|Rajneesh]]
* [[Rastafari]]
* [[Contemporary Sant Mat movements|Sant Mat]]
** [[Radha Soami]]
* [[Spiritualism (movement)|Spiritualism]]
* [[Subud]]
* [[Tensegrity (Castaneda)|Tensegrity]]
* [[Thelema]]
* [[Theosophy]]
** [[Neo-Theosophy]]
** [[Agni Yoga]] and [[Roerichism]]
** [[New Acropolis]]
* [[Transcendental Meditation]]
* [[Unitarian Universalism]]
* [[Universal White Brotherhood|White Brotherhood]]

| group17 = [[Modern paganism|Modern</br>paganism]]
| list17 =
* African
** [[Godianism]]
* [[Hetanism|Armenian]]
* [[Baltic neopaganism|Baltic]]
** [[Dievturība]]
** [[Romuva (religion)|Romuva]]
* [[Caucasian neopaganism|Caucasian]]
** [[Abkhaz traditional religion|Abkhaz]]
** [[Circassian paganism|Circassian]]
* [[Celtic neopaganism|Celtic]]
** [[Druidry (modern)|Druidry]]
* [[Heathenry (new religious movement)|Germanic]]
* [[Hellenism (modern religion)]]
* [[Neoshamanism]]
* [[Assianism|Ossetian]]
* [[Polytheistic reconstructionism]]
** [[Reconstructionist Roman religion|Italo-Roman]]
** [[Kemetism]]
* [[Zalmoxianism|Romanian]]
* [[Slavic Native Faith|Slavic]]
** [[Russian Authentism|Authentism]]
* [[Uralic neopaganism|Uralic]]
** [[Estonian neopaganism|Estonian]]
** [[Modern Finnish paganism|Finnish]]
** [[Hungarian Neopaganism (movement)|Hungarian]]
** [[Mari religion|Mari]]
** [[Erzyan native religion|Erzya]]
** [[Sámi shamanism|Sámi]]
** [[Udmurt Vos|Udmurt]]
* [[Wicca]]
* [[Zalmoxianism]]
* ''[[List of modern pagan movements|list]]''

| group18 = De novo
| list18 =
* [[Anthroposophy]]
** [[The Christian Community]]
* [[Discordianism]]
* [[Eckankar]]
* [[Fourth Way]]
* [[Goddess movement|Goddess]]
* [[Jediism]]
* [[Satanism]]
* [[Scientology]]
* [[UFO religion]]
** [[Raëlism]]

}}

|below =
}}


| sect2 = [[History of religion|Historical religions]]
| abbr2 = ancient
| state2 = <noinclude>expanded</noinclude>
| list2 =

* [[Prehistoric religion|Prehistoric]]
** [[Paleolithic religion|Paleolithic]]
* [[Ainu people#Religion|Ainu]]
* [[Armenian mythology|Armenian]]
* [[Baltic mythology|Baltic]]
** [[Latvian mythology|Latvian]]
** [[Lithuanian mythology|Lithuanian]]
** [[Prussian mythology|Old Prussian]]
* [[Basque mythology|Basque]]
* [[Ancient Celtic religion|Celtic]]
** [[Druid|Druidism]]
** [[Irish mythology|Irish]]
* [[Dravidian folk religion|Dravidian]]
* [[Ancient Egyptian religion|Egyptian]]
** [[Atenism]]
* [[Etruscan religion|Etruscan]]
* [[Finnish mythology|Finnish]]
* [[Fuegians#Spiritual culture|Fuegian]]
** [[Selkʼnam mythology|Selkʼnam]]
* [[Georgian mythology|Georgian]]
* [[Germanic paganism|Germanic]]
** [[Anglo-Saxon paganism|Anglo-Saxon]]
** [[Continental Germanic mythology|Continental]]
** [[Frankish paganism|Frankish]]
** [[Old Norse religion|Norse]]
* [[Ancient Greek religion|Greek]]
** [[Gnosticism]]
** [[Greco-Buddhism]]
** [[Hellenistic philosophy|Hellenistic philosophical religions]]
** [[Hermeticism]]
** [[Greco-Roman mysteries|Mysteries]]
** [[Orphism]]
* [[Guanches#System of beliefs|Guanche]]
* [[Indus Valley Civilisation#Religion|Harappan]]
* [[Hittite mythology and religion|Hittite]]
* [[Hungarian mythology|Hungarian]]
* [[Hurrian religion|Hurrian]]
* [[Illinois Confederacy#Religion|Illinois]]
* [[Inca mythology|Inca]]
* [[Jamaican Maroon religion|Jamaican Maroon]]
* [[Manichaeism]]
** [[Mazdak|Mazdakism]]
* [[Melanesian mythology|Melanesian]]
* [[Ancient Mesopotamian religion|Mesopotamian]]
** [[Babylonian religion|Babylonian]]
** [[Sumerian religion|Sumerian]]
* [[Micronesian mythology|Micronesian]]
** [[Nauruan indigenous religion|Nauruan]]
* [[Olmec religion|Olmec]]
* [[Paleo-Balkan mythology|Paleo-Balkan]]
** [[Albanian paganism|Albanian]]
** [[Dacian mythology|Dacian]]
** [[Illyrian religion|Illyrian]]
** [[Thracian religion|Thracian]]
* [[Polynesian mythology|Polynesian]]
** [[Cook Islands mythology|Cook Islands]]
** [[Rapa Nui mythology|Rapa Nui]]
** [[Tongan religion|Tongan]]
* [[Proto-Indo-Iranian religion|Proto-Indo-Iranian]]
** [[Ancient Iranian religion|Iranian]]
** [[Historical Vedic religion|Vedic]]
* [[Basketmaker III era#Culture and religion|Ancestral Pueblo]]
** [[Pueblo II period#Culture and religion|Pueblo II]]
** [[Pueblo III period#Culture and religion|Pueblo III]]
** [[Pueblo IV period#Culture and religion|Pueblo IV]]
* [[Religion in ancient Rome|Roman]]
** [[Cybele|Cult of Magna Mater]]
** [[Gallo-Roman religion|Gallo-Roman]]
** [[Roman imperial cult|Imperial cult]]
** [[Mithraism]]
** [[Mysteries of Isis]]
** [[Natale di Roma]]
* [[Ancient Semitic religion|Semitic]]
** [[Religion in pre-Islamic Arabia|Arabian]]
*** [[Nabataean religion|Nabataean]]
** [[Babylonian religion|Babylonian]]
** [[Canaanite religion|Canaanite]]
*** [[Punic religion|Punic]]
*** [[Yahwism]]
* [[Scythian religion|Scythian]]
* [[Slavic paganism|Slavic]]
* [[Somali mythology|Somali]]
* [[Turkic mythology|Turkic]]
** [[Tengrism|Tengrism]]
* [[Urartu#Religion|Urartu]]
* [[Vainakh religion|Vainakh]]
* [[Zapotec civilization#Religion and Myth|Zapotec]]


| sect3 = Topics
| abbr3 = topics
| state3 = <noinclude>expanded</noinclude>
| list3 =
{{#invoke:navbox|navbox |child

| group1 = Aspects
| list1 =
* [[Apostasy]]{{\}}[[Religious disaffiliation|Disaffiliation]]
* [[Religious behaviour|Behaviour]]
* [[Belief#Religion|Beliefs]]
* [[Call to prayer]]
* [[Laicism]] / [[Laity]]
* [[Covenant (religion)|Covenant]]
* [[Religious conversion|Conversion]]
* [[Deity|Deities]]
* [[Religious denomination|Denomination]]
* [[Entheogen]]s
* [[Faith]]
* [[God]]
* [[Goddess]]
* [[Meditation]]
* [[Monasticism]]
** [[Monk]]
** [[Novice]]
** [[Nun]]
* [[Mysticism]]
* [[Religion and mythology|Mythology]]
* [[Ordination]]
* [[Orthodoxy]]
* [[Orthopraxy]]
* [[Paganism]]
* [[Prayer]]
* [[Prophecy]]
* [[Religious experience]]
* [[Ritual]]
** [[Liturgy]]
** [[Ritual purification|Purification]]
** [[Sacrifice]]
* [[Sacred space]]
** [[Sacred waters|Bodies of water]]
** [[Sacred grove|Groves]]
** [[Sacred mountains|Mountains]]
** [[Sacred tree|Trees]]
* [[Soul]]
* [[Spirituality]]
* [[Supernatural]]
* [[Religious symbol|Symbols]]
* [[Religious text|Text]]
* [[Religious views on truth|Truth]]
* [[Water and religion|Water]]
* [[Worship]]
** [[Worship of heavenly bodies|Astral]]
** [[Fire worship|Fire]]
** [[Nature worship|Nature]]
** [[Place of worship|Place]]

| group2 = [[Theism]]
| list2 =
* [[Animism]]
* [[Deism]]
* [[Dualism in cosmology|Dualism]]
* [[Henotheism]]
* [[Monotheism]]
* [[Nontheism]]
* [[Pandeism]]
* [[Panentheism]]
* [[Pantheism]]
* [[Polytheism]]
* [[Transtheism]]

| group3 = [[Religious studies|Religious<br />studies]]
| list3 =
* [[Anthropology of religion|Anthropology]]
* [[Cognitive science of religion|Cognitive science]]
* [[Comparative religion|Comparative]]
* Demographics
** [[Ethnic religion|Ethnic]]
** [[Folk religion|Folk]]
** [[Indigenous religion|Indigenous]]
** [[Major religious groups|Major]]
** [[World religions|World]]
* [[Evolutionary origin of religion]]
* [[Evolutionary psychology of religion|Evolutionary psychology]]
* [[History of religion|History]]
* [[Neuroscience of religion|Neurotheology]]
* [[Philosophy of religion|Philosophy]]
* [[Psychology of religion|Psychology]]
* [[Sociology of religion|Sociology]]
* [[Soteriology]]
** [[Salvation]]
* [[Theology]]
* [[Theories about religion]]
* [[Women and religion|Women]]

| group4 = {{longitem|[[:Category:Religion and society|Religion <br />and society]]}}
| list4 =
* [[Religion and agriculture|Agriculture]]
* [[Religion and business|Business]]
* [[Clericalism]] / [[Clergy]]
** [[Monasticism]]
** [[Ordination]]
** [[Priest]]
* [[Religious conversion|Conversion]]
** [[religious assimilation|Assimilation]]
** [[Missionary]]
** [[Proselytism]]
* [[Disability and religion|Disability]]
* [[Religious education|Education]]
* [[Religious fanaticism|Fanaticism]]
* [[Freedom of religion|Freedom]]
** [[Religious pluralism|Pluralism]]
** [[Syncretism]]
** [[Toleration]]
** [[Universalism]]
* [[Fundamentalism]]
* [[Growth of religion|Growth]]
* [[Gender and religion|Gender]]
* [[Religion and happiness|Happiness]]
* [[Religion and LGBTQ people|LGBTQ people]]
** [[Homosexuality and religion|Homosexuality]]
** [[Intersex people and religion|Intersex people]]
** [[Transgender people and religion|Transgender people]]
* [[Minority religion|Minorities]]
* [[National church]]
* [[Importance of religion by country|National religiosity levels]]
* [[Religion in politics|Politics]]
* [[List of religious populations|Populations]]
* [[Religiocentrism]]
* [[Schism]]
* [[Religious school|School]]
* [[Relationship between religion and science|Science]]
* [[Religion and sexuality|Sexuality]]
* [[State religion|State]]
* [[Religious views on suicide|Suicide]]
* [[Theocracy]]
* [[Vegetarianism and religion|Vegetarianism]]
* [[Religion and video games|Video games]]
* [[Religious violence|Violence]]
** [[Religious persecution|Persecution]]
** [[Religious terrorism|Terrorism]]
** [[Religious war|War]]
** [[Sectarian violence|Sectarian]]
* [[Wealth and religion|Wealth]]

| group5 = {{longitem|[[Secularism]] <br />and [[irreligion]]}}
| list5 =
* [[Agnosticism]]
* [[Antireligion]]
* [[Atheism]]
* [[Criticism of religion|Criticism]]
* [[Positive deconstruction|Deconstruction]]
* [[Objectivism]]
* [[Secular humanism]]
* [[Secular religion]]
* [[Secular theology]]
* [[Secularization]]
* [[Separation of church and state]]
* [[List of religions and spiritual traditions|Unaffiliated]]

| group6 = {{longitem|Overviews<br />and [[:Category:Religion-related lists|lists]]}}
| list6 =
* [[Table of prophets of Abrahamic religions|Abrahamic prophets]]
* [[List of people who have been considered deities|Deification]]
* [[Lists of deities|Deities]]
* [[List of founders of religious traditions|Founders]]
* [[Index of religion-related articles|Index]]
* [[List of largest peaceful gatherings|Mass gatherings]]
* [[Names of God]]
* [[List of new religious movements|New religious movements]]
* [[List of religious organizations|Organizations]]
* [[Outline of religion|Outline]]
* [[List of religions and spiritual traditions|Religions and spiritual traditions]]
* [[List of religious sites|Religious sites]]
* [[Religious studies|Scholars]]
* [[Timeline of religion|Timeline]]
}}


| sect4 = Religion by country
| abbr4 = religion by country
| state4 = <noinclude>expanded</noinclude>
| list4 =
{{#invoke:navbox|navbox |child

| group1 = [[Religion in Africa|Africa]]
| list1 =
* [[Religion in Algeria|Algeria]]
* [[Religion in Angola|Angola]]
* [[Religion in Benin|Benin]]
* [[Religion in Botswana|Botswana]]
* [[Religion in Burkina Faso|Burkina Faso]]
* [[Religion in Burundi|Burundi]]
* [[Religion in Cameroon|Cameroon]]
* [[Religion in Cape Verde|Cape Verde]]
* [[Religion in the Central African Republic|Central African Republic]]
* [[Religion in Chad|Chad]]
* [[Religion in the Comoros|Comoros]]
* [[Religion in the Democratic Republic of the Congo|Democratic Republic of the Congo]]
* [[Religion in the Republic of the Congo|Republic of the Congo]]
* [[Religion in Djibouti|Djibouti]]
* [[Religion in Egypt|Egypt]]
* [[Religion in Equatorial Guinea|Equatorial Guinea]]
* [[Religion in Eritrea|Eritrea]]
* [[Religion in Eswatini|Eswatini]]
* [[Religion in Ethiopia|Ethiopia]]
* [[Religion in Gabon|Gabon]]
* [[Religion in the Gambia|Gambia]]
* [[Religion in Ghana|Ghana]]
* [[Religion in Guinea|Guinea]]
* [[Religion in Guinea-Bissau|Guinea-Bissau]]
* [[Religion in Ivory Coast|Ivory Coast]]
* [[Religion in Kenya|Kenya]]
* [[Religion in Lesotho|Lesotho]]
* [[Religion in Liberia|Liberia]]
* [[Religion in Libya|Libya]]
* [[Religion in Madagascar|Madagascar]]
* [[Religion in Malawi|Malawi]]
* [[Religion in Mali|Mali]]
* [[Religion in Mauritania|Mauritania]]
* [[Religion in Mauritius|Mauritius]]
* [[Religion in Morocco|Morocco]]
* [[Religion in Mozambique|Mozambique]]
* [[Religion in Namibia|Namibia]]
* [[Religion in Niger|Niger]]
* [[Religion in Nigeria|Nigeria]]
* [[Religion in Rwanda|Rwanda]]
* [[Religion in São Tomé and Príncipe|São Tomé and Príncipe]]
* [[Religion in Senegal|Senegal]]
* [[Religion in Seychelles|Seychelles]]
* [[Religion in Sierra Leone|Sierra Leone]]
* [[Religion in Somalia|Somalia]]
* [[Religion in South Africa|South Africa]]
* [[Religion in South Sudan|South Sudan]]
* [[Religion in Sudan|Sudan]]
* [[Religion in Tanzania|Tanzania]]
* [[Religion in Togo|Togo]]
* [[Religion in Tunisia|Tunisia]]
* [[Religion in Uganda|Uganda]]
* [[Religion in Zambia|Zambia]]
* [[Religion in Zimbabwe|Zimbabwe]]

| group2 = [[Religion in Asia|Asia]]
| list2 =
* [[Religion in Afghanistan|Afghanistan]]
* [[Religion in Armenia|Armenia]]
* [[Religion in Azerbaijan|Azerbaijan]]
* [[Religion in Bahrain|Bahrain]]
* [[Religion in Bangladesh|Bangladesh]]
* [[Religion in Bhutan|Bhutan]]
* [[Religion in Brunei|Brunei]]
* [[Religion in Cambodia|Cambodia]]
* [[Religion in China|China]]
* [[Religion in Cyprus|Cyprus]]
* [[Religion in Georgia (country)|Georgia]]
* [[Religion in Hong Kong|Hong Kong]]
* [[Religion in India|India]]
* [[Religion in Indonesia|Indonesia]]
* [[Religion in Iran|Iran]]
* [[Religion in Iraq|Iraq]]
* [[Religion in Israel|Israel]]
* [[Religion in Japan|Japan]]
* [[Religion in Jordan|Jordan]]
* [[Religion in Kazakhstan|Kazakhstan]]
* [[Religion in Korea|Korea]]
** [[Religion in North Korea|North Korea]]
** [[Religion in South Korea|South Korea]]
* [[Religion in Kuwait|Kuwait]]
* [[Religion in Kyrgyzstan|Kyrgyzstan]]
* [[Religion in Laos|Laos]]
* [[Religion in Lebanon|Lebanon]]
* [[Religion in Macau|Macau]]
* [[Religion in Malaysia|Malaysia]]
* [[Religion in the Maldives|Maldives]]
* [[Religion in Mongolia|Mongolia]]
* [[Religion in Myanmar|Myanmar]]
* [[Religion in Nepal|Nepal]]
* [[Religion in Oman|Oman]]
* [[Religion in Pakistan|Pakistan]]
* [[Religion in Palestine|Palestine]]
* [[Religion in the Philippines|Philippines]]
* [[Religion in Qatar|Qatar]]
* [[Religion in Saudi Arabia|Saudi Arabia]]
* [[Religion in Singapore|Singapore]]
* [[Religion in Sri Lanka|Sri Lanka]]
* [[Religion in Syria|Syria]]
* [[Religion in Taiwan|Taiwan]]
* [[Religion in Tajikistan|Tajikistan]]
* [[Religion in Thailand|Thailand]]
* [[Religion in Timor-Leste|Timor-Leste]]
* [[Religion in Turkey|Turkey]]
* [[Religion in Turkmenistan|Turkmenistan]]
* [[Religion in the United Arab Emirates|United Arab Emirates]]
* [[Religion in Uzbekistan|Uzbekistan]]
* [[Religion in Vietnam|Vietnam]]
* [[Religion in Yemen|Yemen]]

| group3 = [[Religion in Europe|Europe]]
| list3 =
* [[Religion in Albania|Albania]]
* [[Religion in Andorra|Andorra]]
* [[Religion in Austria|Austria]]
* [[Religion in Belarus|Belarus]]
* [[Religion in Belgium|Belgium]]
* [[Religion in Bosnia and Herzegovina|Bosnia and Herzegovina]]
* [[Religion in Bulgaria|Bulgaria]]
* [[Religion in Croatia|Croatia]]
* [[Religion in the Czech Republic|Czechia]]
* [[Religion in Denmark|Denmark]]
* [[Religion in Estonia|Estonia]]
* [[Religion in Finland|Finland]]
* [[Religion in France|France]]
* [[Religion in Germany|Germany]]
* [[Religion in Greece|Greece]]
* [[Religion in Hungary|Hungary]]
* [[Religion in Iceland|Iceland]]
* [[Religion in the Republic of Ireland|Ireland]]
* [[Religion in Italy|Italy]]
* [[Religion in Kosovo|Kosovo]]
* [[Religion in Latvia|Latvia]]
* [[Religion in Liechtenstein|Liechtenstein]]
* [[Religion in Lithuania|Lithuania]]
* [[Religion in Luxembourg|Luxembourg]]
* [[Religion in Malta|Malta]]
* [[Religion in Moldova|Moldova]]
* [[Religion in Monaco|Monaco]]
* [[Religion in Montenegro|Montenegro]]
* [[Religion in the Netherlands|Netherlands]]
* [[Religion in North Macedonia|North Macedonia]]
* [[Religion in Norway|Norway]]
* [[Religion in Poland|Poland]]
* [[Religion in Portugal|Portugal]]
* [[Religion in Romania|Romania]]
* [[Religion in Russia|Russia]]
* [[Religion in San Marino|San Marino]]
* [[Religion in Serbia|Serbia]]
* [[Religion in Slovakia|Slovakia]]
* [[Religion in Slovenia|Slovenia]]
* [[Religion in Spain|Spain]]
* [[Religion in Sweden|Sweden]]
* [[Religion in Switzerland|Switzerland]]
* [[Religion in Ukraine|Ukraine]]
* [[Religion in the United Kingdom|United Kingdom]]
** [[Religion in England|England]]
** [[Religion in Northern Ireland|Northern Ireland]]
** [[Religion in Scotland|Scotland]]
** [[Religion in Wales|Wales]]

| group4 = [[Religion in North America|North America]]
| list4 =
* [[Religion in Antigua and Barbuda|Antigua and Barbuda]]
* [[Religion in the Bahamas|Bahamas]]
* [[Religion in Barbados|Barbados]]
* [[Religion in Belize|Belize]]
* [[Religion in Canada|Canada]]
* [[Religion in Costa Rica|Costa Rica]]
* [[Religion in Cuba|Cuba]]
* [[Religion in Dominica|Dominica]]
* [[Religion in the Dominican Republic|Dominican Republic]]
* [[Religion in El Salvador|El Salvador]]
* [[Religion in Grenada|Grenada]]
* [[Religion in Guatemala|Guatemala]]
* [[Religion in Haiti|Haiti]]
* [[Religion in Honduras|Honduras]]
* [[Religion in Jamaica|Jamaica]]
* [[Religion in Mexico|Mexico]]
* [[Religion in Nicaragua|Nicaragua]]
* [[Religion in Panama|Panama]]
* [[Religion in Saint Kitts and Nevis|Saint Kitts and Nevis]]
* [[Religion in Saint Lucia|Saint Lucia]]
* [[Religion in Saint Vincent and the Grenadines|Saint Vincent and the Grenadines]]
* [[Religion in Trinidad and Tobago|Trinidad and Tobago]]
* [[Religion in the United States|United States]]

| group5 = [[Religion in Oceania|Oceania]]
| list5 =
* [[Religion in Australia|Australia]]
* [[Religion in Fiji|Fiji]]
* [[Religion in Kiribati|Kiribati]]
* [[Religion in the Marshall Islands|Marshall Islands]]
* [[Religion in the Federated States of Micronesia|Micronesia]]
* [[Religion in Nauru|Nauru]]
* [[Religion in New Zealand|New Zealand]]
* [[Religion in Palau|Palau]]
* [[Religion in Papua New Guinea|Papua New Guinea]]
* [[Religion in Samoa|Samoa]]
* [[Religion in Solomon Islands|Solomon Islands]]
* [[Religion in Tonga|Tonga]]
* [[Religion in Tuvalu|Tuvalu]]
* [[Religion in Vanuatu|Vanuatu]]

| group6 = [[Religion in South America|South America]]
| list6 =
* [[Religion in Argentina|Argentina]]
* [[Religion in Bolivia|Bolivia]]
* [[Religion in Brazil|Brazil]]
* [[Religion in Chile|Chile]]
* [[Religion in Colombia|Colombia]]
* [[Religion in Ecuador|Ecuador]]
* [[Religion in Guyana|Guyana]]
* [[Religion in Paraguay|Paraguay]]
* [[Religion in Peru|Peru]]
* [[Religion in Suriname|Suriname]]
* [[Religion in Uruguay|Uruguay]]
* [[Religion in Venezuela|Venezuela]]
}}


| belowstyle = font-weight:bold;
| below =
* {{icon|category}} [[:Category:Religion|Category]]
* {{icon|portal}} [[Portal:Religion|Portal]]
}}<noinclude>{{Documentation}}
</noinclude>

Module:Official website

2026-04-04T20:33:14Z

Cultopedia-admin: Cultopedia: guard Official_website when Wikibase is unavailable

local makeUrl = require('Module:URL')._url

local p = {}
local wb = mw.wikibase

-- Wrapper for pcall which returns nil on failure.
local function quickPcall(func)
local success, result = pcall(func)
if success then
return result
end
end

-- Gets the rank for a Wikidata property table. Returns 1, 0 or -1, in
-- order of rank.
local function getRank(prop)
local rank = prop.rank
if rank == 'preferred' then
return 1
elseif rank == 'normal' then
return 0
elseif rank == 'deprecated' then
return -1
else
-- No rank or undefined rank is treated as "normal".
return 0
end
end

-- Finds whether a Wikidata property is qualified as being in English.
local function isEnglish(prop)
local ret = quickPcall(function ()
for i, lang in ipairs(prop.qualifiers.P407) do
if lang.datavalue.value['numeric-id'] == 1860 then
return true
end
end
return false
end)
return ret == true
end

-- Fetches the official website URL from Wikidata.
local fetchWikidataUrl
fetchWikidataUrl = function(qid)
-- Get objects for all official sites on Wikidata.
if not wb then
return nil
end
local websites = quickPcall(function ()
local id = qid or wb.getEntityIdForCurrentPage()
return wb.getAllStatements(id, 'P856')
end)

-- Clone the objects in case other code needs them in their original order.
websites = websites and mw.clone(websites) or {}

-- Add the table index to the objects in case it is needed in the sort.
for i, website in ipairs(websites) do
website._index = i
end

-- Sort the websites, first by highest rank, and then by websites in the
-- English language, then by the website's original position in the
-- property list. When we are done, get the URL from the highest-sorted
-- object.
table.sort(websites, function(ws1, ws2)
local r1 = getRank(ws1)
local r2 = getRank(ws2)
if r1 ~= r2 then
return r1 > r2
end
local e1 = isEnglish(ws1)
local e2 = isEnglish(ws2)
if e1 ~= e2 then
return e1
end
return ws1._index < ws2._index
end)
local url = quickPcall(function ()
return websites[1].mainsnak.datavalue.value
end)

-- Cache the result so that we only do the heavy lifting once per #invoke.
fetchWikidataUrl = function ()
return url
end

return url
end

-- Render the URL link, plus other visible output.
local function renderUrl(options)
if not options.url and not options.wikidataurl then
if options.suppress_error then
return ''
end
local qid = options.qid or (wb and wb.getEntityIdForCurrentPage())
local result = '<strong class="error">' ..
'No URL found. Please specify a URL here or add one to Wikidata.' ..
'</strong>'
if qid then
result = result.. ' [[File:OOjs UI icon edit-ltr-progressive.svg |frameless |text-top |10px |alt=Edit this at Wikidata |link=https://www.wikidata.org/wiki/' .. qid .. '#P856|Edit this at Wikidata]]'
end
return result
end
local ret = {}
ret[#ret + 1] = string.format(
'<span class="official-website">%s</span>',
makeUrl(options.url or options.wikidataurl, options.display)
)
if options.wikidataurl and not options.url then
local qid = wb and wb.getEntityIdForCurrentPage()
if qid then
ret[#ret + 1] = '[[File:OOjs UI icon edit-ltr-progressive.svg |frameless |text-top |10px |alt=Edit this at Wikidata |link=https://www.wikidata.org/wiki/' .. qid .. '#P856|Edit this at Wikidata]]'
end
end
return table.concat(ret, ' ')
end

-- Render the tracking category.
local function renderTrackingCategory(url, wikidataurl)
if mw.title.getCurrentTitle().namespace ~= 0 then
return ''
end
local category
if not url and not wikidataurl then
category = 'Official website missing URL'
elseif not url and wikidataurl then
return ''
elseif url and wikidataurl then
if url:gsub('/%s*$', '') ~= wikidataurl:gsub('/%s*$', '') then
category = 'Official website different in Wikidata and Wikipedia'
end
else
category = 'Official website not in Wikidata'
end
return category and string.format('[[Category:%s]]', category) or ''
end

function p._main(args)
local url = args[1] or args.URL or args.url
local wikidataurl = fetchWikidataUrl(args.qid)
local formattedUrl = renderUrl{
url = url,
wikidataurl = wikidataurl,
display = args[2] or args.name or 'Official website',
qid = qid
}
return formattedUrl .. renderTrackingCategory(url, wikidataurl)
end

function p._url(args)
local qid = args.qid
local wikidataurl = fetchWikidataUrl(qid)
local formattedUrl = renderUrl{
suppress_error = 1,
wikidataurl = wikidataurl,
qid = qid
}

local warning = ""
if wikidataurl == nil then
local generateWarning = require('Module:If preview')._warning
warning = generateWarning({
"No official website ([[wikidata:Property:P856|P856]]) found in wikidata. Nothing will be displayed."
})
end

return formattedUrl .. warning
end

function p.main(frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = 'Template:Official website'
})
return p._main(args)
end

-- New entrypoint for Template:Official URL
function p.url(frame)
local args = require('Module:Arguments').getArgs(frame, {
wrappers = 'Template:Official URL'
})
return p._url(args)
end

return p

Module:Commons link

2026-04-04T20:33:13Z

Cultopedia-admin: Cultopedia: guard Commons_link when Wikibase is unavailable

require('strict')

-- Module to find commons galleries and categories based on wikidata entries
local getArgs = require('Module:Arguments').getArgs
local p = {}
local wb = mw.wikibase

-- Check if string is a valid QID
-- Argument: QID to check
-- Returns: valid (bool)
local function _validQID(qid)
return qid and mw.ustring.find(qid,"^[Qq]%d+$")
end

-- Check if string is a valid wikidata property string
-- Argument: property string to check
-- Returns: valid (bool)
local function _validProp(prop)
return prop and mw.ustring.find(prop,"^[Pp]%d+$")
end

local function _lcfirst(s)
return mw.ustring.lower(mw.ustring.sub(s,1,1))..mw.ustring.sub(s,2)
end

-- Format displayed linktext
-- Arguments:
-- s = string to display
-- formatting = formatting table:
-- formatting.linktext = if defined, override s
-- formatting.lcfirst = lower case the first letter in display
-- formatting.bold = whether to bold the display
-- formatting.italic = whether to italicize the display
-- formatting.nowrap = set nowrapping
-- Returns:
-- formatted string
local function _formatResult(s, formatting)
local resultVal = formatting.linktext or s
if formatting.lcfirst then
resultVal = _lcfirst(resultVal)
end
local style = ""
if formatting.italic then style = "font-style:italic; " end
if formatting.bold then style = style.."font-weight:bold; " end
if formatting.nowrap then style = style.."white-space:nowrap; " end
if style ~= "" then
resultVal = '<span style="'..mw.text.trim(style)..'">'..resultVal..'</span>'
end
return resultVal
end

-- Get title, namespace, and QID for current page
-- Arguments:
-- qid = testing only: get title of alternative page with QID=qid
-- nsQid = whether to return the ns of the qid page or current
-- Returns:
-- title, namespace (string), qid of current page (or test page)
local function _getTitleQID(qid,nsQid)
local titleObject = mw.title.getCurrentTitle()
-- look up qid for current page (if not testing)
local nsText = string.gsub(titleObject.nsText,"_"," ") -- [[phab:T369784]]
if not _validQID(qid) then
qid = wb and wb.getEntityIdForCurrentPage()
return titleObject.text, nsText, qid
end
-- testing-only path: given a qid, determine title
-- always use namespace from current page (to suppress tracking cat)
qid = qid:upper()
local title = (wb and wb.getSitelink(qid)) or ""
-- strip any namespace from sitelink
local firstColon = mw.ustring.find(title,':',1,true)
local qidNsText = ""
if firstColon then
qidNsText = mw.ustring.sub(title,1,firstColon-1)
title = mw.ustring.sub(title,firstColon+1)
end
if nsQid then
return title, qidNsText, qid
end
return title, nsText, qid
end

-- Lookup Commons gallery in Wikidata
-- Arguments:
-- qid = QID of current article
-- fetch = whether to lookup Commons sitelink (bool)
-- commonsSitelink = default value for Commons sitelink
-- Returns:
-- categoryLink = name of Commons category, nil if nothing is found
-- consistent = multiple wikidata fields are examined: are they consistent?
-- commonsSitelink = commons sitelink for current article
local function _lookupGallery(qid,fetch,commonsSitelink)
if not wb or not _validQID(qid) then
return nil, true, nil
end
qid = qid:upper()
local galleryLink = nil
local consistent = true
-- look up commons sitelink for article, use if not category
if fetch then
commonsSitelink = wb.getSitelink(qid,"commonswiki") or commonsSitelink
end
if commonsSitelink and mw.ustring.sub(commonsSitelink,1,9) ~= "Category:" then
galleryLink = commonsSitelink
end
-- P935 is the "commons gallery" property for this article
local bestP935 = wb.getBestStatements(qid, "P935")
local P935 = bestP935 and bestP935[1]
if P935 and P935.mainsnak.datavalue then
local gallery = P935.mainsnak.datavalue.value
if galleryLink and galleryLink ~= gallery then
consistent = false
else
galleryLink = gallery
end
end
return galleryLink, consistent, commonsSitelink
end

-- Find fallback category by looking up Commons sitelink of different page
-- Arguments:
-- qid = QID for current article
-- property = property that refers to other article whose sitelink to return
-- Returns: either category-stripped name of article, or nil
local function _lookupFallback(qid,property)
if not wb or not _validQID(qid) or not _validProp(property) then
return nil
end
qid = qid:upper()
property = property:upper()
-- If property exists on current article, get value (other article qid)
local best = wb.getBestStatements(qid, property)
local value = best and best[1]
if value and value.mainsnak.datavalue and value.mainsnak.datavalue.value.id then
-- Look up Commons sitelink of other article
local sitelink = wb.getSitelink(value.mainsnak.datavalue.value.id,"commonswiki")
-- Check to see if it starts with "Category:". If so, strip it and return
if sitelink and mw.ustring.sub(sitelink,1,9) == "Category:" then
return mw.ustring.sub(sitelink,10)
end
end
return nil
end

-- Find Commons category by looking in wikidata
-- Arguments:
-- qid = QID of current article
-- fetch = whether to lookup Commons sitelink (bool)
-- commonsSitelink = default value for Commons sitelink
-- Returns:
-- categoryLink = name of Commons category, nil if nothing is found
-- consistent = multiple wikidata fields are examined: are they consistent?
-- commonsSitelink = commons sitelink for current article
local function _lookupCategory(qid, fetch, commonsSitelink)
if not wb or not _validQID(qid) then
return nil, true, nil
end
qid = qid:upper()
local categoryLink = nil
local consistent = true
-- look up commons sitelink for article, use if starts with "Category:"
if fetch then
commonsSitelink = wb.getSitelink(qid,"commonswiki") or commonsSitelink
end
if commonsSitelink and mw.ustring.sub(commonsSitelink,1,9) == "Category:" then
categoryLink = mw.ustring.sub(commonsSitelink,10)
end
-- P910 is the "topic's main category". Look for commons sitelink there
local fallback = _lookupFallback(qid,"P910")
if fallback then
if categoryLink and categoryLink ~= fallback then
consistent = false
qid = nil
else
categoryLink = fallback
end
end
-- P1754 is the "list's main category". Look for commons sitelink there
fallback = _lookupFallback(qid,"P1754")
if fallback then
if categoryLink and categoryLink ~= fallback then
consistent = false
qid = nil
else
categoryLink = fallback
end
end
-- P373 is the "commons category" property for this article. This is
-- a low-quality field, so should only be used as a last resort.
if categoryLink == nil and _validQID(qid) then
local bestP373 = wb.getBestStatements(qid, "P373")
local P373 = bestP373 and bestP373[1]
if P373 and P373.mainsnak.datavalue then
categoryLink = P373.mainsnak.datavalue.value
consistent = true -- P373 is never used if anything else is available
end
end
return categoryLink, consistent, commonsSitelink
end

-- Does the article have a Commons gallery, and is it consistent?
-- Arguments:
-- qid = QID to lookup in wikidata (for testing only)
-- Returns:
-- filename at Commons, bool: is wikidata consistent for this article?
function p._hasGalleryConsistent(qid)
local wp_title, wp_ns
wp_title, wp_ns, qid = _getTitleQID(qid)
return _lookupGallery(qid,true)
end

-- Does the article have a corresponding Commons gallery?
-- Arguments:
-- qid = QID to lookup in wikidata (for testing only)
-- Returns:
-- filename at Commons if so, false if not
function p._hasGallery(qid)
local galleryLink, consistent = p._hasGalleryConsistent(qid)
return consistent and galleryLink
end

-- Does the article have a Commons category? Is wikidata consistent for that?
-- Arguments:
-- qid = QID to lookup in wikidata (for testing only)
-- prefix = whether to add "Category:" to return string (default true)
-- Returns:
-- filename at Commons, bool: consistent
function p._hasCategoryConsistent(qid,prefix)
if prefix == nil then
prefix = true
end
local wp_title, wp_ns
wp_title, wp_ns, qid = _getTitleQID(qid)
local categoryLink, consistent = _lookupCategory(qid,true)
if categoryLink and prefix then
categoryLink = "Category:"..categoryLink
end
return categoryLink, consistent
end

-- Does the article have a corresponding Commons category?
-- Arguments:
-- qid = QID to lookup in wikidata (for testing only)
-- prefix = whether to add "Category:" to return string (default true)
-- Returns:
-- filename at Commons if so, blank if not
function p._hasCategory(qid,prefix)
local categoryLink, consistent = p._hasCategoryConsistent(qid,prefix)
return consistent and categoryLink
end

-- Create Commons link corresponding to current article
-- Arguments:
-- namespace = namespace in Commons ("" for galleries)
-- default = use as Commons link, don't access wikidata
-- search = string to search for
-- fallback = string to search for if wikidata fails
-- formatting = formatting parameters
-- qid = QID to lookup in wikidata (for testing only)
-- Returns:
-- formatted wikilink to Commons in specified namespace
function p._getCommons(namespace,default,search,fallback,formatting,qid)
local nsColon
if not namespace or namespace == "" then
nsColon = ""
else
nsColon = namespace..":"
end
if default then
return "[[Commons:"..nsColon..default.."|".._formatResult(default,formatting).."]]"
end
if search then
return "[[Commons:Special:Search/"..nsColon..search.."|".._formatResult(search,formatting).."]]"
end
local wp_title, wp_ns
wp_title, wp_ns, qid = _getTitleQID(qid)
local commonsLink = nil
local consistent = true
if nsColon == "" then
commonsLink, consistent = _lookupGallery(qid,true)
elseif namespace:lower() == "category" then
commonsLink, consistent = _lookupCategory(qid,true)
end
-- use wikidata if consistent
if commonsLink and consistent then
return "[[Commons:"..nsColon..commonsLink.."|".._formatResult(commonsLink,formatting).."]]"
end
-- if not consistent, fall back to search and add to tracking cat
-- construct default result (which searches for title)
local searchResult = "[[Commons:Special:Search/"..nsColon..(fallback or wp_title)
.."|".._formatResult(fallback or wp_title,formatting).."]]"
if not consistent and wp_ns == "" then
local friendlyNS
if nsColon == "" then
friendlyNS = "gallery"
else
friendlyNS = namespace:lower()
end
searchResult = searchResult.."[[Category:Inconsistent wikidata for Commons "..friendlyNS.."]]"
end
return searchResult
end

-- Returns "best" Commons link: first look for gallery, then try category
-- Arguments:
-- default = use as Commons link, don't access wikidata
-- search = string to search for
-- fallback = string to search for if wikidata lookup fails
-- formatting = formatting parameters
-- qid = QID to lookup in wikidata (for testing only)
-- Returns:
-- formatted wikilink to Commons "best" landing page
function p._getGalleryOrCategory(default, search, fallback, formatting, qid)
if default then
return "[[Commons:"..default.."|".._formatResult(default,formatting).."]]"
end
if search then
return "[[Commons:Special:Search/"..search.."|".._formatResult(search,formatting).."]]"
end
local wp_title, wp_ns
wp_title, wp_ns, qid = _getTitleQID(qid)
local trackingCats = ""
local galleryLink, consistent, commonsSitelink = _lookupGallery(qid,true)
-- use wikidata if either sitelink or P935 exist, and they both agree
if galleryLink and consistent then
return "[[Commons:"..galleryLink.."|".._formatResult(galleryLink,formatting).."]]"
end
if not consistent and wp_ns == "" then
trackingCats = "[[Category:Inconsistent wikidata for Commons gallery]]"
end
-- if gallery is not good, fall back looking for category
local categoryLink
categoryLink, consistent = _lookupCategory(qid,false,commonsSitelink)
if categoryLink and consistent then
return "[[Commons:Category:"..categoryLink.."|".._formatResult(categoryLink,formatting).."]]"..trackingCats
end
if not consistent and wp_ns == "" then
trackingCats = trackingCats.."[[Category:Inconsistent wikidata for Commons category]]"
end
-- return search result looking for title as last attempt
return "[[Commons:Special:Search/" .. (fallback or wp_title) ..
"|" .. _formatResult(fallback or wp_title,formatting) .. "]]" .. trackingCats
end

-- Return link(s) Commons gallery, or category, or both from wikidata
-- Arguments:
-- defaultGallery = default gallery link to use, instead of wikidata
-- defaultCategory = default category link to use, instead of wikidata
-- categoryText = if both gallery and category, text to use in category link ("category" by default)
-- oneSearch = only emit one search result
-- formatting = formatting parameters
-- qid = qid of page to lookup in wikidata (testing only)
function p._getGalleryAndCategory(defaultGallery, defaultCategory,
categoryText, oneSearch, formatting, qid
)
local wp_title, wp_ns
wp_title, wp_ns, qid = _getTitleQID(qid)
categoryText = categoryText or "category"
local trackingCats = ""
local galleryLink, galleryConsistent
local commonsSitelink = nil
if defaultGallery then
galleryLink = defaultGallery
galleryConsistent = true
else
galleryLink, galleryConsistent, commonsSitelink = _lookupGallery(qid,true)
end
local galleryGood = galleryLink and galleryConsistent
if not galleryConsistent and wp_ns == "" then
trackingCats = "[[Category:Inconsistent wikidata for Commons gallery]]"
end
local categoryLink, categoryConsistent
if defaultCategory then
categoryLink = defaultCategory
categoryConsistent = true
else
categoryLink, categoryConsistent = _lookupCategory(qid,defaultGallery,commonsSitelink)
end
local categoryGood = categoryLink and categoryConsistent
if not categoryConsistent and wp_ns == "" then
trackingCats = trackingCats.."[[Category:Inconsistent wikidata for Commons category]]"
end
local firstLink
-- construct default result (which searches for title)
local searchResult = "[[Commons:Special:Search/"..wp_title.."|".._formatResult(wp_title,formatting).."]]"
if not oneSearch then
searchResult = searchResult.." ([[Commons:Special:Search/Category:"..wp_title.."|"..categoryText.."]])"
end
local linkText = nil
if galleryGood then
firstLink = galleryLink
linkText = galleryLink
elseif categoryGood then
firstLink = "Category:"..categoryLink
linkText = categoryLink
else
return searchResult..trackingCats
end
local resultVal = "[[Commons:"..firstLink.."|".._formatResult(linkText,formatting).."]]"
if galleryGood and categoryGood then
resultVal = resultVal.." ([[Commons:Category:"..categoryLink.."|"..categoryText.."]])"
end
return resultVal..trackingCats
end

-- Compare two titles with their namespaces stripped
local function titleMatch(s1,s2)
s1 = s1 or ""
s2 = s2 or ""
s1 = mw.ustring.gsub(s1,"^[^:]+:","")
s2 = mw.ustring.gsub(s2,"^[^:]+:","")
return s1 == s2
end

local galleryTrackingCats = {
commons_link_on_wikidata = '[[Category:Commons link is on Wikidata]]',
commons_link_defined_as_pagename = '[[Category:Commons link is defined as the pagename]]',
commons_link_locally_defined = '[[Category:Commons link is locally defined]]',
commons_link_from_wikidata = '[[Category:Commons link from Wikidata]]',
commons_link_is_pagename = '[[Category:Commons link is the pagename]]',
inconsistent = '[[Category:Inconsistent wikidata for Commons gallery]]'
}

local categoryTrackingCats = {
commons_link_on_wikidata = '[[Category:Commons category link is on Wikidata]]',
commons_link_defined_as_pagename = '[[Category:Commons category link is defined as the pagename]]',
commons_link_locally_defined = '[[Category:Commons category link is locally defined]]',
commons_link_from_wikidata = '[[Category:Commons category link from Wikidata]]',
commons_link_is_pagename = '[[Category:Commons category link is the pagename]]',
inconsistent = '[[Category:Inconsistent wikidata for Commons category]]'
}

local function selectTrackingCat(trackingCats,wikidata,consistent,default,title)
if not consistent then
return trackingCats.inconsistent
end
if default then
-- construct warning message
if default == wikidata then
return trackingCats.commons_link_on_wikidata
end
local warning = ""
if wikidata then
local generateWarning = require('Module:If preview')._warning
warning = generateWarning({
"Commons link does not match Wikidata – [[Template:Commons_category#Resolving_discrepancies|please check]]"
})
end
if titleMatch(default,title) then
return trackingCats.commons_link_defined_as_pagename .. warning
end
return trackingCats.commons_link_locally_defined .. warning
end
if wikidata then
return trackingCats.commons_link_from_wikidata
end
return trackingCats.commons_link_is_pagename
end

-- Figure out tracking categories and editor warnings
-- Arguments:
-- default = Commons link argument passed to template
-- fetchGallery = whether to fetch a gallery from Wikidata
-- fetchCategory = whether to fetch a category from Wikidata
-- qid = force a qid for testing
-- Returns:
-- tracking category and possible user warning
--
-- Note: the logic for the tracking is quite different than the logic
-- for generating Commons links (above). Thus, it is separated into another
-- function for code clarity and maintainability. This should not seriously
-- affect performance: server time is dominated by fetching wikidata entities,
-- and those entities should be cached and shared between the Commons generating
-- code and this tracking code.
function p._tracking(default, fetchGallery, fetchCategory, qid)
local title, wp_ns, wp_qid = _getTitleQID(qid,true)
if wp_ns ~= "" then
title = wp_ns..":"..title
end
-- only track if test or namespace=article or namespace=category
if not (qid or wp_ns == "" or wp_ns == "Category") then
return ""
end

-- determine title and namespace of wikidata and wp article
local wikidata = nil
local consistent = nil
-- Tracking code works for all 4 cases of states of fetchGallery/Category
-- fetchGallery takes precedence
if fetchGallery then
wikidata, consistent = p._hasGalleryConsistent(qid)
if default or not fetchCategory or (consistent and wikidata) then
return selectTrackingCat(galleryTrackingCats,wikidata,consistent,
default,title)
end
end
if fetchCategory then
local cat_wikidata, cat_consistent = p._hasCategoryConsistent(qid,true)
if not fetchGallery or (cat_consistent and cat_wikidata) then
return selectTrackingCat(categoryTrackingCats,cat_wikidata,
cat_consistent,default,title)
end
return selectTrackingCat(galleryTrackingCats,wikidata,consistent,
default,title)
end
return "" -- nothing fetched, nothing tracked
end

local function _createFormatting(args)
local formatting = {}
formatting.linktext = args.linktext
local yesNo = require('Module:Yesno')
formatting.lcfirst = yesNo(args.lcfirst)
formatting.bold = yesNo(args.bold)
formatting.italic = yesNo(args.italic)
formatting.nowrap = yesNo(args.nowrap)
return formatting
end

-- Testing-only entry point for _getTitleQID
function p.getTitleQID(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
local text, ns, qid = _getTitleQID(args[1],args[2])
return text..","..ns..","..(qid or "nil")
end

-- Testing-only entry point for _lookupFallback
function p.lookupFallback(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
local fallback = _lookupFallback(args[1],args[2])
return fallback or "nil"
end

-- Find the Commons gallery page associated with article
function p.getGallery(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._getCommons("",args[1],args.search,args.fallback,_createFormatting(args),args.qid)
end

-- Find the Commons category page associated with article
function p.getCategory(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
local retval = p._getCommons("Category", args[1],
args.search, args.fallback, _createFormatting(args), args.qid
)
if args.tracking then
local default = nil
if args[1] then
default = "Category:"..args[1]
end
retval = retval..p._tracking(default, false, true, args.qid)
end
return retval
end

function p.getGalleryOrCategory(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
local retval = p._getGalleryOrCategory(
args[1], args.search, args.fallback, _createFormatting(args), args.qid
)
if args.tracking then
retval = retval..p._tracking(args[1],true,true,args.qid)
end
return retval
end

function p.hasGallery(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._hasGallery(args.qid) or ""
end

function p.hasCategory(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._hasCategory(args.qid) or ""
end

function p.hasGalleryOrCategory(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._hasGallery(args.qid) or p._hasCategory(args.qid) or ""
end

function p.getGalleryAndCategory(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._getGalleryAndCategory(args[1], args[2],
args.categoryText, args.oneSearch, _createFormatting(args), args.qid)
end

function p.tracking(frame)
local args = getArgs(frame,{frameOnly=true,parentOnly=false,parentFirst=false})
return p._tracking(args[1], args.fetchGallery, args.fetchCategory, args.qid)
end

return p

Module:Infobox mapframe

2026-04-04T20:31:47Z

Cultopedia-admin: Cultopedia: guard Infobox_mapframe when Wikibase is unavailable

local mf = require('Module:Mapframe')
local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')
local infoboxImage = require('Module:InfoboxImage').InfoboxImage

-- Defaults
local DEFAULT_FRAME_WIDTH = "270"
local DEFAULT_FRAME_HEIGHT = "200"
local DEFAULT_ZOOM = 10
local DEFAULT_GEOMASK_STROKE_WIDTH = "1"
local DEFAULT_GEOMASK_STROKE_COLOR = "#777777"
local DEFAULT_GEOMASK_FILL = "#888888"
local DEFAULT_GEOMASK_FILL_OPACITY = "0.25"
local DEFAULT_SHAPE_STROKE_WIDTH = "2"
local DEFAULT_SHAPE_STROKE_COLOR = "#FF0000"
local DEFAULT_SHAPE_FILL = "#606060"
local DEFAULT_SHAPE_FILL_OPACITY = "0.1"
local DEFAULT_LINE_STROKE_WIDTH = "5"
local DEFAULT_LINE_STROKE_COLOR = "#FF0000"
local DEFAULT_MARKER_COLOR = "#5E74F3"

local util = {}
local wb = mw.wikibase

function util.noop(info)
local DEFAULT_NOOP_OUTPUT = ""

-- uncomment this when debugging
-- DEFAULT_NOOP_OUTPUT = "debug: mapframe no-op: " .. info
-- mw.log(DEFAULT_NOOP_OUTPUT)

return DEFAULT_NOOP_OUTPUT
end

-- Trim whitespace from args, and remove empty args
function util.trimArgs(argsTable)
local cleanArgs = {}
for key, val in pairs(argsTable) do
if type(val) == 'string' then
val = val:match('^%s*(.-)%s*$')
if val ~= '' then
cleanArgs[key] = val
end
else
cleanArgs[key] = val
end
end
return cleanArgs
end

function util.getBestStatement(item_id, property_id)
if not wb or not(item_id) or not(wb.isValidEntityId(item_id)) or not(wb.entityExists(item_id)) then
return false
end
local statements = wb.getBestStatements(item_id, property_id)
if not statements or #statements == 0 then
return false
end
local hasNoValue = ( statements[1].mainsnak and statements[1].mainsnak.snaktype == 'novalue' )
if hasNoValue then
return false
end
return statements[1]
end

function util.hasWikidataProperty(item_id, property_id)
return util.getBestStatement(item_id, property_id) and true or false
end

function util.getStatementValue(statement)
return statement and statement.mainsnak and statement.mainsnak.datavalue and statement.mainsnak.datavalue.value or nil
end

function util.relatedEntity(item_id, property_id)
local value = util.getStatementValue( util.getBestStatement(item_id, property_id) )
return value and value.id or false
end

function util.idType(id)
if not id then
return nil
elseif mw.ustring.match(id, "[Pp]%d+") then
return "property"
elseif mw.ustring.match(id, "[Qq]%d+") then
return "item"
else
return nil
end
end

function util.shouldAutoRun(frame)
-- Check if should be running
local pargs = frame.getParent(frame).args
local explicitlyOn = yesno(mw.text.trim(pargs.mapframe or "")) -- true of false or nil
if pargs.coordinates == "{{{coordinates}}}" then explicitlyOn = false end
local onByDefault = (explicitlyOn == nil) and yesno(mw.text.trim(frame.args.onByDefault or ""), false) -- true or false
return explicitlyOn or onByDefault
end

function util.argsFromAuto(frame)
-- Get args from the frame (invoke call) and the parent (template call).
-- Frame arguments are default values which are overridden by parent values
-- when both are present
local args = getArgs(frame, {parentFirst = true})

-- Discard args not prefixed with "mapframe-", remove that prefix from those that remain
local fixedArgs = {}
for name, val in pairs(args) do
local fixedName = string.match(name, "^mapframe%-(.+)$" )
if fixedName then
fixedArgs[fixedName] = val
-- allow coord, coordinates, etc to be unprefixed
elseif name == "coordinates" or name == "coord" or name == "coordinate" and not fixedArgs.coord then
fixedArgs.coord = val
-- allow id, qid to be unprefixed, map to id (if not already present)
elseif name == "id" or name == "qid" and not fixedArgs.id then
fixedArgs.id = val
-- allow captionstyle to be unprefixed, for compatibility with [[Module:Infobox]]
elseif name == "captionstyle" and not fixedArgs.captionstyle then
fixedArgs.captionstyle = val
end
end
return fixedArgs
end

function util.parseCustomWikitext(customWikitext)
-- infoboxImage will format an image if given wikitext containing an
-- image, or else pass through the wikitext unmodified
return infoboxImage({
args = {
image = customWikitext
}
})
end

function util.trackAndWarn(trackingCat, warning)
local title = mw.title.getCurrentTitle()
local results = title and title.namespace == 0 and trackingCat and '[[Category:'..trackingCat..']]' or ''
if warning then
local warn = require('Module:If preview')._warning
results = results..warn({warning})
end
return results
end

function util.ternary(flag, other)
other = other or 'other'
flag = flag == 'none' and 'no' or flag
local yesNoOut = yesno(flag,other)
local yes = (yesNoOut == true)
local no = (yesNoOut == false)
return yes, no
end

local p = {}

p._caption = function(args)
if args.caption then
return args.caption
elseif args.switcher then
return util.noop("no caption or switcher")
end
local maskItem
local maskType = util.idType(args.geomask)
if maskType == 'item' then
maskItem = args.geomask
elseif maskType == "property" then
maskItem = util.relatedEntity(args.id or (wb and wb.getEntityIdForCurrentPage()), args.geomask)
end
local maskItemLabel = maskItem and wb and wb.getLabel( maskItem )
return maskItemLabel and "Location in "..maskItemLabel
or util.noop("missing maskItemLabel with type " .. (maskType or "nil") .. " and item " .. (maskItem or "nil"))
end

--A list of types for objects that are too small to allow Kartographer to take over zoom
local tinyType = {
landmark=true,
railwaystation=true,
edu=true,
pass=true,
camera=true
}

p._main = function(_config)
-- accumulate tracking cats
local tracking = ''
-- `config` is the args passed to this module
local config = util.trimArgs(_config)

-- allow alias for config.coord
config.coord = config.coord or config.coordinates

-- Require wikidata item, or specified coords
local wikidataId = config.id or (wb and wb.getEntityIdForCurrentPage())
if not(wikidataId) and not(config.coord) then
return false, util.trackAndWarn('Pages using infobox mapframe with missing coordinates')
end

-- Require coords (specified or from wikidata), so that map will be centred somewhere
-- (P625 = coordinate location)
local wdCoordinates = util.getStatementValue(util.getBestStatement(wikidataId, 'P625'))
if not (config.coord or wdCoordinates) then
return false, util.trackAndWarn('Pages using infobox mapframe with missing coordinates')
end

-- `args` is the arguments which will be passed to the mapframe module
local args = {}

-- Some defaults/overrides for infobox presentation
args.display = "inline"
args.frame = "yes"
args.plain = "yes"
args["frame-width"] = config["frame-width"] or config.width or DEFAULT_FRAME_WIDTH
args["frame-height"] = config["frame-height"] or config.height or DEFAULT_FRAME_HEIGHT
args["frame-align"] = "center"

args["frame-coord"] = config["frame-coordinates"] or config["frame-coord"]
-- Note: config["coordinates"] or config["coord"] should not be used for the alignment of the frame;
-- see talk page ( https://en.wikipedia.org/wiki/Special:Diff/876492931 )

-- deprecated lat and long parameters
args["frame-lat"] = config["frame-lat"] or config["frame-latitude"]
args["frame-long"] = config["frame-long"] or config["frame-longitude"]

-- if zoom isn't specified from config, first check wikidata
local zoom = config.zoom or util.getStatementValue(util.getBestStatement(wikidataId, 'P6592'))
if not zoom then
-- Calculate zoom from length or area (converted to km or km2)
-- Zoom so that length or area is completely included in mapframe
local getZoom = require('Module:Infobox dim')._zoom
zoom = getZoom({length_km=config.length_km, length_mi=config.length_mi,
width_km=config.width_km, width_mi=config.width_mi,
area_km2=config.area_km2, area_mi2=config.area_mi2,
area_ha=config.area_ha, area_acre=config.area_acre,
type=config.type, population=config.population,
viewport_px=math.min(args["frame-width"],args["frame-height"]),
latitude=wdCoordinates and wdCoordinates.latitude})
end
args.zoom = zoom or DEFAULT_ZOOM

-- Use OSM relation ID if available; otherwise use geoshape if that is available
-- (geoshape is required for defunct entities, which are outside OSM's scope)
local hasOsmRelationId = util.hasWikidataProperty(wikidataId, 'P402') -- P402 is OSM relation ID
local hasGeoshape = util.hasWikidataProperty(wikidataId, 'P3896') -- P3896 is geoshape
local wikidataProvidesGeo = hasOsmRelationId or hasGeoshape

-- determine marker argument value, determine whether to show marker
local forcePoint, suppressPoint = util.ternary(config.point)
local forceMarker, suppressMarker = util.ternary(config.marker,true)

forcePoint = forcePoint or forceMarker
suppressPoint = suppressPoint or suppressMarker

local showMarker = not suppressPoint and (forcePoint or not wikidataProvidesGeo or config.coord)

-- wikidata = "yes" turns on both shape and line
-- wikidata = "no" turns off both shape and line
-- otherwise show both if wikidata provides geo
local forceWikidata, suppressWikidata = util.ternary(config.wikidata)
local showShape = not suppressWikidata and (forceWikidata or wikidataProvidesGeo or not config.coord)
local showLine = showShape

-- determine shape parameter value, determine whether to show or suppress shape
-- also determine whether to invert shape
local forceShape, suppressShape = util.ternary(config.shape)
showShape = wikidataId and not suppressShape and (forceShape or showShape)
local shapeType = config.shape == 'inverse' and 'shape-inverse' or 'shape'

-- determine line parameter value, determine whether to show or suppress line
local forceLine, suppressLine = util.ternary(config.line)
showLine = wikidataId and not suppressLine and (forceLine or showLine)

local maskItem
-- Switcher
if config.switcher == "zooms" then
-- switching between zoom levels
local maxZoom = math.max(tonumber(args.zoom), 3) -- what zoom would have otherwise been (if 3 or more, otherwise 3)
local minZoom = 1 -- completely zoomed out
local midZoom = math.floor((maxZoom + minZoom)/2) -- midway between maxn and min
args.switch = "zoomed in, zoomed midway, zoomed out"
args.zoom = string.format("SWITCH:%d,%d,%d", maxZoom, midZoom, minZoom)
elseif config.switcher == "auto" then
-- switching between P276 and P131 areas with recursive lookup, e.g. item's city,
-- that city's state, and that state's country
args.zoom = nil -- let kartographer determine the zoom
local maskLabels = {}
local maskItems = {}
local maskItemId = util.relatedEntity(wikidataId, "P276") or util.relatedEntity(wikidataId, "P131")
local maskLabel = wb and wb.getLabel(maskItemId)
while maskItemId and maskLabel and mw.text.trim(maskLabel) ~= "" do
table.insert(maskLabels, maskLabel)
table.insert(maskItems, maskItemId)
maskItemId = maskItemId and util.relatedEntity(maskItemId, "P131")
maskLabel = maskItemId and wb and wb.getLabel(maskItemId)
end
if #maskLabels > 1 then
args.switch = table.concat(maskLabels, "###")
maskItem = "SWITCH:" .. table.concat(maskItems, ",")
elseif #maskLabels == 1 then
maskItem = maskItemId[1]
end
elseif config.switcher == "geomasks" and config.geomask then
-- switching between items in geomask parameter
args.zoom = nil -- let kartographer determine the zoom
local separator = (mw.ustring.find(config.geomask, "###", 0, true ) and "###") or
(mw.ustring.find(config.geomask, ";", 0, true ) and ";") or ","
local pattern = "%s*"..separator.."%s*"
local maskItems = mw.text.split(mw.ustring.gsub(config.geomask, "SWITCH:", ""), pattern)
local maskLabels = {}
if #maskItems > 1 then
for i, item in ipairs(maskItems) do
table.insert(maskLabels, (wb and wb.getLabel(item)) or item)
end
args.switch = table.concat(maskLabels, "###")
maskItem = "SWITCH:" .. table.concat(maskItems, ",")
end
end

-- resolve geomask item id (if not using geomask switcher)
if not maskItem then --
local maskType = util.idType(config.geomask)
if maskType == 'item' then
maskItem = config.geomask
elseif maskType == "property" then
maskItem = util.relatedEntity(wikidataId, config.geomask)
end
end

-- if asking for shape or line from Wikidata
-- and if Wikidata actually has shape/line data (wikidataProvidesGeo=true)
-- and if no geomask
-- and if zoom not explicitly set
-- and if the object size inferred from its type is not too small
-- then let Kartographer "take over" zoom
if (showLine or showShape) and wikidataProvidesGeo and not maskItem
and not config.zoom and not (config.type and tinyType[config.type]) then
args.zoom = nil
end

if not maskItem and not showShape and not showLine and not showMarker then
return false, util.trackAndWarn('Pages using infobox mapframe with no geometry','No geometry specified for mapframe')
end

-- Keep track of arg numbering
local argNumber = ''
local function incrementArgNumber()
if argNumber == '' then
argNumber = 2
else
argNumber = argNumber + 1
end
end

-- Geomask
if maskItem then
args["type"..argNumber] = "shape-inverse"
args["id"..argNumber] = maskItem
args["stroke-width"..argNumber] = config["geomask-stroke-width"] or DEFAULT_GEOMASK_STROKE_WIDTH
args["stroke-color"..argNumber] = config["geomask-stroke-color"] or config["geomask-stroke-colour"] or DEFAULT_GEOMASK_STROKE_COLOR
args["fill"..argNumber] = config["geomask-fill"] or DEFAULT_GEOMASK_FILL
args["fill-opacity"..argNumber] = config["geomask-fill-opacity"] or DEFAULT_SHAPE_FILL_OPACITY
-- Let kartographer determine zoom and position, unless it is explicitly set in config
if not config.zoom and not config.switcher then
args.zoom = nil
args["frame-coord"] = nil
args["frame-lat"] = nil
args["frame-long"] = nil
local maskArea = util.getStatementValue( util.getBestStatement(maskItem, 'P2046') )
end
incrementArgNumber()
-- Hack to fix phab:T255932
if not args.zoom then
args["type"..argNumber] = "line"
args["id"..argNumber] = maskItem
args["stroke-width"..argNumber] = 0
incrementArgNumber()
end
end

-- Shape (or shape-inverse)
if showShape then
args["type"..argNumber] = shapeType
if hasGeoshape and not hasOsmRelationId then
args["from"..argNumber] = string.sub( util.getStatementValue( util.getBestStatement(wikidataId, 'P3896') ), 6)
elseif config.id then
args["id"..argNumber] = config.id
end
args["stroke-width"..argNumber] = config["shape-stroke-width"] or config["stroke-width"] or DEFAULT_SHAPE_STROKE_WIDTH
args["stroke-color"..argNumber] = config["shape-stroke-color"] or config["shape-stroke-colour"] or config["stroke-color"] or config["stroke-colour"] or DEFAULT_SHAPE_STROKE_COLOR
args["fill"..argNumber] = config["shape-fill"] or DEFAULT_SHAPE_FILL
args["fill-opacity"..argNumber] = config["shape-fill-opacity"] or DEFAULT_SHAPE_FILL_OPACITY
incrementArgNumber()
end

-- Line
if showLine then
args["type"..argNumber] = "line"
if hasGeoshape and not hasOsmRelationId then
args["from"..argNumber] = string.sub( util.getStatementValue( util.getBestStatement(wikidataId, 'P3896') ), 6)
elseif config.id then
args["id"..argNumber] = config.id
end
args["stroke-width"..argNumber] = config["line-stroke-width"] or config["stroke-width"] or DEFAULT_LINE_STROKE_WIDTH
args["stroke-color"..argNumber] = config["line-stroke-color"] or config["line-stroke-colour"] or config["stroke-color"] or config["stroke-colour"] or DEFAULT_LINE_STROKE_COLOR
incrementArgNumber()
end

-- Point marker
if showMarker then
args["type"..argNumber] = "point"
if config.id then args["id"..argNumber] = config.id end
if config.coord then args["coord"..argNumber] = config.coord end
if config.marker then args["marker"..argNumber] = config.marker end
args["marker-color"..argNumber] = config["marker-color"] or config["marker-colour"] or DEFAULT_MARKER_COLOR
incrementArgNumber()
end

-- if Wikidata doesn't link to OSM and the map has no mask or point,
-- then center the map on the coordinates either from the infobox or from wikidata
if not maskItem and not showMarker and not wikidataProvidesGeo then
if config.coord then
args["frame-coord"] = args["frame-coord"] or config.coord
else
args["frame-lat"] = args["frame-lat"] or wdCoordinates.latitude
args["frame-long"] = args["frame-long"] or wdCoordinates.longitude
end
tracking = tracking..util.trackAndWarn('Pages using infobox mapframe with forced centering')
end

-- protect against nil frame arguments
args["frame-coord"] = args["frame-coord"] or ""
args["frame-lat"] = args["frame-lat"] or ""
args["frame-long"] = args["frame-long"] or ""

local mapframe = args.switch and mf.multi(args) or mf._main(args)
tracking = tracking..((showLine or showShape) and not wikidataProvidesGeo
and util.trackAndWarn('Pages using infobox mapframe without shape links in Wikidata')
or '')
return true, mapframe.. tracking
end

-- Entry points

p.main = function(frame)
local parent = frame.getParent(frame)
local parentArgs = parent.args
local _, mapframe = p._main(parentArgs)
return frame:preprocess(mapframe)
end

p.auto = function(frame)
if not util.shouldAutoRun(frame) then
return util.noop("auto should not autorun")
end
local args = util.argsFromAuto(frame)
if args.custom then
return frame:preprocess(util.parseCustomWikitext(args.custom))
end
local _, mapframe = p._main(args)
return frame:preprocess(mapframe)
end

p.autocaption = function(frame)
if not util.shouldAutoRun(frame) then
return util.noop("autocaption should not autorun")
end
local args = util.argsFromAuto(frame)
local caption = p._caption(args)
return caption
end

p.autoWithCaption = function(frame)
if not util.shouldAutoRun(frame) then
return util.noop("autoWithCaption should not autorun")
end
local args = util.argsFromAuto(frame)
local wikitext
local caption
local ok
if args.custom then
ok = true
wikitext = util.parseCustomWikitext(args.custom)
else
ok, wikitext = p._main(args)
end
if not ok then return wikitext end
wikitext = frame:preprocess(wikitext)
caption = p._caption(args)
local data = mw.html.create():wikitext(wikitext)
data:tag('div')
:addClass('infobox-caption')
:cssText(args.captionstyle)
:wikitext(caption)
return tostring(data)
end

return p

Leaders

2026-04-04T20:17:58Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders page

Organizations

2026-04-04T20:17:57Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T20:17:12Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Leaders Preview

2026-04-04T20:11:53Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T20:11:48Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:36:28Z

Cultopedia-admin: Cultopedia: publish MariaDB-generated organization overlay page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:21:09Z

Cultopedia-admin: Cultopedia: publish DB-generated organization overlay preview page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:15:57Z

Cultopedia-admin: Cultopedia: refresh mock overlay preview with generated graph v2

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:11:44Z

Cultopedia-admin: Cultopedia: render mock graph-only overlay preview page

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:06:56Z

Cultopedia-admin: Cultopedia: simplify mock overlay preview to graph-first layout

''This page is a '''mock-up only'''. All Cultopedia overlay data shown here is illustrative fake sample data for product design testing.''

{| class="wikitable" style="width:100%; background:#fff8ec; border:2px solid #088A8C;"
|-
! colspan="2" style="background:#064B4C; color:#FFF5E9; font-size:115%;" | Cultopedia Evidence Snapshot (Mock-up)
|-
| style="font-weight:bold;" | News coverage
| [[#cultopedia-news|148 relevant news items]]
|-
| style="font-weight:bold;" | Scientific publications
| [[#cultopedia-science|27 journal articles, books, or academic chapters]]
|-
| style="font-weight:bold;" | Video/documentary sources
| [[#cultopedia-video|63 videos or documentary references]]
|-
| style="font-weight:bold;" | Recent activity
| January 2026
|}

== Cultopedia timeline graph (mock-up) ==
''Illustrative fake sample data for product design testing only.''

{| class="wikitable sortable" style="width:100%;"
|-
! Year
! Total mentions
! Coverage mix
! Reading
|-
| 2021
| 18
| <span style="color:#7a1f1f;">9 negative</span> / <span style="color:#6f5a00;">5 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:90px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:50px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:40px; height:12px; background:#71E78B;"></div></div>
| Mostly negative, but mixed
|-
| 2022
| 31
| <span style="color:#7a1f1f;">19 negative</span> / <span style="color:#6f5a00;">8 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:110px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:46px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:24px; height:12px; background:#71E78B;"></div></div>
| Clear negative skew
|-
| 2023
| 49
| <span style="color:#7a1f1f;">42 negative</span> / <span style="color:#6f5a00;">2 neutral</span> / <span style="color:#1a6a38;">5 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:154px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:7px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:19px; height:12px; background:#71E78B;"></div></div>
| Very high negative attention
|-
| 2024
| 38
| <span style="color:#7a1f1f;">24 negative</span> / <span style="color:#6f5a00;">7 neutral</span> / <span style="color:#1a6a38;">7 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:114px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:33px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:33px; height:12px; background:#71E78B;"></div></div>
| Still negative overall
|-
| 2025
| 27
| <span style="color:#7a1f1f;">15 negative</span> / <span style="color:#6f5a00;">8 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:100px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:53px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:27px; height:12px; background:#71E78B;"></div></div>
| Negative majority, but lower volume
|-
| 2026
| 6
| <span style="color:#7a1f1f;">4 negative</span> / <span style="color:#6f5a00;">1 neutral</span> / <span style="color:#1a6a38;">1 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:120px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:30px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:30px; height:12px; background:#71E78B;"></div></div>
| Early-year signal only
|}

----

{{:Scientology}}

----

== Cultopedia evidence library (mock-up) ==
<span id="cultopedia-news"></span>
=== News ===
* [https://www.reuters.com/ Mock Reuters investigation placeholder]
* [https://www.theguardian.com/ Mock Guardian feature placeholder]
* [https://apnews.com/ Mock Associated Press explainer placeholder]

<span id="cultopedia-science"></span>
=== Scientific and scholarly sources ===
* [https://scholar.google.com/ Mock peer-reviewed paper placeholder]
* [https://scholar.google.com/ Mock book chapter placeholder]
* [https://scholar.google.com/ Mock sociology article placeholder]

<span id="cultopedia-video"></span>
=== Video and documentary sources ===
* [https://www.youtube.com/ Mock interview placeholder]
* [https://www.youtube.com/ Mock documentary excerpt placeholder]
* [https://www.youtube.com/ Mock survivor testimony placeholder]

=== Review notes ===
* In a full implementation, each item here would carry source type, publication date, organization tags, concern tags, and review status.
* Timeline items would be generated from the same evidence store, rather than edited manually into the page.

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T18:02:02Z

Cultopedia-admin: Cultopedia: refresh mock organization overlay preview page

''This page is a '''mock-up only'''. All Cultopedia overlay data shown here is illustrative fake sample data for product design testing.''

{| class="wikitable" style="width:100%; background:#fff8ec; border:2px solid #088A8C;"
|-
! colspan="2" style="background:#064B4C; color:#FFF5E9; font-size:115%;" | Cultopedia Evidence Snapshot (Mock-up)
|-
| style="font-weight:bold;" | News coverage
| [[#cultopedia-news|148 relevant news items]]
|-
| style="font-weight:bold;" | Scientific publications
| [[#cultopedia-science|27 journal articles, books, or academic chapters]]
|-
| style="font-weight:bold;" | Video/documentary sources
| [[#cultopedia-video|63 videos or documentary references]]
|-
| style="font-weight:bold;" | Recent activity
| January 2026
|}

== Cultopedia timeline graph (mock-up) ==
''Illustrative fake sample data for product design testing only.''

{| class="wikitable sortable" style="width:100%;"
|-
! Year
! Total mentions
! Coverage mix
! Reading
|-
| 2021
| 18
| <span style="color:#7a1f1f;">9 negative</span> / <span style="color:#6f5a00;">5 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:90px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:50px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:40px; height:12px; background:#71E78B;"></div></div>
| Mostly negative, but mixed
|-
| 2022
| 31
| <span style="color:#7a1f1f;">19 negative</span> / <span style="color:#6f5a00;">8 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:110px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:46px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:24px; height:12px; background:#71E78B;"></div></div>
| Clear negative skew
|-
| 2023
| 49
| <span style="color:#7a1f1f;">42 negative</span> / <span style="color:#6f5a00;">2 neutral</span> / <span style="color:#1a6a38;">5 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:154px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:7px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:19px; height:12px; background:#71E78B;"></div></div>
| Very high negative attention
|-
| 2024
| 38
| <span style="color:#7a1f1f;">24 negative</span> / <span style="color:#6f5a00;">7 neutral</span> / <span style="color:#1a6a38;">7 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:114px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:33px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:33px; height:12px; background:#71E78B;"></div></div>
| Still negative overall
|-
| 2025
| 27
| <span style="color:#7a1f1f;">15 negative</span> / <span style="color:#6f5a00;">8 neutral</span> / <span style="color:#1a6a38;">4 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:100px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:53px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:27px; height:12px; background:#71E78B;"></div></div>
| Negative majority, but lower volume
|-
| 2026
| 6
| <span style="color:#7a1f1f;">4 negative</span> / <span style="color:#6f5a00;">1 neutral</span> / <span style="color:#1a6a38;">1 positive</span><br><div style="width:180px; height:12px; background:#e8e8e8; border-radius:6px; overflow:hidden;"><div style="display:inline-block; width:120px; height:12px; background:#d96c6c;"></div><div style="display:inline-block; width:30px; height:12px; background:#d9c46c;"></div><div style="display:inline-block; width:30px; height:12px; background:#71E78B;"></div></div>
| Early-year signal only
|}

== Cultopedia timeline notes (mock-up) ==
* '''1977''' - Sample event: first major allegations of coercive control appear in national press coverage.
* '''1991''' - Sample event: former members publish testimonies describing systematic internal pressure and social isolation.
* '''2009''' - Sample event: court-linked reporting brings renewed attention to labor and confinement allegations.
* '''2018''' - Sample event: scholarly review article compares long-term control patterns across several high-demand groups.
* '''2024''' - Sample event: organization states that past abuses were exceptional and no longer reflect current practice.
* '''2026''' - Sample event: Cultopedia flags the topic for continued monitoring because recent coverage still describes unresolved concerns.

----

{{:Scientology}}

----

== Cultopedia evidence library (mock-up) ==
<span id="cultopedia-news"></span>
=== News ===
* [https://www.reuters.com/ Mock Reuters investigation placeholder]
* [https://www.theguardian.com/ Mock Guardian feature placeholder]
* [https://apnews.com/ Mock Associated Press explainer placeholder]

<span id="cultopedia-science"></span>
=== Scientific and scholarly sources ===
* [https://scholar.google.com/ Mock peer-reviewed paper placeholder]
* [https://scholar.google.com/ Mock book chapter placeholder]
* [https://scholar.google.com/ Mock sociology article placeholder]

<span id="cultopedia-video"></span>
=== Video and documentary sources ===
* [https://www.youtube.com/ Mock interview placeholder]
* [https://www.youtube.com/ Mock documentary excerpt placeholder]
* [https://www.youtube.com/ Mock survivor testimony placeholder]

=== Review notes ===
* In a full implementation, each item here would carry source type, publication date, organization tags, concern tags, and review status.
* Timeline items would be generated from the same evidence store, rather than edited manually into the page.

User:Cultopedia-admin/Scientology Overlay Preview

2026-04-04T17:52:24Z

Cultopedia-admin: Cultopedia: publish mock organization overlay preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T17:20:49Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T17:11:30Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T17:10:45Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Leaders Preview

2026-04-04T17:02:15Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders preview page

User:Cultopedia-admin/test50 Leaders Preview

2026-04-04T16:39:08Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T16:39:06Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Leaders Preview

2026-04-04T16:29:05Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T16:29:04Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

User:Cultopedia-admin/test50 Leaders Preview

2026-04-04T16:16:47Z

Cultopedia-admin: Cultopedia rebuild: publish generated Leaders preview page

User:Cultopedia-admin/test50 Organizations Preview

2026-04-04T16:16:46Z

Cultopedia-admin: Cultopedia rebuild: publish generated Organizations preview page

Ryan Ringnald

2026-04-04T15:34:03Z

Cultopedia-admin: Cultopedia rebuild: redirect tracked alias to canonical imported title

#REDIRECT [[Church of Wells#Leader resolves to the organization page]]