Module:Section sizes/sandbox - Revision history

CX Zoom: sync

2023-02-09T12:34:28Z

sync

← Previous revision		Revision as of 12:34, 9 February 2023
Line 19:		Line 19:
	end		end

			--[=[ Inspired from above, removes everything between < & >
			Used to remove html containers from headers to fix breaking section links, but legitimate text within < & > are removed too
			]=]
			local function remove_container (str)
			return (str:gsub( "%<([^%>]*)%>", function(l)
			return l:gsub("^%s(.-)%s$", "");
			end));
			end

	--[=[-------------------------< M A K E _ W I K I L I N K >----------------------------------------------------		--[=[-------------------------< M A K E _ W I K I L I N K >----------------------------------------------------
Line 54:		Line 62:
	local section_name_list = {} -- an interim list that holds just the section names		local section_name_list = {} -- an interim list that holds just the section names
	local section_content; -- section content used for counting		local section_content; -- section content used for counting
	local section = ~~'_LEAD_'~~; -- lead section doen't have a heading		local section = mw.title.new ("MediaWiki:Vector-toc-beginning"):getContent(); -- lead section doen't have a heading, call the text in MediaWiki:Vector-toc-beginning instead
	local count = {}; -- number of bytes in a section including the header text		local count = {}; -- number of bytes in a section including the header text
	local totcount = {};		local totcount = {};
Line 176:		Line 184:

	wl_name = remove_wiki_link (section_name[1]):gsub ('%b{}', ''); -- remove wikilinks and templates from section headings so that we can link to the section		wl_name = remove_wiki_link (section_name[1]):gsub ('%b{}', ''); -- remove wikilinks and templates from section headings so that we can link to the section
			wl_name = remove_container (wl_name); -- remove html containers from section headings so that we can link to the section
	wl_name = wl_name:gsub ('[%[%]]', {['[']='[', [']']=']'}); -- replace '[' and ']' characters with html entities so that wikilinked section names work		wl_name = wl_name:gsub ('[%[%]]', {['[']='[', [']']=']'}); -- replace '[' and ']' characters with html entities so that wikilinked section names work
	wl_name = mw.text.trim (wl_name); -- trim leading/trailing white space if any because white space buggers up url anchor links		wl_name = mw.text.trim (wl_name); -- trim leading/trailing white space if any because white space buggers up url anchor links

WOSlinker: use require('strict') instead of require('Module:No globals')

2022-10-21T10:05:17Z

use require('strict') instead of require('Module:No globals')

← Previous revision		Revision as of 10:05, 21 October 2022
Line 1:		Line 1:

	require('~~Module:No globals~~');		require('strict');
	--[=[-------------------------< R E M O V E _ W I K I _ L I N K >----------------------------------------------		--[=[-------------------------< R E M O V E _ W I K I _ L I N K >----------------------------------------------

CX Zoom: Sync from base module

2022-10-17T08:00:52Z

Sync from base module

← Previous revision		Revision as of 08:00, 17 October 2022
Line 46:		Line 46:
	create a wikilinked list of <article name>'s sections and their size in bytes in a sortable wikitable		create a wikilinked list of <article name>'s sections and their size in bytes in a sortable wikitable

	{{#invoke:Section sizes~~/sandbox~~\|size\|<article name>}}		{{#invoke:Section sizes\|size\|<article name>}}

	]]		]]
Line 63:		Line 63:
	local highlight;		local highlight;
	local highlighttot;		local highlighttot;
	local hidetot_start;
	local hidetot_end;
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
Line 94:		Line 92:
	max = count[0];		max = count[0];

	table.insert (A, make_wikilink (frame.args[1], section~~) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]~~) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]));		table.insert (A, make_wikilink (frame.args[1], section) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]));

	while (1) do -- done this way because some articles reuse section names		while (1) do -- done this way because some articles reuse section names
Line 165:		Line 163:

	highlighttot=''; -- start the style declaration		highlighttot=''; -- start the style declaration
	hidetot_start='';
⚫	~~hidetot_end~~=''; -- ~~these two will be used to~~ hide totals for subsections with no subsubsections
	if level[i]==2 then		if level[i]==2 then
	highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold		highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold
	elseif totcount[i]==count[i] then		elseif totcount[i]==count[i] then
		⚫	highlighttot='color:transparent;'; -- hide totals for subsections with no subsubsections, values required for proper sorting
	hidetot_start=' <!--';
	hidetot_end='-->'; -- defined these two (without that space table will break)
	end		end
	if totcount[i]==totmax then		if totcount[i]==totmax then
Line 177:		Line 172:
	end		end
	highlighttot=highlighttot .. '"\|'; -- close the style declaration		highlighttot=highlighttot .. '"\|'; -- close the style declaration
	hidetot_start=hidetot_start .. '';
	hidetot_end=hidetot_end .. ''; -- close the hidetots

	level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)		level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)
