Jump to content

Module:TOC001/sandbox

Add links
From Wikipedia, the free encyclopedia
< Module:TOC001
This is an old revision of this page, as edited by Tom.Reding (talk | contribs) at 11:56, 10 November 2023 (+). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
local p = {}

function p.TOC001( frame )
	local title = mw.title.getCurrentTitle()
	local pn = title.text
	local pagebase = mw.ustring.match(pn, '^(List of minor planets: )%d') or
					 mw.ustring.match(pn, '^(Meanings of minor[ -]planet names: )%d') or
					 'testcase'
	local parent_from = mw.ustring.match(pn, '(%d+)–') or 0 --en dash; 1, 1001, 2001, ...
	local prefix = (parent_from - 1)/1000 --0, 1, 2, ...
	local left = parent_from - 5000 --left-most navigational 'from'
	local hlist, anchor
	local nav_upper, nav_lower = '', ''
	
	--hlist
	if pagebase == 'testcase' then --obsolete parameters allowed only on non-LoMP/MoMP pages
		local args = frame:getParent().args
		return args['prefix']..' '..args['meanings'] 
	elseif pagebase == 'List of minor planets: ' then
		hlist = frame:expandTemplate{
					title = 'Hlist',
					args = { 
						'[[LOMP#Main index|Index]]',
						'[[LOMP#100K|100K]]',
						'[[LOMP#200K|200K]]',
						'[[LOMP#300K|300K]]',
						'[[LOMP#400K|400K]]',
						'[[LOMP#500K|500K]]',
						'[[LOMP#600K|600K]]',
						'[[List of minor planets#Orbital groups|color code]]',
					}
				}
	else --MoMP
		hlist = frame:expandTemplate{
					title = 'Hlist',
					args = { 
						'[[MOMP#Index|Index]]',
						'[[MOMP#100K|100K]]',
						'[[MOMP#200K|200K]]',
						'[[MOMP#300K|300K]]',
						'[[MOMP#400K|400K]]',
						'[[MOMP#500K|500K]]',
						'[[MOMP#600K|600K]]',
					}
				}
	end
	
	--TOC top
	local TOC_top = frame:expandTemplate{
						title = 'TOC top',
						args = { 
							align = 'center',
							title = '<div style="background-color: #eaecf0; margin-bottom: 8px; padding: 2px;">'..
							hlist..
							'</div>'
						}
					}
	
	--nav_upper
	if left < 1 then left = 1 end
	local i = 0
	while i <= 10 do
		local from = left   + 1000*i
		local to   = left-1 + 1000*(i+1)
		local sep = ' '
		if from < 1500 then sep = '-' end
		pagebase = string.gsub(pagebase, '(minor)[ -](planet names)', '%1'..sep..'%2')
		nav_upper = nav_upper..'\n* [['..pagebase..from..'–'..to..'|'..
					mw.getContentLanguage():formatNum(from - 1)..'s]]'
		i = i + 1
	end
	
	--nav_lower
	i = 0
	while i <= 9 do
		anchor = i..'01' --001, 002, ...
		nav_lower = nav_lower..'\n* [[#'..anchor..'|'..
					mw.getContentLanguage():formatNum(tonumber(prefix..anchor))..'…]]'
		i = i + 1
	end
	
	--cleanup nav_ for lowest numbered pages (do this once after the whiles, instead of conditionals inside)
	nav_upper = string.gsub(nav_upper, '|0s]]',   '|1–1000]]')
	nav_lower = string.gsub(nav_lower, '|001…]]', '|1–100]]')
	
	--TOC bottom
	local TOC_bottom = frame:expandTemplate{ title = 'TOC bottom', args = {} }
	
	--concat all
	return TOC_top..nav_upper..'\n<hr />\n<div style="text-align: center">'..nav_lower..'\n</div>'..TOC_bottom
end

return p
Retrieved from "https://en.wikipedia.org/w/index.php?title=Module:TOC001/sandbox&oldid=1184439763"