View source for Module:Set | Yu-Gi-Oh! Wiki

You do not have permission to edit this page, for the following reasons:
The action you have requested is limited to users in one of the groups: Emailconfirmed Users, Fandom Helpers, Wiki Specialists.
You must confirm your email address before editing pages. Please set and validate your email address through your user preferences.
You can view and copy the source of this page.
--- Functions for producing set list releases and card set list associations
--
--
--
--  @module  Set
--  @alias   S
--  @class   utility
--  @author  [[User:FishTank]]
--  @release beta
--  @image
--  @caption
--  @require [[Module:HF]]
--  @require [[Module:Arguments]]
--  @require [[Module:Card type]]
--  @require [[Module:Error]]
--  @require [[Module:Infobox]]
--  @require [[Module:List]]
--  @require [[Module:Variables/sandbox]]
--  @require [[Module:Yesno]]
--  @require [[Module:Set list/data]]
--  @require SemanticScribunto as [https://github.com/SemanticMediaWiki/SemanticScribunto/tree/master/docs mw.smw]
local S = {}
local HF = require('Module:HF')
local getArgs = require( 'Module:Arguments' ).getArgs
local getCardType = require( 'Module:Card type' ).main
local E = require( 'Module:Error' )
local L = require('Module:List')
local Variables = require('Module:Variables/sandbox')
local yesno = require('Module:Yesno')

--- Persistent data
--  @member data
local data = mw.loadData( 'Module:Set list/data' )
local rg_list = data.rg_list         --  Region code table.
local region_list = data.region_list     --  Region name table.
local ln_list = data.ln_list         --  Language code table.
local language_list = data.language_list   --  Language name table.
local rarity_list = data.rarity_list     --  Rarity name table.
local abbr_list = data.abbr_list       --  Abbr disable codes table.

--- Sets [[mw:Extension:Variables|Variables]] and creates basic logic for many elements
--  @see [[Module:Variables#Variables.infoboxSet|Module:Variables]] function ''infoboxSet''
--  @usage {{#invoke:Set|infoboxSet__variables}}
--  @function S.infoboxSet__variables
S.infoboxSet__variables = Variables.infoboxSet

--- Display for Japanese name entries
--  
--  Intended for use in an infobox as a <format> invocation
--  @see [[Module:Infobox]] function [[Module:Infobox#Infobox.japaneseName|''japaneseName'']]
--  @function S.infoboxSet__ja_name
--  @param  {Frame} frame
--  @param  {table} frame.args Invocation arguments
--  @return {HTMLBuilder} Wikitext
--  @usage  {{#invoke:Set|infoboxSet__ja_name}}
S.infoboxSet__ja_name = require('Module:Infobox').japaneseName

--- Display for Korean name entries
--  
--  Intended for use in an infobox as a <format> invocation
--  @see [[Module:Infobox]] function [[Module:Infobox#Infobox.koreanName|''koreanName'']]
--  @function S.infoboxSet__ko_name
--  @param  {Frame} frame
--  @param  {table} frame.args Invocation arguments
--  @return {HTMLBuilder} Wikitext
--  @usage  {{#invoke:Set|infoboxSet__ko_name}}
S.infoboxSet__ko_name = require('Module:Infobox').koreanName

--- Display for Chinese name entries
--  
--  Intended for use in an infobox as a <format> invocation
--  @see [[Module:Infobox]] function [[Module:Infobox#Infobox.chineseName|''chineseName'']]
--  @function S.infoboxSet__zh_name
--  @param  {Frame} frame
--  @param  {table} frame.args Invocation arguments
--  @return {HTMLBuilder} Wikitext
--  @usage  {{#invoke:Set|infoboxSet__zh_name}}
S.infoboxSet__zh_name = require('Module:Infobox').chineseName

_G.errors = {}
_G.setListData = {}

local function italicize (text)
	return ("''" .. text .. "''")
end

--- Bulk link
--
--  If a string is passed, links it;
--  uses a label, when given.
--  If a table is passed, links every instance of it;
--  uses a table of labels, respectively for each entry, when given.
--  @function link
--  @local
--  @param  {string|table} v
--  @return {string|table}
local function link( v, ... )
	local labels = type( ... or nil ) == 'table' and ... or  { ... }
	local function __link( v, label )
		return HF.Link( v:gsub( '#', '' ), HF.trim( label ) or mw.text.split(v, '%s*%(')[1] )
	end
	if type( v ) == 'string' then
		return __link( v, labels[1] )
	elseif type( v ) == 'table' then
		local t = {}
		for key, value in ipairs( v ) do table.insert( t, __link( value, labels[key] )) end
		return t
	else
		return v
	end
end

--- Key / value counter for Lua tables
--
--  Given a table, counts how many values it has.
--  @param {table} t
--  @return {number} counter
local function _count( t )
	local counter = 0
	for key, value in pairs( t ) do
		counter = counter + 1
	end
	return counter
end

--- Returns the localized name
-- @param {string} name
--    (Card) Page with multiple names
-- @param {string} ln
--    short language code to identify translated name
-- @return {string|nil}
--    local name
local function getNameLocal( name, ln )
	local _page = name:gsub( '#', '' )
	local nname_query = mw.smw.getQueryResult{
		HF.Link( _page ),
		('?Name'):format(ln),
		('?%s name=Local'):format( language_list[ln] ),
		limit = 1,
		mainlabel = '-'}
	if #nname_query['results'] == 1 and
	  #nname_query['results'][1]['printouts']['Name'] > 0 and
	  type(nname_query['results'][1]['printouts']['Name']) == 'table' then
		for i,e in ipairs( nname_query['results'][1]['printouts']['Name'] ) do
			if e['Language code']['item'][1] == ln and #e['Text']['item'][1] > 0 then
				return e['Text']['item'][1]
			end
		end
		if #nname_query['results'][1]['printouts']['Local'] == 1 then
			return nname_query['results'][1]['printouts']['Local'][1]
		end
	elseif #nname_query['results'] == 1 and #nname_query['results'][1]['printouts']['Local'] == 1 then
		return nname_query['results'][1]['printouts']['Local'][1]
	end
	return
end

--- Supplies SMW property values for card manifest entries
local function buildSemanticRecord( card_page, id, rarity, ... )
	local rarity_list = data.rarity_list     --  Rarity name table.
	local record = {
		['Main card page'] = card_page,
		['Distribution code'] = id
	}
	if type(rarity) == 'string' and string.match(rarity, ',') then
		record['Rarity'] = mw.text.split(rarity, ',%s*')
	elseif type(rarity) == 'string' and rarity_list[rarity:lower()] then
		record['Rarity'] = rarity_list[rarity:lower()]
	else
		record['Rarity'] = rarity
	end
	local extras = ...
	if extras['nameAlt'] then record['nameAlt'] = extras['nameAlt'] end
	if extras['nameLocalAlt'] then record['nameLocalAlt'] = extras['nameLocalAlt'] end
	if extras['rarityAlt'] then record['rarityAlt'] = extras['rarityAlt'] end
	if extras['Description'] then record['Description'] = extras['Description'] end
	if extras['Qty'] then record['Qty'] = extras['Qty'] end
	if extras['Extra'] then record['Extra'] = extras['Extra'] end
	mw.smw.subobject( record, id )
end

---  Builds the card row
local function getSetListCard( entry, sectionNoAbbr, sectionRarityList, sectionQty, sectionColumn, ln )
	--  Initialize vars:
	local _number, _name, _rarityList, _qty
	local _nameAlt, _nameLocalAlt, _rarityAlt, _typeAlt, _description, _column
	--  General values (from args or section):
	local noAbbr     = sectionNoAbbr or _G['setListData']['flags']['noAbbr']
	local rarityList = sectionRarityList or _G['setListData']['rarity']
	local qty        = (sectionQty or _G['setListData']['flags']['qty']) and (tonumber( sectionQty or _G['setListData']['qty'] ) or 1)
	local column     = sectionColumn or _G['setListData']['col']

	--  Local values:
	--  # Split info:
	local valuesStandard    = mw.text.split( mw.text.split( entry, '//' )[1] , ';')
	local valuesAlternate   = mw.text.split( entry, '//' )[2]

	--  # Deal with standard values:
	if noAbbr then
		_name       = HF.trim( valuesStandard[1] )
		_rarityList = HF.trim( valuesStandard[2] )
		_qty        = HF.trim( valuesStandard[3] )
	else
		_number     = HF.trim( valuesStandard[1] )
		_name       = HF.trim( valuesStandard[2] )
		_rarityList = HF.trim( valuesStandard[3] )
		_qty        = HF.trim( valuesStandard[4] )
	end
	
	--  # Deal with alternate values:
	if valuesAlternate then
		_nameAlt      = valuesAlternate:match(       'name::(.-);')
					 or valuesAlternate:match(       'name::(.+)' )
		_nameLocalAlt = valuesAlternate:match('name%-local::(.-);')
					 or valuesAlternate:match('name%-local::(.+)' )
		_rarityAlt    = valuesAlternate:match(     'rarity::(.-);')
					 or valuesAlternate:match(     'rarity::(.+)' )
		_typeAlt      = valuesAlternate:match(   'category::(.-);')
					 or valuesAlternate:match(   'category::(.+)' )
		_description  = valuesAlternate:match('description::(.-);')
					 or valuesAlternate:match('description::(.+)' )
		_column       = column and
						(valuesAlternate:match(table.concat( { column:lower(), '::(.-);' } )) 
					  or valuesAlternate:match(table.concat( { column:lower(), '::(.+)'  } )))
	end
	
	--  Wraps a name with quotes.
	local function wrapQuotes( name, std )
		if not HF.trim( name ) then
			return '';  --  Return empty string.
		end
		return (std or (ln ~= 'ja' and ln ~= 'zh')) and table.concat( { '"', name, '"' } )
			or table.concat( { '「', name, '」' } )
	end
	
	--  Rarity function:
	--  Receives a string of rarities.
	local function getRarity( s )
		local t = s and mw.text.split( s, ',' ) or {}
		local rarities = {}
		for _, rarity in ipairs( t ) do
			_rarity = HF.trim( rarity:lower():gsub( ' rare$', '' ) )
			if _rarity and rarity_list[_rarity] then
				table.insert( rarities, link( rarity_list[_rarity] ) )
			end
		end
		return table.concat( rarities, '<br />' )
	end

	--  Build table row:
	--  # Initialize:
	local row = mw.html.create( 'tr' )
	--  # Card number:
	if not noAbbr then
		-- HF.Link('Special:SearchByProperty/:Distribution-20code/%s'):format(_number)
		row:tag( 'td' ):wikitext( _number and (_number:match( '?' ) and _number or link( _number )) ):done()
		-- row:tag( 'td' ):wikitext( _number and (_number:match( '?' ) and _number or HF.Link('Special:SearchByProperty/:Distribution-20code/%s', '%s'):format( _number, _number ) ) ):done()
	end
	--  # Card name:
	row:tag( 'td' )
		:wikitext( HF.trim( table.concat( { _nameAlt or wrapQuotes( link( _name, (_name or ''):match( 'Token %(' ) and _name ), true ), _description or '' }, ' ' ) ) )
	:done()
	--  # Card local name:
	if _G['setListData']['flags']['notEnglish'] then
		row:tag( 'td' ):attr( 'lang', ln ):wikitext( _nameLocalAlt or (_name and wrapQuotes( getNameLocal( _name, ln ) ) or nil ) ):done()
	end
	--  # Card rarity:
	row:tag( 'td' ):wikitext( _rarityAlt or getRarity( _rarityList or rarityList ) or nil ):done()
	--  # Card type:
	row:tag( 'td' ):wikitext( _typeAlt or ( _name and getCardType( _name ) ) or nil ):done()
	--  # Card qty:
	if qty then
		row:tag( 'td' ):wikitext( tonumber( _qty ) or qty or 1 ):done()
	end
	--  # Extra column:
	if column then
		row:tag( 'td' ):wikitext( _column ):done()
	end
	row:allDone()

	if mw.title.getCurrentTitle():inNamespace( 122 ) then 
		buildSemanticRecord( _name, _number, _rarityList or rarityList, { ['nameAlt'] = _nameAlt, ['nameLocalAlt'] = _nameLocalAlt, ['rarityAlt'] = _rarityAlt, ['Description'] = _description, ['Qty'] = _qty, ['Extra'] = _column } )
	end

	return tostring( row )
end

--- Designs the card table
--  @param  {string} ln
--  @return {string}
local function getSetList(ln)
--	local sections  = _G['setListData'][1] and mw.text.split( _G['setListData'][1], '!:' ) or _error( 'No list info given!', { ';' } )
	local sections  = _G['setListData'][1] and mw.text.split( _G['setListData'][1], '!:' ) or Error._error{ 'No list info given.', 'Module:Set', 'getSetList', ['default'] = { ';' } }
	local SetListTable = {};    --  Contains list of processed sections.

	--- Builds the section header from section info
	local function getSetListHeader( entry )
		local _header            = entry:match('header::(.-);')
								or entry:match('header::(.+)' )
		local _sectionNoAbbr     = entry:match(  'abbr::(.-);')
								or entry:match(  'abbr::(.+)' )
		local _sectionRarityList = entry:match('rarity::(.-);')
								or entry:match('rarity::(.+)' )
		local _sectionQty        = entry:match(   'qty::(.-);')
								or entry:match(   'qty::(.+)' )
		local _sectionColumn     = entry:match(   'col::(.-);')
								or entry:match(   'col::(.+)' )
		local sectionNoAbbr = HF.trim( _sectionNoAbbr ) and abbr_list[HF.trim( _sectionNoAbbr )] and true
			
		return HF.trim( _header ), sectionNoAbbr, _sectionRarityList, _sectionQty, HF.trim( _sectionColumn )
	end

	---  Wraps rows in an HTML table
	local function wrapTable( header, t, noAbbr, qty, column )
		local noAbbr    = noAbbr or _G['setListData']['flags']['noAbbr']
		local qty       = qty or _G['setListData']['flags']['qty']
		local column    = column or _G['setListData']['flags']['column']
		
		---  Build HTML table
		local HTMLtableHeader   = mw.html.create( 'table' ):attr( 'id', header or 'Top_table' ):addClass( 'fandom-table' ):addClass( 'sortable' ):addClass( 'card-list' )
		local HTMLtableCaption  = header and mw.html.create( 'caption' ):wikitext( header ):addClass( 'text-align: center' ):done()
		local HTMLtableRow      = mw.html.create( 'tr' )
		--  # Card number:
		if not noAbbr then
			HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( 'Card number' ):done()
		end
		--  # Card name:
		HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( _G['setListData']['flags']['notEnglish'] and 'English name' or 'Name' ):done()
		--  # Card local name:
		if _G['setListData']['flags']['notEnglish'] then
			HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( table.concat( { language_list[ln], ' name' } ) ):done()
		end
		--  # Card rarity:
		HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( 'Rarity' ):done()
		--  # Card type:
		HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( 'Category' ):done()
		--  # Card qty:
		if qty then
			HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( 'Qty' ):done()
		end
		--  # Extra column:
		if column then
			HTMLtableRow:tag( 'th' ):attr( 'scope', 'col' ):wikitext( HF.trim( _G['setListData']['col'] ) ):done()
		end
		HTMLtableRow:done();    --  Close the </tr>.

		--  Concat everything:
		local HTMLtable = (header and HTMLtableHeader:node( tostring( HTMLtableCaption ) ) or HTMLtableHeader)
			:node( tostring( HTMLtableRow ) )
			:node( table.concat( t ) )  --  Add the table content (all card rows).
			:allDone();    --  Close table (</table>).

		return tostring( HTMLtable )
	end

	for _, section in ipairs( sections ) do
		local _section
		local sectionSetListTable = {}; --  Contains list of processed card entries.
		local _header, _sectionNoAbbr, _sectionRarityList, _sectionQty;  --  Store section info, applied to all section entries.
		if not HF.trim( section ) then
			--  Empty section; skip.
		else
			--  It's a section.
			local entries = mw.text.split( section, '\n' )
			for index, entry in ipairs( entries ) do
				if not HF.trim( entry ) then
					--  Empty entry; skip.
				elseif index == 1 and entry:match( 'header::' ) then
					--  Contains header info.
					_header, _sectionNoAbbr, _sectionRarityList, _sectionQty, _sectionColumn = getSetListHeader( entry )
				else
					--  Card info.
					table.insert( sectionSetListTable, getSetListCard( entry, _sectionNoAbbr, _sectionRarityList, _sectionQty, _sectionColumn, ln ) )
				end
			end
			--  Process table for each section.
			_section = wrapTable( _header, sectionSetListTable, _sectionNoAbbr, _sectionQty, _sectionColumn )
		end
		table.insert( SetListTable, _section )
	end
	return table.concat( SetListTable, '\n' )
end

--- Table for a card set list
--
--  Creates an HTML table
--  @param  {Frame} frame
--  @param  {table} frame.args Invocation arguments
--  @return {HTMLBuilder} output Wikitext
--  @fixme [[Set_Card_Lists:25th_Anniversary_Ultimate_Kaiba_Set_(OCG-JP)]]
--  @usage  {{Set manifest}}
function S.SetList( frame )
	local args         = getArgs( frame, { trim = true, removeBlanks = true, parentOnly = true } )
	local PAGENAME  = mw.title.getCurrentTitle().text        --  {{PAGENAME}}
	local NAMESPACE = mw.title.getCurrentTitle().nsText      --  {{NAMESPACE}}
	local PAGENAMEPARTS = mw.text.split( PAGENAME, '%s*%(' ) --  Unqualified page name
	_G['setListData'][1] = args[1]
	_G['setListData']['rarity'] = args['rarity']
	_G['setListData']['qty'] = args['qty']
	_G['setListData']['col'] = args['col']

	--  Handles region/language info and flags
--	local rg       = args['region'] and args['region']:lower() or _error( 'A «region» is always needed!', 'en' )
	local rg       = args['region'] and args['region']:lower() or Error._error{ 'A «region» must be declared. A default value of "en" was used.', 'Template:Set manifest', 'region', ['default'] = 'en' }
	local region   = region_list[rg]
	local ln       = ln_list[rg]
	_G['setListData']['flags']    = {
		['qty'] = args['qty'] and true,
		['noAbbr']     = args['abbr'] and abbr_list[args['abbr']:lower()] and true,
		['column']     = args['col'] and true,
		['notEnglish'] = ln ~= 'en',
		['italics']    = ((ln == 'ja') or (ln == 'zh') or (ln == 'ko')) and 'normal' or 'italic'
	}

	--  Set List Names
	local _setName = args['set'] or HF.trim( PAGENAMEPARTS[3] ) and table.concat( PAGENAMEPARTS, ' (', 1, 2 ) or PAGENAMEPARTS[1]
	local _setNameLocal = _G['setListData']['flags']['notEnglish'] and getNameLocal( _setName, ln )
	_G['setListData']['setName'] = _setName
	_G['setListData']['region'] = region

	--  HTML header
	local function getHeader( setName, setNameLocal )
		local header = mw.html.create( 'div' ):css( 'text-align', 'center' )
			:tag( 'span' ):css('font-size','120%'):css('font-weight','bold'):css('font-style','italic')
				:wikitext( link( setName, (setName:match( '%(2011%)' ) or setName:match( '%(series%)' )) and setName ) )
			:done()
		if HF.trim( setNameLocal ) then
			header:tag( 'br' ):done()
			:tag( 'span' ):css('font-weight','bold'):css('font-style',_G['setListData']['flags']['italics']):wikitext( setNameLocal ):done()
		end
		header:tag( 'br' ):done()
			:wikitext( region )
		:allDone()
		mw.smw.set{ ['Set'] = _setName, ['Region'] = region }
		return header
	end

	local setList   = getSetList(ln)

	local function tracking( frameArgs )
		local _parameters = {
			1,
			['region']  = 'region',
			['set']     = 'set',
			['abbr']    = 'abbr',
			['rarity']  = 'rarity',
			['qty']     = 'qty',
			['col']     = 'col'
		}
		for key, value in pairs( frameArgs ) do
		   if not( _parameters[key] ) or not( HF.trim( value ) ) then
			   --  There are parameters not being used or used empty.
--			   return _error( 'Instance of unsupported or empty parameters!' , nil, '((Set list)) transclusion with parameters to be checked' )
			   return Error._error{ 'Unsupported, deprecated, or empty parameters used in {{T|Set manifest}}.', 'Template:Set manifest', ['default'] = nil, ['category'] = 'Transclusion with parameters to be checked' }
			end
		end
		return ''
	end
	local track     = tracking( frame:getParent().args )

	--  Output
	local output = mw.html.create( nil )
	if mw.title.getCurrentTitle():inNamespace( 0 ) then
		output:node(setList)
	else
		if #_G.errors > 0 then 
			for _,error_message in ipairs( _G.errors ) do
				output:node(error_message)
			end
		end
		local header    = getHeader( _setName, _setNameLocal )
		output:node(header)
		output:wikitext(HF.Category( region .. ' ' .. NAMESPACE ))
		output:node(setList)
	end
	return output
end

--- Table for displaying sets that include the current card page
--  @param  {Frame} frame
--  @return {HTMLBuilder} output Wikitext
--  @usage {{Card table set}}
function S.CardTableSet (frame)
end

--- Header for displaying sets that include the current card page
--  @param  {Frame} frame
--  @return {HTMLBuilder} output Wikitext
--  @usage {{Card table set/header}}
function S.CardTableSetHeader (frame)
end

--- Footer for displaying sets that include the current card page
--  @param  {Frame} frame
--  @return {HTMLBuilder} output Wikitext
--  @usage {{Card table set/footer}}
function S.CardTableSetFooter (frame)
end

--- Formats the page's title with italics if appropriate
--  @param  {Frame} frame
--  @return {HTMLBuilder} output Wikitext
--  @usage {{#invoke:Set|infoboxSet__italicTitle}}
function S.infoboxSet__italicTitle (frame)
	local args = getArgs( frame, { trim = true, removeBlanks = true } )
	local italic_title
	local function define(name, value)
		value = value == true and 1
		if mw.ext.VariablesLua then
			VariablesLua.vardefine( name, value )
		else
			frame:callParserFunction( '#vardefine', name, value )
		end
	end
	local function defineecho(name, value)
		value = value == true and 1
		if mw.ext.VariablesLua then
			VariablesLua.vardefineecho( name, value )
		else
			frame:callParserFunction( '#vardefineecho', name, value )
		end
	end
	args['italic_title'] = args['italic_title'] or true
	args['italic_title'] = type(args['italic_title']) == 'string' and string.lower(args['italic_title']) or args['italic_title']
	if yesno(args['italic_title'], true) then defineecho('$italicize_title', true) end
	if yesno(args['italic_title'], true) and args['italic_title'] then
		frame:expandTemplate{ title = 'Italic title', args = { args['italic_title'] } }
	elseif yesno(args['italic_title'], true) then
		local pagename = HF.NP(mw.title.getCurrentTitle().text)
		local unqualified, qualifier = pagename:match('(.+)%s%((.+)%)')
		unqualified = unqualified or pagename
		define('$pagename', pagename)
		qualifier = qualifier and HF.trim(qualifier)
		qualifier = (qualifier and qualifier:match('.*-(.*)') == 'BP') and italicize(qualifier:match('(.*)%-BP')) .. "-BP" or qualifier
		local _qualifiers = { ['OCG'] = true, ['TCG'] = true, ['BAM'] = true, ['G5'] = true, ['Duel Transer'] = true }
		qualifier = (qualifier and _qualifiers[qualifier]) and italicize(qualifier) or qualifier
		define('$dabtext', qualifier)
		define('$pagename_nodab', unqualified)
		local base = unqualified:gsub(' promotional',''):gsub(' participation',''):gsub(' prize','')
		local specialty = unqualified:match('promotional') or unqualified:match('participation') or unqualified:match('prize')
		define('$pagename_left', italicize(base))
		define('$pagename_right', specialty)

		if pagename == table.concat( { args['name'], qualifier }, ' ' ):gsub("''",'') then
			italic_title = table.concat( { args['name'], qualifier }, ' ' )
		elseif pagename == table.concat( { args['name'], specialty, qualifier }, ' ' ):gsub("''",'') then
			italic_title = table.concat( { args['name'], specialty, qualifier }, ' ' )
		else
			italic_title = table.concat( { italicize(base), specialty, qualifier }, ' ' )
		end
		define( '$italic_title', italic_title )
	end
	if italic_title and italic_title:match("''") then
		frame:expandTemplate{ title = 'Italic title', args = { italic_title, ['t'] = 1 } }
	end
end

---
function S.infoboxSet__medium (frame)
	--[==[
	]==]--
end

--- Shows prefix codes
--  @usage {{#invoke:Set|infoboxSet__prefix}}
--  @param {Frame} frame
--  @param[opt] {table} frame.args
--  @return {HTMLBuilder|nil}
function S.infoboxSet__prefix (frame)
	return S._Prefixes (args)
end

--- Shows prefix codes
--  @param[opt] {table} args
--  @return {HTMLBuilder|nil}
function S._Prefixes (args)
	local L = require('Module:List')
	local HF = require('Module:HF')
	local _out_list = {}
	local query = mw.smw.ask{
		HF.Link('-Has subobject::%s'):format( HF.Link( mw.title.getCurrentTitle().text ) ),
		HF.Category('Card Set releases'),
		'?=release_node#',
		'?Full prefix',
		'?Prefix #',
		'?Set manifest #' }
	if type(query) == 'table' and #query > 0 then
		for _, entry_table in ipairs(query) do
			if S._ReleasePrefixEntry( entry_table ) then
				table.insert(_out_list, S._ReleasePrefixEntry( entry_table ) )
			end
		end
		return L._unbulleted( _out_list )
	end
	return
end

--- Formats a prefix list entry
--  @param {Frame} frame
--  @return {HTMLBuilder|nil}
--  @usage {{Release prefix entry}}
function S.ReleasePrefixEntry (frame)
	local args = getArgs( frame, { trim = true, removeBlanks = true } )
	return S._ReleasePrefixEntry (args)
end

--- Formats a prefix list entry
--  @param {table} args
--  @return {HTMLBuilder|nil}
function S._ReleasePrefixEntry (args)
	if args['Full prefix'] or args['Prefix'] then
		return ( '%s: %s' ):format( 
			HF.Link( 'Special:Browse/%s', '%s' ):format(
				args['release_node'],
				args['release_node']:match('.*%#(.*)$'):gsub('_',' ')
			), 
			args['Set manifest']
				and HF.Link( '%s', '%s' ):format(
					args['Set manifest'],
					args['Full prefix'] or args['Prefix']
				)
				or args['Full prefix'] or args['Prefix']
		)
	end
	return
end

---
function S.infoboxSet__cover_card (frame)
	--[==[
	]==]--
end

---
function S.infoboxSet__databaseID (frame)
	--[==[
	]==]--
end

--- Adds a link to navigate to the previous page
--  @usage {{Infobox set| prev = }}
function S.infoboxSet__prev (frame)
	local args = getArgs(frame)
	if args['prev'] and args['prev']:match('%[%[') then
		return args['prev']
	elseif args['prev'] then
		local unqualified = args['prev']:match('(.+)%s%(.+%)') or args['prev']
		return HF.Link( args['prev'], italicize( unqualified:gsub(' promotional',''):gsub(' participation',''):gsub(' prize','') ) )
	end
end

--- Adds navigation context for the current page
--  @usage {{Infobox set| curr = }}
function S.infoboxSet__curr (frame)
	local args = getArgs(frame)
	if args['curr'] and (args['curr']:match("'''") or args['curr']:match('^%s*%*')) then
		return args['curr']
	elseif args['curr'] then
		return "'''" .. args['curr'] .. "'''"
	else
		return args['en_name'] and "'''" .. args['en_name'] .. "'''" or mw.text.split( HF.NP(mw.title.getCurrentTitle().text), '%(' )[1]
	end
end

--- Adds a link to navigate to the next page
--  @param {Frame} frame
--  @param {table} frame.args.next
--  @return {string}
--  @usage {{Infobox set| next = }}
function S.infoboxSet__next (frame)
	local args = getArgs(frame)
	if args['next'] and args['next']:match('%[%[') then
		return args['next']
	elseif args['next'] then
		local unqualified = args['next']:match('(.+)%s%(.+%)') or args['next']
		return HF.Link( args['next'], italicize( unqualified:gsub(' promotional',''):gsub(' participation',''):gsub(' prize','') ) )
	end
end

return S
Return to Module:Set.