Line 197:		Line 190:
	'style="text-align:right;', -- the section total column is right aligned		'style="text-align:right;', -- the section total column is right aligned
	highlighttot ,		highlighttot ,
	hidetot_start ,
	lang:formatNum (totcount[i]), -- section total count!!		lang:formatNum (totcount[i]), -- section total count!!
	hidetot_end , -- hidetot used to hide values when required
	'\|\|',
	'style="text-align:right;', -- the cumulative count column is right aligned
	highlighttot ,
	lang:formatNum (totcount[i]), -- cumulative count!!
	}));		}));
	end		end
Line 209:		Line 196:
	local out = {}; -- make a sortable wikitable for output		local out = {}; -- make a sortable wikitable for output
	table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header		table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header
	table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total~~!!Cumulative~~\n\|-\n\|'); -- column headers, and first row pipe		table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total\n\|-\n\|'); -- column headers, and first row pipe
	table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)		table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)
	table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total) ~~.. '!!style="text-align:right"\|'~~); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top		table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total)); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top
	table.insert (out, '\n\|}'); -- close the wikitable		table.insert (out, '\n\|}'); -- close the wikitable

CX Zoom: Spaces and comments

2022-02-20T12:01:53Z

Spaces and comments

CX Zoom: Made section totals more standard; works on night mode, other skins

2022-02-20T11:46:43Z

Made section totals more standard; works on night mode, other skins

← Previous revision		Revision as of 11:46, 20 February 2022
Line 63:		Line 63:
	local highlight;		local highlight;
	local highlighttot;		local highlighttot;
			local hidetot_start;
			local hidetot_end;
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
Line 162:		Line 164:
	end		end

	highlighttot=''; -- start the style declaration		highlighttot=''; -- start the style declaration
			hidetot_start='';
			hidetot_end=''; -- these two will be used to hide totals for subsections with no subsubsections
	if level[i]==2 then		if level[i]==2 then
	highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold		highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold
	elseif totcount[i]==count[i] then		elseif totcount[i]==count[i] then
			hidetot_start=' <!--';
	highlighttot='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
			hidetot_end='-->'; -- defined these two (without that space table will break)
	end		end
	if totcount[i]==totmax then		if totcount[i]==totmax then
Line 172:		Line 177:
	end		end
	highlighttot=highlighttot .. '"\|'; -- close the style declaration		highlighttot=highlighttot .. '"\|'; -- close the style declaration
			hidetot_start=hidetot_start .. '';
			hidetot_end=hidetot_end .. ''; -- close the hidetots

	level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)		level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)
Line 187:		Line 194:
	highlight ,		highlight ,
	lang:formatNum (count[i]), -- commafied byte count for section		lang:formatNum (count[i]), -- commafied byte count for section
		⚫	'\|\|',
⚫	'\|\|', -- table column separator
	'style="text-align:right;', -- the section total column is right aligned		'style="text-align:right;', -- the section total column is right aligned
	highlighttot ,		highlighttot ,
			hidetot_start ,
	lang:formatNum (totcount[i]), -- section total count!!		lang:formatNum (totcount[i]), -- section total count!!
⚫	'\|\|',
			hidetot_end , -- hidetot used to hide values when required
		⚫	'\|\|', -- table column separator
	'style="text-align:right;', -- the cumulative count column is right aligned		'style="text-align:right;', -- the cumulative count column is right aligned
	highlighttot ,		highlighttot ,
	lang:formatNum (totcount[i]), -- cumulative count!!		lang:formatNum (totcount[i]), -- cumulative count!!
	}));		}));
	end		end

CX Zoom: Edit in progress; don't want to loose all my progress like last time

2022-02-20T10:19:40Z

Edit in progress; don't want to loose all my progress like last time

← Previous revision		Revision as of 10:19, 20 February 2022
Line 62:		Line 62:
	local upperlevel;		local upperlevel;
	local highlight;		local highlight;
	local ~~highlightc~~;		local highlighttot;
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
Line 92:		Line 92:
	max = count[0];		max = count[0];

	table.insert (A, make_wikilink (frame.args[1], section) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]));		table.insert (A, make_wikilink (frame.args[1], section) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]) .. '\|\| style="text-align:right"\|' .. lang:formatNum (count[0]));

	while (1) do -- done this way because some articles reuse section names		while (1) do -- done this way because some articles reuse section names
Line 162:		Line 162:
	end		end

	~~highlightc~~=''; -- start the style declaration		highlighttot=''; -- start the style declaration
	if level[i]==2 then		if level[i]==2 then
	~~highlightc~~=~~highlightc~~ .. 'font-weight:bold;'; -- if main section, make it bold		highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold
	elseif totcount[i]==count[i] then		elseif totcount[i]==count[i] then
	~~highlightc~~='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections		highlighttot='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
	end		end
	if totcount[i]==totmax then		if totcount[i]==totmax then
	~~highlightc~~=~~highlightc~~ .. 'color:red;'; -- if the largest size, make it red		highlighttot=highlighttot .. 'color:red;'; -- if the largest size, make it red
	end		end
	~~highlightc~~=~~highlightc~~ .. '"\|'; -- close the style declaration		highlighttot=highlighttot .. '"\|'; -- close the style declaration

	level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)		level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)
