View source for Module:Definitions

-- Module:Definitions
-- Core resolver + renderer for {{def|Domain|Key}} (Definitions v1).
--
-- Data source (static):
--   Module:Definitions/Definitions.json
--
-- Notes:
-- - Domains + keys are discovered from JSON (no hardcoded domain lists).
-- - CSS namespace: ONLY "sv-def" (plus sv-def--* modifiers).
-- - Output classes: sv-def, sv-def-icon, sv-def-icon-img, sv-def-text.
-- - Tooltip/link behavior is handled by Universal Popups (Common.js).

local p = {}

local DATA_TITLE = "Module:Definitions/Definitions.json"

-- =============================================================================
-- Helpers
-- =============================================================================

local function trim(s)
	if type(s) ~= "string" then return "" end
	return mw.text.trim(s)
end

local function lc(s)
	return string.lower(tostring(s or ""))
end

local function truthy(v)
	v = lc(mw.text.trim(tostring(v or "")))
	return v == "1" or v == "true" or v == "yes" or v == "y"
end

local function enc_attr(s)
	return mw.text.encode(tostring(s or ""), '"<>&')
end

local function humanize(key)
	key = tostring(key or "")
	key = key:gsub("([a-z0-9])([A-Z])", "%1 %2")
	key = key:gsub("([A-Z]+)([A-Z][a-z])", "%1 %2")
	key = key:gsub("%s+", " ")
	return mw.text.trim(key)
end

local function find_ci(t, key)
	if type(t) ~= "table" then return nil end
	if t[key] ~= nil then return t[key] end
	local want = lc(key)
	for k, v in pairs(t) do
		if lc(k) == want then return v end
	end
	return nil
end

-- =============================================================================
-- DB load (cached)
-- =============================================================================

local DB = nil

local function load_db()
	if DB ~= nil then return DB end

	local title = mw.title.new(DATA_TITLE)
	if not title then
		DB = {}
		return DB
	end

	local raw = title:getContent()
	if type(raw) ~= "string" or raw == "" then
		DB = {}
		return DB
	end

	local ok, obj = pcall(mw.text.jsonDecode, raw)
	if not ok or type(obj) ~= "table" then
		DB = {}
		return DB
	end

	DB = obj
	return DB
end

-- =============================================================================
-- Domain + record resolution (dynamic)
-- =============================================================================

local function norm_domain(db, domain)
	domain = trim(domain)
	if domain == "" then return nil end

	-- Exact match first
	if type(db[domain]) == "table" then
		return domain
	end

	-- Case-insensitive match across top-level keys that are tables
	local want = lc(domain)
	for k, v in pairs(db) do
		if type(v) == "table" and lc(k) == want then
			return k
		end
	end

	return nil
end

local function get_record(db, domain, key)
	local dom = db[domain]
	if type(dom) ~= "table" then return nil end
	return find_ci(dom, key)
end

-- =============================================================================
-- Icon rendering
-- - Blank icon: render nothing
-- - Missing file: render "?" badge (no redlink image)
-- =============================================================================

local function icon_html(icon)
	icon = trim(icon)

	if icon == "" then
		return ""
	end

	local fileTitle = icon
	if not fileTitle:match("^[Ff]ile:") then
		fileTitle = "File:" .. fileTitle
	end

	local t = mw.title.new(fileTitle)
	if not t or not t.exists then
		return '<span class="sv-def-icon sv-def-icon--missing" aria-hidden="true">?</span>'
	end

	return '<span class="sv-def-icon-img">[[' .. fileTitle .. '|14px|link=]]</span>'
end

-- =============================================================================
-- Render
-- =============================================================================

local function render(domain, key, opts)
	opts = opts or {}
	local noicon = truthy(opts.noicon)
	local pill   = truthy(opts.pill)
	local fill   = truthy(opts.fill)

	local db = load_db()
	domain = norm_domain(db, domain)
	key = trim(key)

	if not domain or key == "" then
		return '<span class="sv-def sv-def--error">?</span>'
	end

	local rec = get_record(db, domain, key)

	local name, defn, icon, link = "", "", "", ""
	if type(rec) == "table" then
		name = trim(rec.Name)
		defn = trim(rec.Definition)
		icon = trim(rec.Icon)
		link = trim(rec.Link)
	end

	if name == "" then
		name = humanize(key)
	end

	local d_lc = lc(domain)

	-- Missing record: visible hint, no tooltip/link attributes.
	if rec == nil then
		local miss_icon = noicon and "" or '<span class="sv-def-icon sv-def-icon--missing" aria-hidden="true">?</span>'
		return
			'<span class="sv-def sv-def--missing' ..
				(pill and ' sv-def--pill' or '') ..
				(fill and ' sv-def--fill' or '') ..
				' sv-def--' .. enc_attr(d_lc) .. '"' ..
				' data-sv-def-domain="' .. enc_attr(domain) .. '"' ..
				' data-sv-def-key="' .. enc_attr(key) .. '"' ..
				(pill and ' data-sv-def-pill="1"' or '') ..
				(fill and ' data-sv-def-fill="1"' or '') ..
			'>' ..
				miss_icon ..
				'<span class="sv-def-text">' .. mw.text.nowiki(name) .. '</span>' ..
			'</span>'
	end

	local classes = 'sv-def sv-def--' .. enc_attr(d_lc)
	if noicon then classes = classes .. ' sv-def--noicon' end
	if pill then classes = classes .. ' sv-def--pill' end
	if fill then classes = classes .. ' sv-def--fill' end

	local attrs = {
		'class="' .. classes .. '"',
		'data-sv-def-domain="' .. enc_attr(domain) .. '"',
		'data-sv-def-key="' .. enc_attr(key) .. '"',
	}

	if pill then attrs[#attrs + 1] = 'data-sv-def-pill="1"' end
	if fill then attrs[#attrs + 1] = 'data-sv-def-fill="1"' end

	-- Only include tooltip/link attributes when populated.
	if defn ~= "" then
		attrs[#attrs + 1] = 'data-sv-def-tip="' .. enc_attr(defn) .. '"'
		-- Interactive definitions are focusable for consistent UX.
		attrs[#attrs + 1] = 'tabindex="0"'
	end
	if link ~= "" then
		attrs[#attrs + 1] = 'data-sv-def-link="' .. enc_attr(link) .. '"'
	end

	local ico = noicon and "" or icon_html(icon)

	return
		'<span ' .. table.concat(attrs, " ") .. '>' ..
			ico ..
			'<span class="sv-def-text">' .. mw.text.nowiki(name) .. '</span>' ..
		'</span>'
end

-- =============================================================================
-- Public API
-- =============================================================================

function p.def(frame)
	local a = frame.args or {}
	local domain = a[1] or a.Domain or a.domain
	local key    = a[2] or a.Key or a.key
	local noicon = a.noicon or a.NoIcon or a[3]
	local pill   = a.pill or a.Pill
	local fill   = a.fill or a.Fill
	return render(domain, key, { noicon = noicon, pill = pill, fill = fill })
end

function p.render(domain, key, opts)
	return render(domain, key, opts)
end

return p