Module:Archive list - Revision history

Pppery: Add leavefirstcellblank per edit request

2022-10-08T16:29:36Z

Add leavefirstcellblank per edit request

← Previous revision		Revision as of 16:29, 8 October 2022
Line 160:		Line 160:
	return 1		return 1
	end		end
			end

			-- Get whether to leave a blank cell in the first row and column
			-- If links start at 1, and lineNum is a round number, this aligns the first
			-- column to start on a multiple of lineNum, which may be a nice round number
			local function getLeaveFirstCellBlank( leaveFirstCellBlank )
			return leaveFirstCellBlank == 'yes'
			or leaveFirstCellBlank == 'y'
			or leaveFirstCellBlank == 1
	end		end

Line 222:		Line 231:
	table.insert(ret, "<table style=\"width: 100%; padding: 0px; text-align: center; background-color: transparent;\"><tr><td>")		table.insert(ret, "<table style=\"width: 100%; padding: 0px; text-align: center; background-color: transparent;\"><tr><td>")
	end		end
			if glargs.leaveFirstCellBlank then
			-- An empty first cell aligns the first column on multiples of lineNum
			table.insert(ret, sep)
			lineCounter = lineCounter + 1
			end
	for archiveNum = start, glargs.max do		for archiveNum = start, glargs.max do
	local link = mw.ustring.format(		local link = mw.ustring.format(
Line 267:		Line 281:
	local sep = getSeparator( args.sep )		local sep = getSeparator( args.sep )
	local lineSep = getSeparator( args.linesep )		local lineSep = getSeparator( args.linesep )
			local leaveFirstCellBlank = getLeaveFirstCellBlank( args.leavefirstcellblank )
	local glargs = {		local glargs = {
	start = start,		start = start,
Line 275:		Line 290:
	sep = sep,		sep = sep,
	lineNum = lineNum,		lineNum = lineNum,
	lineSep = lineSep		lineSep = lineSep,
			leaveFirstCellBlank = leaveFirstCellBlank
	}		}
	return generateLinks( glargs )		return generateLinks( glargs )

Cabayi: sandbox to live per request

2018-01-07T12:58:50Z

sandbox to live per request

← Previous revision		Revision as of 12:58, 7 January 2018
Line 58:		Line 58:
	-- maximum of 500,000 possible archives before we hit the		-- maximum of 500,000 possible archives before we hit the
	-- expensive function limit.		-- expensive function limit.
	local function getBiggestArchiveNum( prefix, max )		local function getBiggestArchiveNum( prefix, start, max )
	-- Return the value for max if it is specified.		-- Return the value for max if it is specified.
	max = processNumArg( max )		max = processNumArg( max )
Line 66:		Line 66:

	-- Otherwise, detect the largest archive number.		-- Otherwise, detect the largest archive number.
	local check1000 = checkArchives( prefix, 1000, 1 )		start = start or 1
			local check1000 = checkArchives( prefix, 1000, start )
	if check1000 == 1 then		if check1000 == start then
	return 0 -- Return 0 if no archives were found.		return 0 -- Return 0 if no archives were found.
	end		end
Line 260:		Line 261:
	local isLong = findFormType( args.auto )		local isLong = findFormType( args.auto )
	local prefix = getPrefix( args.root, args.prefix, args.prefixspace )		local prefix = getPrefix( args.root, args.prefix, args.prefixspace )
⚫	local max = getBiggestArchiveNum( prefix, args.max )
	local lineNum = getLineNum( args.links, args.nobr, isLong )		local lineNum = getLineNum( args.links, args.nobr, isLong )
	local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )		local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )
	local start = getStart( args.start )		local start = getStart( args.start )
		⚫	local max = getBiggestArchiveNum( prefix, start, args.max )
	local sep = getSeparator( args.sep )		local sep = getSeparator( args.sep )
	local lineSep = getSeparator( args.linesep )		local lineSep = getSeparator( args.linesep )

NeilN: Undid revision 817618194 by Anomie (talk) all trouts accepted if I screwed up

2017-12-29T20:52:01Z

Undid revision 817618194 by Anomie (talk) all trouts accepted if I screwed up

← Previous revision		Revision as of 20:52, 29 December 2017
Line 58:		Line 58:
	-- maximum of 500,000 possible archives before we hit the		-- maximum of 500,000 possible archives before we hit the
	-- expensive function limit.		-- expensive function limit.
	local function getBiggestArchiveNum( prefix~~, start~~, max )		local function getBiggestArchiveNum( prefix, max )
	-- Return the value for max if it is specified.		-- Return the value for max if it is specified.
	max = processNumArg( max )		max = processNumArg( max )