Line 188:		Line 188:
	lang:formatNum (count[i]), -- commafied byte count for section		lang:formatNum (count[i]), -- commafied byte count for section
	'\|\|', -- table column separator		'\|\|', -- table column separator
	'style="text-align:right;', -- the ~~byte~~ ~~count~~ column is right aligned		'style="text-align:right;', -- the section total column is right aligned
	~~highlightc~~ ,		highlighttot ,
	lang:formatNum (totcount[i]), -- section total count!!		lang:formatNum (totcount[i]), -- section total count!!
			'\|\|',
			'style="text-align:right;', -- the cumulative count column is right aligned
			highlighttot ,
			lang:formatNum (totcount[i]), -- cumulative count!!
	}));		}));
	end		end
Line 196:		Line 200:
	local out = {}; -- make a sortable wikitable for output		local out = {}; -- make a sortable wikitable for output
	table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header		table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header
	table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total\n\|-\n\|'); -- column headers, and first row pipe		table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total!!Cumulative\n\|-\n\|'); -- column headers, and first row pipe
	table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)		table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)
	table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total)); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top		table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|'); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top
	table.insert (out, '\n\|}'); -- close the wikitable		table.insert (out, '\n\|}'); -- close the wikitable

CX Zoom: Change cum → tot

2022-02-20T09:22:14Z

Change cum → tot

← Previous revision		Revision as of 09:22, 20 February 2022
Line 56:		Line 56:
	local section = '_LEAD_'; -- lead section doen't have a heading		local section = '_LEAD_'; -- lead section doen't have a heading
	local count = {}; -- number of bytes in a section including the header text		local count = {}; -- number of bytes in a section including the header text
	local ~~cumcount~~ = {};		local totcount = {};
	local lastlevel;		local lastlevel;
	local maxlevels;		local maxlevels;
Line 65:		Line 65:
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
	local ~~cummax~~; -- largest section so far encountered (~~cumulative~~)		local totmax; -- largest section so far encountered (section total)
	local _; -- dummy for using gsub to count bytes		local _; -- dummy for using gsub to count bytes
	local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language		local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language
Line 127:		Line 127:
	end		end

	~~cummax~~=0;		totmax=0;
	lastlevel=0;		lastlevel=0;
	maxlevels=7;		maxlevels=7;
Line 134:		Line 134:
	end		end
	for i=#count,1,-1 do		for i=#count,1,-1 do
	--~~cumcount~~[i]=level[i];		--totcount[i]=level[i];
	if level[i]<lastlevel then -- reset all		if level[i]<lastlevel then -- reset all
	~~cumcount~~[i]=levelcounts[level[i]]+count[i];		totcount[i]=levelcounts[level[i]]+count[i];
	for j=level[i],maxlevels do		for j=level[i],maxlevels do
	levelcounts[j]=0;		levelcounts[j]=0;
Line 142:		Line 142:
	end		end
	if level[i]>=lastlevel then		if level[i]>=lastlevel then
	~~cumcount~~[i]=count[i];		totcount[i]=count[i];
	end		end
	if level[i]>0 then		if level[i]>0 then
	upperlevel=level[i]-1;		upperlevel=level[i]-1;
	levelcounts[upperlevel]=levelcounts[upperlevel]+~~cumcount~~[i];		levelcounts[upperlevel]=levelcounts[upperlevel]+totcount[i];
	end		end
	lastlevel=level[i];		lastlevel=level[i];
	if ~~cumcount~~[i]>~~cummax~~ then		if totcount[i]>totmax then
	~~cummax~~=~~cumcount~~[i];		totmax=totcount[i];
	end		end
	end		end
Line 165:		Line 165:
	if level[i]==2 then		if level[i]==2 then
	highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold		highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold
	elseif ~~cumcount~~[i]==count[i] then		elseif totcount[i]==count[i] then
	highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections		highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
	end		end
	if ~~cumcount~~[i]==~~cummax~~ then		if totcount[i]==totmax then
	highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red		highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red
	end		end
Line 190:		Line 190:
	'style="text-align:right;', -- the byte count column is right aligned		'style="text-align:right;', -- the byte count column is right aligned
	highlightc ,		highlightc ,
	lang:formatNum (~~cumcount~~[i]), -- ~~cumulative~~ count!!		lang:formatNum (totcount[i]), -- section total count!!
	}));		}));
	end		end

CX Zoom: Copy from base page

2022-02-20T09:20:16Z

Copy from base page

← Previous revision		Revision as of 09:20, 20 February 2022
Line 36:		Line 36:
	end		end
	end		end
	return display or ''; -- link not set so return the display text		return display or ''; -- link not set so return the display text
	end		end

