Documentation for this module may be created at Module:ExperimentalNavplate/doc
--[[This Mess is an experimental module for seeing if we can create a navplate that populates itself
as an ordered, nested list.
It works by getting all of the pages from the category (in this example, Stanton) including their infobox data
through a single DPLlua request. It then parses these into categories and assigns a sort order.
These lists are then iterated through to find the objects that orbit the star, objects that orbit
those objects, etc. Those lists are then sorted by their orbit location (a new required field) and then
semantic precedence defined by a precedence score. As this sorting goes on, a string is built up to generate the list.]]--
local p = {};
local dpl = require( 'Module:DPLlua' )
--List of possible categories for each location ordered :
--Category Name, Bullet symbol, Important?, Precedence Score
--Mistakes/inadequacies arising from the code are likely to originate here!
local typelist = {
{"Trade Hub","💰",true,4},
{"Asteroid Base","☠",true,4.5},
{"Rest Stop","🏨",false,5},
{"Space Station","🚀", false,6},
{"Planet","🪐",true,1},
{"Moon","🌙",true,2},
{"Asteroid Belt","⭕",true,3},
{"Asteroid Formation","🧱",false,7},
{"Jump Point","🌌", true,99},
{"Landing Zone", "✈",true,0},
{"Space Port","⚓",true,1},
{"Landmark","🏠", false,2}
}
--Special cases for the star and unidentified.
local starSymb = "☀"
local miscLandSymb = "🏚"
local miscSpaceSymb = "🌠"
local orphanSymbol = "?"
--How small to make the minor location expandables.
local minorlocationfontsize = 50
--Remove all indices in del from the list
removeAll = function (list, del)
for i=#del, 1 -1 do
table.remove(list,del[i])
end
return list
end
--Find all objects in list that mention string s in their location descriptor. Returns in format:
--{{important land, unimportant land},{important space},{unimportant space}}
findChildren = function (list, s)
local del={}
local found={}
for x, item in ipairs(list) do
if string.find(item["Location"],s)~=nil then
local important = 2
local space = 2
if item["inSpace"] == true then land = 1 end
if item["Important"] == true then important = 1 end
table.insert(found[land][important],item)
table.insert(del,x)
end
end
list = removeAll(list,del)
return found
end
--Return a table that combines
mergeTab = function (table1, table2)
local newtab = {}
for x,item in ipairs(table1) do
newtab.insert(table1[i])
end
for x,item in ipairs(table2) do
newtab.insert(table2[i])
end
return newtab
end
--Sort objects by Orbital Position, if not (absent data or idential position)
-- then Precedence, if not then alphabetically.
compareObjects = function (a,b)
orbA = a["Orbital Position"]
orbB = b["Orbital Position"]
if orbA == nil or orbB == nil or orbA == orbB then
if a["SortPower"] == b["SortPower"] then return a["ProperName"]<b["ProperName"]
else return a["SortPower"] < b["SortPower"] end
else
return orbA<orbB
end
end
p.fullplate= function(frame )
-- Get the pages from the category of Stanton System
-- Potential to make this more elegant
local list = dpl.ask({
namespace = '',
category = 'Stanton System',
include='{Infobox Astronomical Object},{Infobox Location},{Infobox Space Station}'
} )
local star;
local objects = {}
local orphans = {} --pages without the infobox
local infoboxtypes = {true,false,true}
--Iterate through list, categorise and populate accordingly
for i, line in ipairs(list) do
local entry = {}
local name = "[["..list[i]["title"].."]]"
local loctype = "orphan"
local inspace = true
for j, cat in ipairs(infoboxtypes) do
entry = line["include"][j]
if type(entry)== "table" and #entry>0 then
entry["ProperName"]= line["title"]
loctype = entry["Type"]
entry["inSpace"] = cat
break
end
end
--A lot of space stations are categorised in their classifications
if loctype == "Space Station" and entry["Classification"]~=nil then
loctype = entry["Classification"]
end
if loctype =="Star" then
entry["ListEntry"] = starSymb.." "..name
star = entry
entry["SortPower"] = 0
elseif loctype == "orphan" then
table.insert(orphans,orphanSymbol..name)
else
local found = false
for j, category in typelist do
if string.find(loctype,category[1])~=nil then
entry["ListEntry"] = category[2].." "..name
entry["Important"] = category[3]
entry["SortPower"] = category[4]
table.insert(objects,entry)
found = true
break;
end
end
if found == false then
if entry["inSpace"] == true then
entry["ListEntry"] = miscSpaceSymbol.." "..name
else
entry["ListEntry"] = miscLandSymbol.." "..name
end
entry["Important"] = false
entry["SortPower"] = 10
table.insert(objects,entry)
end
end
end
local orbitSun = findChildren(objects,star["ProperName"])
local str = star["ListEntry"]
iterateToPopulate(str,orbitSun,objects,"\n")
if #objects>0 then
str = str .."\nThe following locations are not formatting correctly, either because their infoboxes need updating, or due to an error. You can help by editing the wiki."
for i, obj in ipairs(objects) do
str = str .."\n:".. obj["ListEntry"]
end
end
if #orphans>0 then
str = str .."\nThe following locations are not formatting correctly because they do not have infoboxes. You can help by providing them with one."
for i, obj in ipairs(orphans) do
str = str .."\n:".. obj
end
end
return str
end
iterateToPopulate = function(str,children,rest,indent)
table.sort(children,compareObjects)
newindent = indent..":"
for i, obj in children do
important = obj[1]
unimportant = obj[2]
for j,loc in important do
str = str..newindent..loc["ListEntry"]
locChl = findChildren(rest,loc["ProperName"])
if #locChl>0 then
iterateToPopulate(str,locChl,rest,newindent)
end
end
if #unimportant>0 then
str = str..newindent.."<div style=\"font-size: ".. minorlocationfontsize.."%\">\n{| class=\"mw-collapsible mw-collapsed article-table\"\n!"..#unimportant.." Minor Locations"
for j, loc in unimportant do
str = str..newindent..loc["ListEntry"]
end
str = str.."\n|}\n<div>"
end
end
end
return p