Module:Accessory

Documentation for this module may be created at Module:Accessory/doc

-- Module:Accessory
-- Builds the Accessory infobox (remotes, stands, option cards, etc.)

local p = {}

local function trim(s)
	if s == nil then return nil end
	s = tostring(s)
	s = s:gsub('^%s+', ''):gsub('%s+$', '')
	if s == '' then return nil end
	return s
end

local function css(node, cssText)
	if cssText and cssText ~= '' then
		node:cssText(cssText)
	end
	return node
end

local function addSectionRow(container, title)
	local section = container:tag('div')
	section:addClass('infobox-section-header')
	css(section, 'grid-column: 1 / -1; text-align:center; padding:0.5em; font-weight:bold;')
	section:wikitext(title)
end

local function addRow(container, label, valueHtmlOrWikitext, isRawHtml)
	local labelDiv = container:tag('div')
	labelDiv:addClass('infobox-label')
	css(labelDiv, 'padding:0.2em 0.4em; font-weight:bold; text-align:left;')
	labelDiv:wikitext(label)

	local valueDiv = container:tag('div')
	valueDiv:addClass('infobox-value')
	css(valueDiv, 'padding:0.2em 0.4em;')

	if isRawHtml then
		valueDiv:node(mw.html.create('span'):wikitext(valueHtmlOrWikitext))
	else
		valueDiv:wikitext(valueHtmlOrWikitext)
	end
end

local function addFullRow(container, valueHtmlOrWikitext, cssText, isRawHtml, extraClass)
	local fullDiv = container:tag('div')
	css(fullDiv, 'grid-column: 1 / -1; ' .. (cssText or ''))
	if extraClass then
		fullDiv:addClass(extraClass)
	end

	if isRawHtml then
		fullDiv:wikitext(valueHtmlOrWikitext)
	else
		fullDiv:wikitext(valueHtmlOrWikitext)
	end
end