Line 46:		Line 46:
	create a wikilinked list of <article name>'s sections and their size in bytes in a sortable wikitable		create a wikilinked list of <article name>'s sections and their size in bytes in a sortable wikitable

	{{#invoke:~~Sandbox/trappist the~~ ~~monk~~/~~section~~\|size\|<article name>}}		{{#invoke:Section sizes/sandbox\|size\|<article name>}}

	]]		]]
Line 55:		Line 55:
	local section_content; -- section content used for counting		local section_content; -- section content used for counting
	local section = '_LEAD_'; -- lead section doen't have a heading		local section = '_LEAD_'; -- lead section doen't have a heading
	local count = {}; -- number of bytes in a section including the header text		local count = {}; -- number of bytes in a section including the header text
	local ~~totcount~~ = {};		local cumcount = {};
	local lastlevel;		local lastlevel;
	local maxlevels;		local maxlevels;
Line 65:		Line 65:
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
	local ~~totmax~~; -- largest section so far encountered (~~section total~~)		local cummax; -- largest section so far encountered (cumulative)
	local _; -- dummy for using gsub to count bytes		local _; -- dummy for using gsub to count bytes
	local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language		local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language
Line 71:		Line 71:
	local e = 1; -- end position of found heading (returned from string.find())		local e = 1; -- end position of found heading (returned from string.find())
	local section_name; -- captured heading name (returned from string.find())		local section_name; -- captured heading name (returned from string.find())
	local level = {}; -- number of leading '=' in heading markup; used for indenting subsections in the rendered list		local level = {}; -- number of leading '=' in heading markup; used for indenting subsections in the rendered list
	local wl_name; -- anchor and display portion for wikilinks in rendered list		local wl_name; -- anchor and display portion for wikilinks in rendered list

Line 110:		Line 110:
	_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section		_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section
	total = total + count[i];		total = total + count[i];
	max = max < count[i] and count[i] or max; -- keep track of largest count		max = max < count[i] and count[i] or max; -- keep track of largest count
	else -- probably the last section (no proper header follows this section name)		else -- probably the last section (no proper header follows this section name)
	pattern = '(==+ ' .. escaped_section_name .. ' ==+.+)'; -- make a new pattern		pattern = '(==+ ' .. escaped_section_name .. ' ==+.+)'; -- make a new pattern
Line 117:		Line 117:
	_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section		_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section
	total = total + count[i];		total = total + count[i];
	max = max < count[i] and count[i] or max; -- keep track of largest count		max = max < count[i] and count[i] or max; -- keep track of largest count
	else		else
	count[i] = '—'; -- no content so show that		count[i] = '—'; -- no content so show that
Line 127:		Line 127:
	end		end

	~~totmax~~=0;		cummax=0;
	lastlevel=0;		lastlevel=0;
	maxlevels=7;		maxlevels=7;
Line 134:		Line 134:
	end		end
	for i=#count,1,-1 do		for i=#count,1,-1 do
	--~~totcount~~[i]=level[i];		--cumcount[i]=level[i];
	if level[i]<lastlevel then -- reset all		if level[i]<lastlevel then -- reset all
	~~totcount~~[i]=levelcounts[level[i]]+count[i];		cumcount[i]=levelcounts[level[i]]+count[i];
	for j=level[i],maxlevels do		for j=level[i],maxlevels do
	levelcounts[j]=0;		levelcounts[j]=0;
Line 142:		Line 142:
	end		end
	if level[i]>=lastlevel then		if level[i]>=lastlevel then
	~~totcount~~[i]=count[i];		cumcount[i]=count[i];
	end		end
	if level[i]>0 then		if level[i]>0 then
	upperlevel=level[i]-1;		upperlevel=level[i]-1;
	levelcounts[upperlevel]=levelcounts[upperlevel]+~~totcount~~[i];		levelcounts[upperlevel]=levelcounts[upperlevel]+cumcount[i];
	end		end
	lastlevel=level[i];		lastlevel=level[i];
	if ~~totcount~~[i]>~~totmax~~ then		if cumcount[i]>cummax then
	~~totmax~~=~~totcount~~[i];		cummax=cumcount[i];
	end		end
	end		end
Line 165:		Line 165:
	if level[i]==2 then		if level[i]==2 then
	highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold		highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold
	elseif ~~totcount~~[i]==count[i] then		elseif cumcount[i]==count[i] then
	highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections		highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
	end		end
	if ~~totcount~~[i]==~~totmax~~ then		if cumcount[i]==cummax then
	highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red		highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red
	end		end
