Module:Tt/Draft

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

local p = {}
local lib = require('Module:Feature')

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {
		parentFirst = true,
		wrappers = { 'Template:Tt', 'Template:Tt/Draft' }
	})
	args[1] = args[1] or '<i>Missing text</i>'

	-- Return plain text if no tooltip given
	if lib.isEmpty(args[2]) then
		return args[1]
	end
	
    return p._main(args, frame)
end

function p._main(args, options, frame)
	local text = args[1]
	local tooltip = mw.text.decode(args[2], true)
	local header = lib.isNotEmpty(args.header) and mw.text.decode(args.header, true) or nil
	local class = lib.isNotEmpty(args.class) and args.class .. ' custom-tt-wrapper toggle-tooltip' or 'custom-tt-wrapper toggle-tooltip'
	local out = mw.html.create()
	
	--check for link format
	if lib.isNotEmpty(args.link) then
		local link = tostring(args.link)
		args.link = nil
		local base = tostring(p._main(args, {notoggle = true})) -- tt on label for hover as otherwise the <a> default title takes priority
		local linkTo = '[[' .. lib.ternary(link == '1', text, link) .. '|' .. base .. ']]'
		return p._main({ linkTo, args[2], header = args.header, class = args.class }, {nohover = true}, frame) -- external tt for collapsible for the separated clickable
	end
	
	-- preprocess tooltip text
	if lib.isNotEmpty(tooltip) then
		tooltip = frame:preprocess(tooltip)
	end
	
	-- Build toggle tooltip
	local toggle = out:tag('span'):addClass(class)
	
	-- Optional toggleable text but plain text must be there for gadget
	if not options or not options.notoggle then
		toggle:addClass(' mw-collapsible mw-made-collapsible mw-collapsed hnaw-collapsible')
		-- move tooltip to detached icon when text is clickable
		if lib.isNotEmpty(args.link) or (text:find('%[%[') and text:find('%]%]')) then
			toggle:wikitext(text, '&thinsp;')
			-- infoicon with semi-hidden text for screen readers
			text = '<span class="screen-reader-text">Tooltip for ' .. text:gsub('%[%[?[^|%]]+|', ''):gsub('%[', ''):gsub('%]', '') .. '</span>&#9432;'
		end
		
		toggle
			:tag('span')
				:addClass('mw-collapsible-toggle mw-collapsible-toggle-default mw-collapsible-toggle-collapsed custom-tt toggle-tooltip')
				:wikitext(text)
				:done()
		local collapsibleContent = toggle
			:tag('span')
				:addClass('mw-collapsible-content custom-tt')
				:css{ display = 'none' }
		if header then
			collapsibleContent
				:tag('span')
					:addClass('tt-header')
					:wikitext(header)
					:done()
		end
		collapsibleContent:wikitext(tooltip)
		collapsibleContent:done()
	else
		toggle:wikitext(text)
	end
	toggle:allDone()
	
	return out
end

--for modules that need the plain text input
function p.CleanTT(tx)
	local full = tx
	local result = tx
	for display in string.gmatch(full,
		'<span[^>]*class="[^"]*custom%-tt%-wrapper[^"]*"[^>]*>' ..
		'<span[^>]*class="[^"]*mw%-collapsible%-toggle[^"]*"[^>]*>(.-)</span>' ..
		'<span[^>]*class="[^"]*mw%-collapsible%-content[^"]*"[^>]*>.-</span></span>'
	) do
		local escDisplay = display:gsub("([^%w])", "%%%1")
		local search_str =
			'<span[^>]*class="[^"]*custom%-tt%-wrapper[^"]*"[^>]*>' ..
			'<span[^>]*class="[^"]*mw%-collapsible%-toggle[^"]*"[^>]*>' .. escDisplay .. '</span>' ..
			'<span[^>]*class="[^"]*mw%-collapsible%-content[^"]*"[^>]*>.-</span></span>'
		result = result:gsub(search_str, display)
	end
	return result
end

return p