Module:Archives

This is an old revision of this page, as edited by Izno (talk | contribs) at 06:14, 17 August 2021 (swap to i18n for some). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
p = {}

local cfg = mw.loadData('Module:Archives/config')

local function is_filled(var)
	return var and var ~= ''
end

-- simple helper for simple cases
local function var_or_default(var, default)
	if is_filled(var) then
		return var
	else
		return default
	end
end

local function wikilink(link, display)
	if display then
		return '[[' .. link .. '|' .. display .. ']]'
	else
		return '[[' .. link .. ']]'
	end
end

local function talk_other(demospace, talk)
	if is_filled(demospace) then return demospace end
	
	if mw.title.getCurrentTitle().isTalkPage then return talk end
	
	return nil -- just return nil rather than 'other' since we have no need
end


local function add_image(image)
	if image.image and image.image == 'none' then return nil end

	return mw.html.create('div'):addClass('archives-image'):wikitext(
		require('Module:InfoboxImage/sandbox')._InfoboxImage({
			[cfg.img_mod_arg.image] = var_or_default(image.image, cfg.image),
			[cfg.img_mod_arg.alt] = var_or_default(image.alt, 'none'),
			[cfg.img_mod_arg.link] = var_or_default(image.link, 'none'),
			[cfg.img_mod_arg.size] = var_or_default(image.size, nil),
			[cfg.img_mod_arg.sizedefault] = cfg.image_size
		})
	)
end

local function archive_list()
	
end

local function make_title()

end

local function search_box(frame, is_banner, root, search)

	if search.search and search.search == 'no' then return nil end
	
	local prefix = ''
	if is_filled(search.prefix) then
		prefix = search.prefix
	-- this double-check elseif may move out to code-proper
	elseif is_filled(root) then
		prefix = root
	else
		prefix = mw.title.getCurrentTitle().prefixedText .. '/'
	end
	
	-- break
	local sbreak
	if search.sbreak and (search.sbreak == 'yes' or search.sbreak == 'no') then
		sbreak = search.sbreak
	end
	-- set sbreak's default
	if not sbreak then
		if is_banner then
			sbreak = 'no'
		else
			sbreak = 'yes'
		end
	end
	
	-- width
	local width = ''
	if not is_banner then
		width = var_or_default(search.width, cfg.search_width)
	end
	
	-- label
	local label = var_or_default(search.label, cfg.search_label)
	
	local inputbox_options = {
		['bgcolor'] = 'transparent',
		['type'] = 'fulltext',
		['prefix'] = prefix,
		['break'] = sbreak,
		['width'] = width,
		['searchbuttonlabel'] = label
	}
	
	local inputbox_content = {}
	for k, v in pairs(inputbox_options) do
		table.insert(inputbox_content, k .. '=' .. v)
	end

	return mw.html.create('div'):addClass('archives-search'):wikitext(frame:extensionTag{
		name = 'inputbox',
		content = table.concat(inputbox_content, '\n')
	})
end

local function note_auto(frame, auto)
	if not is_filled(auto.age) and not is_filled(auto.target) then return nil end
	
	local age = var_or_default(auto.age, nil)
	local target = var_or_default(auto.target, nil)
	
	local target_text = ''
	if target then
		target_text = mw.ustring.format(
			cfg.has_archives,
			frame:callParserFunction( '#rel2abs', target ),
			age and ' ' or ''
		)
	end
	local age_text = ''
	if age then
		local units = var_or_default(auto.units, cfg.units)
		-- there's probably a friendlier l10n way to do this check on units...
		-- TODO make it friendlier. maybe split it to a separate function?
		-- (borrowed from Module:String.endswith in the meantime)
		if age ~= '1' and mw.ustring.sub(units, -1, -1) ~= 's' then
			units = units .. 's'
		end
		
		-- TODO localizable
		local age_with_units = age .. ' ' .. units
		
		local has_bot = is_filled(auto.bot)
		local has_minthreadsleft = is_filled(auto.minthreadsleft)
		if has_bot and has_minthreadsleft then
			age_text = mw.ustring.format(
				cfg.age_bot_threads,
				age_with_units,
				wikilink('User:' .. auto.bot, auto.bot),
				var_or_default(auto.minthreadsleft, cfg.min_threads)
			)
		elseif has_bot then
			age_text = mw.ustring.format(
				cfg.age_bot,
				age_with_units,
				wikilink('User:' .. auto.bot, auto.bot)
			)
		elseif has_minthreadsleft then
			age_text = mw.ustring.format(
				cfg.age_threads,
				age_with_units,
				var_or_default(auto.minthreadsleft, cfg.min_threads)
			)
		else
			age_text = mw.ustring.format(
				cfg.age,
				age_with_units
			)
		end
	end
	
	return mw.html.create('div'):addClass('archives-auto'):wikitext(target_text .. age_text)
end

local function edit_list(frame, auto, list1, archive_list, archive_list_exists, editbox)
	
	local has_editbox = not editbox or (editbox and (editbox == '' or editbox == 'yes'))
	if not (archive_list_exists and has_editbox and not auto and is_filled(list1)) then
		return nil
	end
	
	return mw.html.create('div'):addClass('archives-edit'):wikitext(mw.ustring.format(
		cfg.edit_this_box,
		archive_list.fullUrl('action=edit' .. cfg.pre_load)
	))
	
end


--[[
pass the frame down for a minute because we do a lot of work with a frame

]]
function p._main(args, frame)
	local frame = frame -- data continuity
	local list = args.list
	local list1 = args[1]
	local root = args.root
	local collapsed = args.collapsed
	local collapsible = args.collapsible
	local title = args.title
	
	local auto = var_or_default(args.auto, nil)

	local is_banner = false
	if (args.banner and args.banner == cfg.banner_yes) or (args.large and args.large == cfg.banner_yes) then
		is_banner = true
	end
	
	local archive_list = frame:callParserFunction(
		'#rel2abs',
		var_or_default(args.archivelist, cfg.archivelist)
	)
	-- Is this how you use .new?
	local archive_list_title = mw.title.new(archive_list)
	local archive_list_exists = archive_list_title.exists
	
	
	
	local archives = mw.html.create()
	archives
		:tag('div')
			:addClass('archives plainlinks')
			-- banner is roughly mbox, small is roughly mbox-small
			:addClass(is_banner and 'archives-banner' or 'archives-small')
			-- archives-talk has same-ish styles as tmbox tmbox-notice
			-- base styles are same-ish as ombox ombox-notice
			:addClass(talk_other(var_or_default(args.demospace, nil), 'archives-talk'))
			:css('width', var_or_default(args[cfg.arg.box_width], nil))
			
			:node(add_image({
				image = args[cfg.arg.image],
				alt = args[cfg.arg.alt],
				link = args[cfg.arg.link],
				size = args[cfg.arg.image_size]
			}))
			--[[
			TODO:
			flex
			collapse
			actual list
			]]
			:node(search_box(frame, is_banner, root, {
				search = args.search,
				prefix = args.prefix,
				width = args['search-width'],
				sbreak = args['search-break'],
				label = args['search-button-label']
			}))
			:node(note_auto(frame, {
				age = args.age,
				target = args.target,
				units = args.units,
				bot = args.bot,
				minthreadsleft = args.minthreadsleft
			}))
			:node(edit_list(
				frame, auto, list1, archive_list_title, archive_list_exists, args.editbox
			))

	return frame:extensionTag{
		name = 'templatestyles', args = { src = cfg.templatestyles }
	} .. tostring(archives)
end

function p.main(frame)
	return p._main(require('Module:Arguments').getArgs(frame), frame)
end

return p