Line 182:		Line 182:
	level[i] and '<span style="margin-left:' .. level[i] .. 'em">' or ''; -- indent per heading level (number of '=' in heading markup)		level[i] and '<span style="margin-left:' .. level[i] .. 'em">' or ''; -- indent per heading level (number of '=' in heading markup)
	make_wikilink (frame.args[1] .. '#' .. wl_name, wl_name), -- section link		make_wikilink (frame.args[1] .. '#' .. wl_name, wl_name), -- section link
	level[i] and '</span>' or '', -- close the span if opened		level[i] and '</span>' or '', -- close the span if opened
	'\|\|', -- table column separator		'\|\|', -- table column separator
	'style="text-align:right;', -- the byte count column is right aligned		'style="text-align:right;', -- the byte count column is right aligned
	highlight ,		highlight ,
	lang:formatNum (count[i]), -- commafied byte count for section		lang:formatNum (count[i]), -- commafied byte count for section
	'\|\|', -- table column separator		'\|\|', -- table column separator
	'style="text-align:right;', -- the byte count column is right aligned		'style="text-align:right;', -- the byte count column is right aligned
	highlightc ,		highlightc ,
	lang:formatNum (~~totcount~~[i]), -- ~~total~~ count ~~of the section~~!!		lang:formatNum (cumcount[i]), -- cumulative count!!
	}));		}));
	end		end
Line 201:		Line 201:
	table.insert (out, '\n\|}'); -- close the wikitable		table.insert (out, '\n\|}'); -- close the wikitable

	--max = lang:formatNum (max); -- commafy so that the commafied value in the table can be found		--max = lang:formatNum (max); -- commafy so that the commafied value in the table can be found
	--local result = table.concat (out, ''):gsub (max, '<span style="color:red">' .. max .. '</span>'); -- make a big string, make largest count(s) red, and done		--local result = table.concat (out, ''):gsub (max, '<span style="color:red">' .. max .. '</span>'); -- make a big string, make largest count(s) red, and done
	local result = table.concat (out, '');		local result = table.concat (out, '');

CX Zoom: Change cum → tot

2022-02-20T08:45:59Z

Change cum → tot

← Previous revision		Revision as of 08:45, 20 February 2022
Line 56:		Line 56:
	local section = '_LEAD_'; -- lead section doen't have a heading		local section = '_LEAD_'; -- lead section doen't have a heading
	local count = {}; -- number of bytes in a section including the header text		local count = {}; -- number of bytes in a section including the header text
	local ~~cumcount~~ = {};		local totcount = {};
	local lastlevel;		local lastlevel;
	local maxlevels;		local maxlevels;
Line 65:		Line 65:
	local total; -- sum of all byte counts		local total; -- sum of all byte counts
	local max; -- largest section so far encountered		local max; -- largest section so far encountered
	local ~~cummax~~; -- largest section so far encountered (~~cumulative~~)		local totmax; -- largest section so far encountered (section total)
	local _; -- dummy for using gsub to count bytes		local _; -- dummy for using gsub to count bytes
	local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language		local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language
Line 127:		Line 127:
	end		end

	~~cummax~~=0;		totmax=0;
	lastlevel=0;		lastlevel=0;
	maxlevels=7;		maxlevels=7;
Line 134:		Line 134:
	end		end
	for i=#count,1,-1 do		for i=#count,1,-1 do
	--~~cumcount~~[i]=level[i];		--totcount[i]=level[i];
	if level[i]<lastlevel then -- reset all		if level[i]<lastlevel then -- reset all
	~~cumcount~~[i]=levelcounts[level[i]]+count[i];		totcount[i]=levelcounts[level[i]]+count[i];
	for j=level[i],maxlevels do		for j=level[i],maxlevels do
	levelcounts[j]=0;		levelcounts[j]=0;
Line 142:		Line 142:
	end		end
	if level[i]>=lastlevel then		if level[i]>=lastlevel then
	~~cumcount~~[i]=count[i];		totcount[i]=count[i];
	end		end
	if level[i]>0 then		if level[i]>0 then
	upperlevel=level[i]-1;		upperlevel=level[i]-1;
	levelcounts[upperlevel]=levelcounts[upperlevel]+~~cumcount~~[i];		levelcounts[upperlevel]=levelcounts[upperlevel]+totcount[i];
	end		end
	lastlevel=level[i];		lastlevel=level[i];
	if ~~cumcount~~[i]>~~cummax~~ then		if totcount[i]>totmax then
	~~cummax~~=~~cumcount~~[i];		totmax=totcount[i];
	end		end
	end		end
Line 165:		Line 165:
	if level[i]==2 then		if level[i]==2 then
	highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold		highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold
	elseif ~~cumcount~~[i]==count[i] then		elseif totcount[i]==count[i] then
	highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections		highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
	end		end
	if ~~cumcount~~[i]==~~cummax~~ then		if totcount[i]==totmax then
	highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red		highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red
	end		end
Line 190:		Line 190:
	'style="text-align:right;', -- the byte count column is right aligned		'style="text-align:right;', -- the byte count column is right aligned
	highlightc ,		highlightc ,
	lang:formatNum (~~cumcount~~[i]), -- ~~cumulative~~ count!!		lang:formatNum (totcount[i]), -- total count of the section!!
	}));		}));
	end		end