Line 66:		Line 66:

	-- Otherwise, detect the largest archive number.		-- Otherwise, detect the largest archive number.
	local check1000 = checkArchives( prefix, 1000, ~~start~~ )		local check1000 = checkArchives( prefix, 1000, 1 )
	if check1000 == ~~start~~ then		if check1000 == 1 then
	return 0 -- Return 0 if no archives were found.		return 0 -- Return 0 if no archives were found.
	end		end
Line 260:		Line 260:
	local isLong = findFormType( args.auto )		local isLong = findFormType( args.auto )
	local prefix = getPrefix( args.root, args.prefix, args.prefixspace )		local prefix = getPrefix( args.root, args.prefix, args.prefixspace )
		⚫	local max = getBiggestArchiveNum( prefix, args.max )
	local lineNum = getLineNum( args.links, args.nobr, isLong )		local lineNum = getLineNum( args.links, args.nobr, isLong )
	local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )		local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )
	local start = getStart( args.start )		local start = getStart( args.start )
⚫	local max = getBiggestArchiveNum( prefix~~, start~~, args.max )
	local sep = getSeparator( args.sep )		local sep = getSeparator( args.sep )
	local lineSep = getSeparator( args.linesep )		local lineSep = getSeparator( args.linesep )

Anomie: When |start= is provided without |max=, start looking from 'start' rather than from 1.

2017-12-29T14:49:01Z

When |start= is provided without |max=, start looking from 'start' rather than from 1.

← Previous revision		Revision as of 14:49, 29 December 2017
Line 58:		Line 58:
	-- maximum of 500,000 possible archives before we hit the		-- maximum of 500,000 possible archives before we hit the
	-- expensive function limit.		-- expensive function limit.
	local function getBiggestArchiveNum( prefix, max )		local function getBiggestArchiveNum( prefix, start, max )
	-- Return the value for max if it is specified.		-- Return the value for max if it is specified.
	max = processNumArg( max )		max = processNumArg( max )
Line 66:		Line 66:

	-- Otherwise, detect the largest archive number.		-- Otherwise, detect the largest archive number.
	local check1000 = checkArchives( prefix, 1000, 1 )		local check1000 = checkArchives( prefix, 1000, start )
	if check1000 == 1 then		if check1000 == start then
	return 0 -- Return 0 if no archives were found.		return 0 -- Return 0 if no archives were found.
	end		end
Line 260:		Line 260:
	local isLong = findFormType( args.auto )		local isLong = findFormType( args.auto )
	local prefix = getPrefix( args.root, args.prefix, args.prefixspace )		local prefix = getPrefix( args.root, args.prefix, args.prefixspace )
⚫	local max = getBiggestArchiveNum( prefix, args.max )
	local lineNum = getLineNum( args.links, args.nobr, isLong )		local lineNum = getLineNum( args.links, args.nobr, isLong )
	local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )		local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )
	local start = getStart( args.start )		local start = getStart( args.start )
		⚫	local max = getBiggestArchiveNum( prefix, start, args.max )
	local sep = getSeparator( args.sep )		local sep = getSeparator( args.sep )
	local lineSep = getSeparator( args.linesep )		local lineSep = getSeparator( args.linesep )

MSGJ: allow merging with Template:Archive list long, code by User:Mamyles

2015-05-18T14:32:40Z

allow merging with Template:Archive list long, code by User:Mamyles

← Previous revision		Revision as of 14:32, 18 May 2015
Line 97:		Line 97:
	-- Get the number of archives to put on one line. Set to		-- Get the number of archives to put on one line. Set to
	-- math.huge if there should be no line breaks.		-- math.huge if there should be no line breaks.
	local function getLineNum( links, nobr )		local function getLineNum( links, nobr, isLong )
	local linksToNum = tonumber( links )		local linksToNum = tonumber( links )
	local lineNum		local lineNum
Line 114:		Line 114:
	end		end
	else		else
			if isLong==true then
⚫	lineNum = 10 -- Default to 10 ~~links.~~
			lineNum = 3 -- Default to 3 links on long
			else
		⚫	lineNum = 10 -- Default to 10 on short
			end
	end		end
	return lineNum		return lineNum