function p.infobox(frame)
	local parent = frame:getParent()
	local args = parent and parent.args or frame.args

	local title = mw.title.getCurrentTitle()
	local pageName = title.text
	local fullPageName = title.fullText
	local pageId = title.id or 0

	-- Core fields
	local brand = trim(args.brand)
	local model_code = trim(args.model_code)
	local accessory_type = trim(args.accessory_type)
	local description = trim(args.description)
	local image_main = trim(args.image_main)
	
	-- Option card specific
	local card_signals = trim(args.card_signals)
	
	-- Media specific
	local media_format = trim(args.media_format)

	-- Load stylesheet
	local styleTag = frame:extensionTag('templatestyles', '', {src = 'Template:Infobox styles.css'})

	local container = mw.html.create('div')
	container:addClass('infobox')
	container:addClass('infobox-accessory')
	css(container, 'float:right; clear:right; margin:0 0 1em 1em; width:22em; font-size:88%; line-height:1.5em; display:grid; grid-template-columns:auto 1fr; gap:3px; padding:3px;')

	-- Title row
	addFullRow(
		container,
		(brand or '') .. ' ' .. (model_code or ''),
		'text-align:center; font-size:125%; font-weight:bold; padding:0.5em;',
		false,
		'infobox-title'
	)

	if image_main then
		local file = image_main:gsub('^File:', '')
		addFullRow(
			container,
			string.format('[[File:%s|frameless|300px]]', file),
			'text-align:center; padding:0;',
			false,
			'infobox-image'
		)
	end

	addSectionRow(container, 'Overview')

	-- Brand row using #formredlink
	if brand then
		local brandWikitext = string.format(
			'{{#formredlink: target=%s |form=Manufacturer |existing page link text=%s }}',
			brand, brand
		)
		local brandHtml = frame:preprocess(brandWikitext)
		addRow(container, 'Brand', brandHtml, true)
	end

	if model_code then
		addRow(container, 'Model', model_code, false)
	end

	if accessory_type then
		addRow(container, 'Type', accessory_type, false)
	end

	if description then
		addRow(container, 'Description', description, false)
	end

	-- Type-specific fields
	if accessory_type == 'Option card' and card_signals then
		addRow(container, 'Signals', card_signals, false)
	end

	if accessory_type == 'Media' and media_format then
		addRow(container, 'Format', media_format, false)
	end

	-- ECID row
	local ecidWikitext = string.format('[{{fullurl:%s|curid=%d}} EC%d]', pageName, pageId, pageId)
	addRow(container, 'ECID', frame:preprocess(ecidWikitext), true)

	-- Compatible CRT models section
	local crtCountWikitext =
		'{{#ask:\n' ..
		' [[Category:CRT models]]\n' ..
		' [[Has accessory::' .. fullPageName .. ']]\n' ..
		' |format=count\n' ..
		'}}'
	local crtCountFromForward = frame:preprocess(crtCountWikitext)
	
	-- Also check reverse links (Has related CRT model set on this accessory page)
	local crtReverseCountWikitext =
		'{{#ask:\n' ..
		' [[Category:CRT models]]\n' ..
		' [[Has related accessory::' .. fullPageName .. ']]\n' ..
		' |format=count\n' ..
		'}}'
	local crtCountFromReverse = frame:preprocess(crtReverseCountWikitext)
	
	-- Query for CRTs that have this accessory via forward link (remote_control field)
	-- OR via Has related CRT model property set on this accessory
	local hasCRTs = (tonumber(trim(crtCountFromForward)) or 0) > 0
	
	-- Also query CRTs listed in the accessory's crt_models field
	local crt_models = trim(args.crt_models)
	local hasCRTsFromField = crt_models and crt_models ~= ''
	
	if hasCRTs or hasCRTsFromField then
		addSectionRow(container, 'Compatible CRT Models')
		
		local crtDiv = container:tag('div')
		css(crtDiv, 'grid-column: 1 / -1; padding:0.2em 0.4em;')
		
		-- Query CRTs that reference this accessory via Has accessory property
		-- (This handles forward references like remote_control field)
		local crtQueryWikitext =
			'{{#ask:\n' ..
			' [[Category:CRT models]]\n' ..
			' [[Has accessory::' .. fullPageName .. ']]\n' ..
			' |?Has image#70px;x70px=Photo\n' ..
			' |?Has model code=Model\n' ..
			' |?Has screen size inches=Size\n' ..
			' |format=table\n' ..
			' |class=wikitable\n' ..
			' |mainlabel=CRT model\n' ..
			' |link=subject\n' ..
			'}}'
		
		-- If we have CRTs from the crt_models field, also query those
		if hasCRTsFromField then
			-- Parse crt_models and create OR conditions
			local crtConditions = {}
			for crt in crt_models:gmatch('[^,]+') do
				local c = trim(crt)
				if c then
					table.insert(crtConditions, '[[' .. c .. ']]')
				end
			end
			
			if #crtConditions > 0 then
				crtQueryWikitext =
					'{{#ask:\n' ..
					' [[Category:CRT models]]\n' ..
					' <q>' .. table.concat(crtConditions, ' OR ') .. '</q>\n' ..
					' |?Has image#70px;x70px=Photo\n' ..
					' |?Has model code=Model\n' ..
					' |?Has screen size inches=Size\n' ..
					' |format=table\n' ..
					' |class=wikitable\n' ..
					' |mainlabel=CRT model\n' ..
					' |link=subject\n' ..
					'}}'
			end
		end
		
		local crtHtml = frame:preprocess(crtQueryWikitext)
		crtDiv:wikitext(crtHtml)
	end

	-- Compatible AV devices section
	local av_devices = trim(args.av_devices)
	if av_devices and av_devices ~= '' then
		addSectionRow(container, 'Compatible AV Devices')
		
		local avDiv = container:tag('div')
		css(avDiv, 'grid-column: 1 / -1; padding:0.2em 0.4em;')
		
		-- Parse av_devices and create OR conditions
		local avConditions = {}
		for av in av_devices:gmatch('[^,]+') do
			local a = trim(av)
			if a then
				table.insert(avConditions, '[[' .. a .. ']]')
			end
		end
		
		if #avConditions > 0 then
			local avQueryWikitext =
				'{{#ask:\n' ..
				' [[Category:AV devices]]\n' ..
				' <q>' .. table.concat(avConditions, ' OR ') .. '</q>\n' ..
				' |?Has image#70px;x70px=Photo\n' ..
				' |?Has model code=Model\n' ..
				' |?Has device type=Type\n' ..
				' |format=table\n' ..
				' |class=wikitable\n' ..
				' |mainlabel=AV device\n' ..
				' |link=subject\n' ..
				'}}'
			local avHtml = frame:preprocess(avQueryWikitext)
			avDiv:wikitext(avHtml)
		end
	end

	-- Documents section
	addSectionRow(container, 'Documents')
	
	-- Build upload link
	local timestamp = os.time()
	math.randomseed(timestamp + pageId)
	local random = math.random(1000, 9999)
	local target = "Document:" .. timestamp .. "-" .. random
	
	local uploadUrl = mw.uri.fullUrl(
		"Special:FormEdit",
		{
			form = "Document",
			target = target
		}
	)
	
	local docsDiv = container:tag('div')
	css(docsDiv, 'grid-column: 1 / -1; padding:0.2em 0.4em; text-align:center;')
	docsDiv:wikitext('[' .. tostring(uploadUrl) .. ' <span class="infobox-button infobox-button-secondary">Add a document</span>]')

	-- Archival Links section: Query for link subobjects and display by type
	local linksQueryWikitext =
		'{{#ask:\n' ..
		' [[Accessory::' .. fullPageName .. ']]\n' ..
		' |?Model link type\n' ..
		' |?Model link source\n' ..
		' |?Model link URL\n' ..
		' |format=broadtable\n' ..
		' |headers=hide\n' ..
		' |link=none\n' ..
		'}}'
	local linksResult = frame:preprocess(linksQueryWikitext)
	
	-- Parse links and organize by type
	local linksByType = {
		Manufacturer = {},
		Retailer = {},
		Database = {}
	}
	local hasLinks = false
	
	if linksResult then
		for rowContent in linksResult:gmatch('<tr[^>]*>(.-)</tr>') do
			local cells = {}
			for cellContent in rowContent:gmatch('<td[^>]*>(.-)</td>') do
				local cleanContent = cellContent:gsub('<[^>]+>', '')
				table.insert(cells, trim(cleanContent))
			end
			
			-- cells[1] = page/subobject, cells[2] = type, cells[3] = source, cells[4] = URL
			if #cells >= 4 then
				local linkType = cells[2]
				local linkSource = cells[3]
				local linkUrl = cells[4]
				
				if linkType and linkSource and linkUrl and linkUrl ~= '' then
					if linksByType[linkType] then
						table.insert(linksByType[linkType], {source = linkSource, url = linkUrl})
						hasLinks = true
					end
				end
			end
		end
	end
	
	if hasLinks then
		addSectionRow(container, 'Archival Links')
		
		local typeOrder = {'Database', 'Manufacturer', 'Retailer'}
		for _, linkType in ipairs(typeOrder) do
			if #linksByType[linkType] > 0 then
				local linksHtml = {}
				for _, link in ipairs(linksByType[linkType]) do
					table.insert(linksHtml, '[' .. link.url .. ' ' .. link.source .. ']')
				end
				addRow(container, linkType, table.concat(linksHtml, '<br>'), true)
			end
		end
	end

	-- Contribute section
	addSectionRow(container, 'Contribute')
	
	local editUrl = mw.uri.fullUrl(
		"Special:FormStart",
		{
			form = "Accessory",
			page_name = pageName
		}
	)
	
	local editDiv = container:tag('div')
	css(editDiv, 'grid-column: 1 / -1; padding:0.2em 0.4em; text-align:center;')
	editDiv:wikitext('[' .. tostring(editUrl) .. ' <span class="infobox-button infobox-button-primary">Edit this data</span>]')

	return styleTag .. tostring(container)
end

return p