CX Zoom: Create sandbox version of Module:Section sizes

2022-02-20T08:43:47Z

Create sandbox version of Module:Section sizes

New page

require('Module:No globals');
--[=[-------------------------< R E M O V E _ W I K I _ L I N K >----------------------------------------------

Gets the display text from a wikilink like [[A|B]] or [[B]] gives B

The str:gsub() returns either A|B froma [[A|B]] or B from [[B]] or B from B (no wikilink markup).

In l(), l:gsub() removes the link and pipe (if they exist); the second :gsub() trims white space from the label
if str was wrapped in wikilink markup. Presumably, this is because without wikimarkup in str, there is no match
in the initial gsub, the replacement function l() doesn't get called.

]=]

local function remove_wiki_link (str)
return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)
return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");
end));
end

--[=[-------------------------< M A K E _ W I K I L I N K >----------------------------------------------------

Makes a wikilink; when both link and display text is provided, returns a wikilink in the form [[L|D]]; if only
link is provided, returns a wikilink in the form [[L]]; if neither are provided or link is omitted, returns an
empty string.

]=]

local function make_wikilink (link, display)
if link and ('' ~= link) then
if display and ('' ~= display) then
return table.concat ({'[[', link, '|', display, ']]'});
else
return table.concat ({'[[', link, ']]'});
end
end
return display or ''; -- link not set so return the display text
end