Line 120:		Line 124:

	-- Gets the prefix to put before the archive links.		-- Gets the prefix to put before the archive links.
	local function getLinkPrefix( prefix, space )		local function getLinkPrefix( prefix, space, isLong )
	-- Get the link prefix.		-- Get the link prefix.
	local ret = ''		local ret = ''
			if isLong==true then ---- Default of old template for long is 'Archive '
	if type(prefix) == 'string' then		if type(prefix) == 'string' then
⚫	ret = prefix
	if ~~space~~ == '~~yes~~' then		if prefix == 'none' then -- 'none' overrides to empty prefix
	ret = ~~ret ..~~ ' '		ret = ''
	~~end~~		else
			ret = prefix
			if space == 'yes' then
			ret = ret .. ' '
			end
			end
			else
			ret = 'Archive '
			end
			else --type is not long
			if type(prefix) == 'string' then
		⚫	ret = prefix
			if space == 'yes' then
			ret = ret .. ' '
			end
			end
	end		end
	return ret		return ret
Line 167:		Line 186:
	-- link to create Archive one.		-- link to create Archive one.
	if glargs.max == 0 then		if glargs.max == 0 then
			if glargs.isLong == true then
⚫	return 'no archives yet ([[' .. glargs.prefix .. '1\|create]])'
			glargs.max = 1 -- One archive redlink is displayed for Long format
			else -- Short error and a creat link is displayed for short
		⚫	return 'no archives yet ([[' .. glargs.prefix .. '1\|create]])'
			end
	end		end
	-- Return an html error if the start number is greater than the		-- Return an html error if the start number is greater than the
Line 180:		Line 203:
	end		end
	local linkPrefix = glargs.linkPrefix or ''		local linkPrefix = glargs.linkPrefix or ''
	local ~~sep~~ = glargs.~~sep~~ or ~~mw.message.new( 'comma-separator' ):plain()~~		local lineNum = glargs.lineNum or 10
			local sep = '' -- Long default separator is cell elements, short is ', '
⚫	~~local lineNum~~ = glargs.~~lineNum~~ or 10
	local lineSep = ~~glargs.lineSep~~ or ~~'<br~~ />'		local lineSep = '' -- Long default linebreak is row elements short is '\n'
			if glargs.isLong==true then

		⚫	sep = glargs.sep or ''
			sep = sep .. '</td><td>'
			lineSep = glargs.lineSep or ''
			lineSep = lineSep .. '</td></tr><tr><td>'
			else
			sep = glargs.sep or mw.message.new( 'comma-separator' ):plain()
			lineSep = glargs.lineSep or '<br />'
			end
	-- Generate the archive links.		-- Generate the archive links.
	local lineCounter = 1 -- The counter to see whether we need a line break or not.		local lineCounter = 1 -- The counter to see whether we need a line break or not.
	local ret = {} -- A table containing the strings to be returned.		local ret = {} -- A table containing the strings to be returned.
			if glargs.isLong == true then --Long version is a table
			table.insert(ret, "<table style=\"width: 100%; padding: 0px; text-align: center; background-color: transparent;\"><tr><td>")
			end
	for archiveNum = start, glargs.max do		for archiveNum = start, glargs.max do
	local link = mw.ustring.format(		local link = mw.ustring.format(
Line 204:		Line 238:
	lineCounter = 1		lineCounter = 1
	end		end
			end
			if glargs.isLong == true then --Long version is a table
			table.insert(ret, "</td></tr></table>")
	end		end
	return table.concat( ret )		return table.concat( ret )
			end

			-- Determine if format should be long
			local function findFormType( auto )
			if auto == nil or auto == '' then
			return false
			elseif auto == 'long' then
			return true
			else
			return false
			end
	end		end

	-- Get the archive data and pass it to generateLinks().		-- Get the archive data and pass it to generateLinks().
	local function _main( args )		local function _main( args )
			local isLong = findFormType( args.auto )
	local prefix = getPrefix( args.root, args.prefix, args.prefixspace )		local prefix = getPrefix( args.root, args.prefix, args.prefixspace )
	local max = getBiggestArchiveNum( prefix, args.max )		local max = getBiggestArchiveNum( prefix, args.max )
	local lineNum = getLineNum( args.links, args.nobr )		local lineNum = getLineNum( args.links, args.nobr, isLong )
	local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace )		local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace, isLong )
	local start = getStart( args.start )		local start = getStart( args.start )
	local sep = getSeparator( args.sep )		local sep = getSeparator( args.sep )