--[[--------------------------< S I Z E >----------------------------------------------------------------------

module entry point

create a wikilinked list of <article name>'s sections and their size in bytes in a sortable wikitable

{{#invoke:Sandbox/trappist the monk/section|size|<article name>}}

]]

local function size (frame)
local A = {}; -- table to hold section names and sizes
local section_name_list = {} -- an interim list that holds just the section names
local section_content; -- section content used for counting
local section = '_LEAD_'; -- lead section doen't have a heading
local count = {}; -- number of bytes in a section including the header text
local cumcount = {};
local lastlevel;
local maxlevels;
local levelcounts = {};
local upperlevel;
local highlight;
local highlightc;
local total; -- sum of all byte counts
local max; -- largest section so far encountered
local cummax; -- largest section so far encountered (cumulative)
local _; -- dummy for using gsub to count bytes
local lang = mw.language.getContentLanguage(); -- language object for number formatting appropriate to local language
local s; -- start position of found heading (returned from string.find())
local e = 1; -- end position of found heading (returned from string.find())
local section_name; -- captured heading name (returned from string.find())
local level = {}; -- number of leading '=' in heading markup; used for indenting subsections in the rendered list
local wl_name; -- anchor and display portion for wikilinks in rendered list

local content = mw.title.new (frame.args[1]):getContent(); -- get unparsed wikitext from the article
if not content then
return 'error: no article:' .. frame.args[1] .. '';
end

if content:find ('#REDIRECT') then -- redirects don't have sections
return 'error: ' .. frame.args[1] .. ' is a redirect';
end

section_content = content:match ('(.-)===*'); -- get the lead section
if section_content then
_, count[0] = section_content:gsub ('.', '%1'); -- count the size of the lead section
else
return 'error: no sections found in: ' .. frame.args[1] .. '';
end
total = count[0];
max = count[0];

table.insert (A, make_wikilink (frame.args[1], section) .. '|| style="text-align:right"|' .. lang:formatNum (count[0]) .. '|| style="text-align:right"|' .. lang:formatNum (count[0]));

while (1) do -- done this way because some articles reuse section names
s, e, section_name = string.find (content, '\n==+ *(.-) *==+', e); -- get start, end, and section name beginning a end of last find; newline must precede '==' heading markup
if s then
table.insert (section_name_list, {section_name, s}); -- save section name and start location of this find
else
break;
end
end

for i, section_name in ipairs (section_name_list) do
local escaped_section_name = string.gsub (section_name[1], '([%(%)%.%%%+%-%*%?%[%^%$%]])', '%%%1'); -- escape lua patterns in section name
local pattern = '(==+ *' .. escaped_section_name .. ' *==+.-)==+'; -- make a pattern to get the content of a section
section_content = string.match (content, pattern, section_name[2]); -- get the content beginning at the string.find() start location
if section_content then
_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section
total = total + count[i];
max = max < count[i] and count[i] or max; -- keep track of largest count
else -- probably the last section (no proper header follows this section name)
pattern = '(==+ *' .. escaped_section_name .. ' *==+.+)'; -- make a new pattern
section_content = string.match (content, pattern, section_name[2]); -- try to get content
if section_content then
_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section
total = total + count[i];
max = max < count[i] and count[i] or max; -- keep track of largest count
else
count[i] = '—'; -- no content so show that
end
end

_, level[i] = section_content:find ('^=+'); -- should always be the first n characters of section content

end

cummax=0;
lastlevel=0;
maxlevels=7;
for j=1,maxlevels do
levelcounts[j]=0;
end
for i=#count,1,-1 do
--cumcount[i]=level[i];
if level[i]<lastlevel then -- reset all
cumcount[i]=levelcounts[level[i]]+count[i];
for j=level[i],maxlevels do
levelcounts[j]=0;
end
end
if level[i]>=lastlevel then
cumcount[i]=count[i];
end
if level[i]>0 then
upperlevel=level[i]-1;
levelcounts[upperlevel]=levelcounts[upperlevel]+cumcount[i];
end
lastlevel=level[i];
if cumcount[i]>cummax then
cummax=cumcount[i];
end
end

for i, section_name in ipairs (section_name_list) do

if count[i]==max then
highlight='color:red;"|';
else
highlight='"|';
end

highlightc=''; -- start the style declaration
if level[i]==2 then
highlightc=highlightc .. 'font-weight:bold;'; -- if main section, make it bold
elseif cumcount[i]==count[i] then
highlightc='color:#f8f9fa;'; -- same color as background for wikitable class tables for subsections with no subsubsections
end
if cumcount[i]==cummax then
highlightc=highlightc .. 'color:red;'; -- if the largest size, make it red
end
highlightc=highlightc .. '"|'; -- close the style declaration

level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)

wl_name = remove_wiki_link (section_name[1]):gsub ('%b{}', ''); -- remove wikilinks and templates from section headings so that we can link to the section
wl_name = wl_name:gsub ('[%[%]]', {['[']='[', [']']=']'}); -- replace '[' and ']' characters with html entities so that wikilinked section names work
wl_name = mw.text.trim (wl_name); -- trim leading/trailing white space if any because white space buggers up url anchor links

table.insert (A, table.concat ({ -- build most of a table row here because here we have heading information that we won't have later
level[i] and '' or ''; -- indent per heading level (number of '=' in heading markup)
make_wikilink (frame.args[1] .. '#' .. wl_name, wl_name), -- section link
level[i] and '' or '', -- close the span if opened
'||', -- table column separator
'style="text-align:right;', -- the byte count column is right aligned
highlight ,
lang:formatNum (count[i]), -- commafied byte count for section
'||', -- table column separator
'style="text-align:right;', -- the byte count column is right aligned
highlightc ,
lang:formatNum (cumcount[i]), -- cumulative count!!
}));
end

local out = {}; -- make a sortable wikitable for output
table.insert (out, string.format ('{| class="wikitable sortable" style="%s"\n|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header
table.insert (out, '\n!Section name!!Byte count!!Section total\n|-\n|'); -- column headers, and first row pipe
table.insert (out, table.concat (A, '\n|-\n|')); -- section rows with leading pipes (except first row already done)
table.insert (out, '\n|-\n!Total!!style="text-align:right"|' .. lang:formatNum (total) .. '!!style="text-align:right"|' .. lang:formatNum (total)); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top
table.insert (out, '\n|}'); -- close the wikitable

--max = lang:formatNum (max); -- commafy so that the commafied value in the table can be found
--local result = table.concat (out, ''):gsub (max, '' .. max .. ''); -- make a big string, make largest count(s) red, and done
local result = table.concat (out, '');
return result; -- because gsub returns string and number of replacements
end

--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]

return
{
size = size,
}

← Previous revision		Revision as of 12:01, 20 February 2022
Line 36:		Line 36:
	end		end
	end		end
	return display or ''; -- link not set so return the display text		return display or ''; -- link not set so return the display text
	end		end

Line 106:		Line 106:

	for i, section_name in ipairs (section_name_list) do		for i, section_name in ipairs (section_name_list) do
	local escaped_section_name = string.gsub (section_name[1], '([%(%)%.%%%+%-%*%?%[%^%$%]])', '%%%1'); -- escape lua patterns in section name		local escaped_section_name = string.gsub (section_name[1], '([%(%)%.%%%+%-%*%?%[%^%$%]])', '%%%1'); -- escape lua patterns in section name
	local pattern = '(==+ ' .. escaped_section_name .. ' ==+.-)==+'; -- make a pattern to get the content of a section		local pattern = '(==+ ' .. escaped_section_name .. ' ==+.-)==+'; -- make a pattern to get the content of a section
	section_content = string.match (content, pattern, section_name[2]); -- get the content beginning at the string.find() start location		section_content = string.match (content, pattern, section_name[2]); -- get the content beginning at the string.find() start location
Line 115:		Line 115:
	else -- probably the last section (no proper header follows this section name)		else -- probably the last section (no proper header follows this section name)
	pattern = '(==+ ' .. escaped_section_name .. ' ==+.+)'; -- make a new pattern		pattern = '(==+ ' .. escaped_section_name .. ' ==+.+)'; -- make a new pattern
	section_content = string.match (content, pattern, section_name[2]); -- try to get content		section_content = string.match (content, pattern, section_name[2]); -- try to get content
	if section_content then		if section_content then
	_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section		_, count[i] = section_content:gsub ('.', '%1'); -- count the bytes in the section
Line 137:		Line 137:
	for i=#count,1,-1 do		for i=#count,1,-1 do
	--totcount[i]=level[i];		--totcount[i]=level[i];
	if level[i]<lastlevel then -- reset all		if level[i]<lastlevel then -- reset all
	totcount[i]=levelcounts[level[i]]+count[i];		totcount[i]=levelcounts[level[i]]+count[i];
	for j=level[i],maxlevels do		for j=level[i],maxlevels do
Line 164:		Line 164:
	end		end

	highlighttot=''; -- start the style declaration		highlighttot=''; -- start the style declaration
	hidetot_start='';		hidetot_start='';
	hidetot_end=''; -- these two will be used to hide totals for subsections with no subsubsections		hidetot_end=''; -- these two will be used to hide totals for subsections with no subsubsections
	if level[i]==2 then		if level[i]==2 then
	highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold		highlighttot=highlighttot .. 'font-weight:bold;'; -- if main section, make it bold
	elseif totcount[i]==count[i] then		elseif totcount[i]==count[i] then
	hidetot_start=' <!--';		hidetot_start=' <!--';
	hidetot_end='-->'; -- defined these two (without that space table will break)		hidetot_end='-->'; -- defined these two (without that space table will break)
	end		end
	if totcount[i]==totmax then		if totcount[i]==totmax then
Line 178:		Line 178:
	highlighttot=highlighttot .. '"\|'; -- close the style declaration		highlighttot=highlighttot .. '"\|'; -- close the style declaration
	hidetot_start=hidetot_start .. '';		hidetot_start=hidetot_start .. '';
	hidetot_end=hidetot_end .. ''; -- close the hidetots		hidetot_end=hidetot_end .. ''; -- close the hidetots

	level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)		level[i] = (2 < level[i]) and ((level[i]-2) * 1.6) or nil; -- remove offset and mult by 1.6em (same indent as ':' markup which doesn't work in a table)
Line 191:		Line 191:
	level[i] and '</span>' or '', -- close the span if opened		level[i] and '</span>' or '', -- close the span if opened
	'\|\|', -- table column separator		'\|\|', -- table column separator
	'style="text-align:right;', -- the byte count column is right aligned		'style="text-align:right;', -- the byte count column is right aligned
	highlight ,		highlight ,
	lang:formatNum (count[i]), -- commafied byte count for section		lang:formatNum (count[i]), -- commafied byte count for section
	'\|\|',		'\|\|',
	'style="text-align:right;', -- the section total column is right aligned		'style="text-align:right;', -- the section total column is right aligned
	highlighttot ,		highlighttot ,
	hidetot_start ,		hidetot_start ,
	lang:formatNum (totcount[i]), -- section total count!!		lang:formatNum (totcount[i]), -- section total count!!
	hidetot_end , -- hidetot used to hide values when required		hidetot_end , -- hidetot used to hide values when required
			'\|\|',
	'\|\|', -- table column separator
	'style="text-align:right;', -- the cumulative count column is right aligned		'style="text-align:right;', -- the cumulative count column is right aligned
	highlighttot ,		highlighttot ,
	lang:formatNum (totcount[i]), -- cumulative count!!		lang:formatNum (totcount[i]), -- cumulative count!!
Line 208:		Line 208:

	local out = {}; -- make a sortable wikitable for output		local out = {}; -- make a sortable wikitable for output
	table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header		table.insert (out, string.format ('{\| class="wikitable sortable" style="%s"\n\|+Section size for [[%s]] (%d sections)', frame.args.style or '', frame.args[1], #A)); -- output table header
	table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total!!Cumulative\n\|-\n\|'); -- column headers, and first row pipe		table.insert (out, '\n!Section name!!Byte<br/>count!!Section<br/>total!!Cumulative\n\|-\n\|'); -- column headers, and first row pipe
	table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)		table.insert (out, table.concat (A, '\n\|-\n\|')); -- section rows with leading pipes (except first row already done)
	table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|'); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top		table.insert (out, '\n\|-\n!Total!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|' .. lang:formatNum (total) .. '!!style="text-align:right"\|'); -- total number of bytes counted as column headers so that sorting doesn't move this row from the bottom to top
	table.insert (out, '\n\|}'); -- close the wikitable		table.insert (out, '\n\|}'); -- close the wikitable

	--max = lang:formatNum (max); -- commafy so that the commafied value in the table can be found		--max = lang:formatNum (max); -- commafy so that the commafied value in the table can be found
	--local result = table.concat (out, ''):gsub (max, '<span style="color:red">' .. max .. '</span>'); -- make a big string, make largest count(s) red, and done		--local result = table.concat (out, ''):gsub (max, '<span style="color:red">' .. max .. '</span>'); -- make a big string, make largest count(s) red, and done
	local result = table.concat (out, '');		local result = table.concat (out, '');
	return result; -- because gsub returns string and number of replacements		return result; -- because gsub returns string and number of replacements