Line 222:		Line 271:
	prefix = prefix,		prefix = prefix,
	linkPrefix = linkPrefix,		linkPrefix = linkPrefix,
			isLong = isLong,
	sep = sep,		sep = sep,
	lineNum = lineNum,		lineNum = lineNum,

Mr. Stradivarius: Changed protection level of Module:Archive list: High-risk Lua module: allow template editors ([Edit=Allow only template editors and admins] (indefinite) [Move=Allow only template editors and admins] (indefinite))

2013-11-15T15:07:27Z

Changed protection level of Module:Archive list: High-risk Lua module: allow template editors ([Edit=Allow only template editors and admins] (indefinite) [Move=Allow only template editors and admins] (indefinite))

← Previous revision	Revision as of 15:07, 15 November 2013
(No difference)

Mr. Stradivarius: better separator-handling code

2013-07-03T10:39:34Z

better separator-handling code

← Previous revision		Revision as of 10:39, 3 July 2013
Line 140:		Line 140:
	return 1		return 1
	end		end
	end		end

			-- Process the separator parameter.
			local function getSeparator( sep )
			if sep and type(sep) == 'string' then
			if sep == 'dot'
			or sep =='pipe'
			or sep == 'comma'
			or sep == 'tpt-languages' then
			return mw.message.new( sep .. '-separator' ):plain()
			else
			return sep
			end
			else
			return nil
			end
			end

	-- Generates the list of archive links. glargs.max must be either zero (for		-- Generates the list of archive links. glargs.max must be either zero (for
Line 164:		Line 180:
	end		end
	local linkPrefix = glargs.linkPrefix or ''		local linkPrefix = glargs.linkPrefix or ''
	local sep = glargs.sep or ', '		local sep = glargs.sep or mw.message.new( 'comma-separator' ):plain()
	local lineNum = glargs.lineNum or 10		local lineNum = glargs.lineNum or 10
	local lineSep = glargs.lineSep or '<br />'		local lineSep = glargs.lineSep or '<br />'
Line 199:		Line 215:
	local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace )		local linkPrefix = getLinkPrefix( args.linkprefix, args.linkprefixspace )
	local start = getStart( args.start )		local start = getStart( args.start )
			local sep = getSeparator( args.sep )
			local lineSep = getSeparator( args.linesep )
	local glargs = {		local glargs = {
	start = start,		start = start,
Line 204:		Line 222:
	prefix = prefix,		prefix = prefix,
	linkPrefix = linkPrefix,		linkPrefix = linkPrefix,
	sep = ~~args.~~sep,		sep = sep,
	lineNum = lineNum,		lineNum = lineNum,
	lineSep = ~~args.linesep~~		lineSep = lineSep
	}		}
	return generateLinks( glargs )		return generateLinks( glargs )

Mr. Stradivarius: split up into more functions, and add the ability to specify custom separators and custom start and end points

2013-07-03T08:58:29Z

split up into more functions, and add the ability to specify custom separators and custom start and end points

Show changes

Mr. Stradivarius: Protected Module:Archive list: High-risk Lua module ([Edit=Block all non-admin users] (indefinite) [Move=Block all non-admin users] (indefinite))

2013-07-03T08:49:13Z

Protected Module:Archive list: High-risk Lua module ([Edit=Block all non-admin users] (indefinite) [Move=Block all non-admin users] (indefinite))

← Previous revision	Revision as of 08:49, 3 July 2013
(No difference)

Mr. Stradivarius: tweak comments

2013-07-02T14:14:06Z

tweak comments

← Previous revision		Revision as of 14:14, 2 July 2013
Line 1:		Line 1:
			-- This module implements {{archive list}} in Lua, and adds a few
			-- new features.

	-- Checks whether a page exists, going through pcall		-- Checks whether a page exists, going through pcall
	-- in case we are over the expensive function limit.		-- in case we are over the expensive function limit.
Line 20:		Line 23:

	-- Checks every nth archive to see if it exists, and returns the		-- Checks every nth archive to see if it exists, and returns the
	-- number of the first archive that doesn't exist. It is		-- number of the first archive that doesn't exist. It is
	-- necessary to do this in batches because each check is an		-- necessary to do this in batches because each check is an
	-- expensive function call, and we want to avoid making too many		-- expensive function call, and we want to avoid making too many