Module:PastWikithons

From BASAbaliWiki

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

local p = {}
local competitions = {}
local competitionsInfo = {}
local shelves = {
	'Biography',
	'Book',
	'Environmental Initiative',
	'Children Book',
	'ScholarsRoom',
	'Intercultural',
	'Folktale',
	'Place',
	'Lontar',
	'Literature',
	'WomenSpirit',
	'Holiday',
	'Plant',
	'Comics',
	'VisualArt',
	'Music',
	'Covid',
	'Podcast',
	'Cuisine',
	'Government'
}

function table_contains(tbl, x)
    found = false
    for _, v in pairs(tbl) do
        if v == x or _ == x then 
            found = true 
        end
    end
    return found
end

function addToSet(set, key)
    set[key] = true
end

function removeFromSet(set, key)
    set[key] = nil
end

function setContains(set, key)
    return set[key] ~= nil
end

function p.display( frame )
	local div = mw.html.create( 'div' )
		div:addClass('wikithon-list-legacy')
		div:addClass('bali-wikiton-list')
	-- https://github.com/SemanticMediaWiki/SemanticScribunto/blob/master/docs/README.md
	-- build list of unique wikithons names
	
	local result = mw.smw.ask {
    	'[[Category:Article]]',
    	'[[Competition::+]]',
    	'[[Question::+]]',
    	'[[Topic::+]]',
    	'?Competition',
    	'?Question',
    	'?Question id',
    	'?Question ban',
    	'?Question bug',
    	'?Question mak',
    	'?Topic',
    	'?Categories',
    	'?Modification date',
    	limit = 10000,
    	mainlabel = '-',
    	link = 'none',
    	sort = 'Modification date',
    	order = 'desc'
	}
	
	if result and #result then
		for num, entityData in pairs( result ) do
			local c = entityData['Competition']
			if not setContains(competitions, c) then
				addToSet(competitions, c)
				local cats = entityData['Category']
				local s = ''
				for ci, cv in ipairs( cats ) do
					local catnameraw = mw.ustring.gsub(mw.text.split( cv, '|', True )[2], '%p', '')
					if table_contains(shelves, catnameraw) then
						s = catnameraw
					end
				end
				if type(entityData['Topic']) == "table" then
					entityData['Topic'] = entityData['Topic'][1]
				end
				local q = ''
				if entityData['Question'] ~= nil then
					q = entityData['Question']
				end
				local q_id = ''
				if entityData['Question id'] ~= nil then
					q_id = entityData['Question id']
				end
				local q_ban = ''
				if entityData['Question ban'] ~= nil then
					q_ban = entityData['Question ban']
				end
				local q_bug = ''
				if entityData['Question bug'] ~= nil then
					q_bug = entityData['Question bug']
				end
				local q_mak = ''
				if entityData['Question mak'] ~= nil then
					q_mak = entityData['Question mak']
				end
				competitionsInfo[c] = {
					question = q,
					question_id = q_id,
					question_ban = q_ban,
					question_mak = q_mak,
					question_bug = q_bug,
					topic = entityData['Topic'],
					shelv = s
				}
			end
		end
	end
	
	for k, v in pairs( competitions ) do
		local processingText = ''
		if #competitionsInfo[k].question > 1 then
			processingText = processingText .. '<en>'..competitionsInfo[k].question..'</en>'
		end
		if #competitionsInfo[k].question_id > 1 then
			processingText = processingText .. '<id>'..competitionsInfo[k].question_id..'</id>'
		end
		if #competitionsInfo[k].question_ban > 1 then
			processingText = processingText .. '<ban>'..competitionsInfo[k].question_ban..'</ban>'
		end
		if #competitionsInfo[k].question_bug > 1 then
			processingText = processingText .. '<bug>'..competitionsInfo[k].question_bug..'</bug>'
		end
		if #competitionsInfo[k].question_mak > 1 then
			processingText = processingText .. '<mak>'..competitionsInfo[k].question_mak..'</mak>'
		end
		local questionText = frame:preprocess( processingText )
		local topicImage = mw.title.makeTitle( 'File', 'Topic-'..competitionsInfo[k].topic..'.jpg')
		local formString = 
			'Article_search[Type]='..competitionsInfo[k].shelv
			..'&shelf='..competitionsInfo[k].shelv
			..'&Article_search[Topic]='..competitionsInfo[k].topic
			..'&Article_search[Competition]='..k
			..'&_run'
		local wikithonLink = frame:callParserFunction(
	    	'#queryformlink',
		    	{
		    		'form=Article_search',
		    		'link text=' .. questionText,
		    		'link type=link',
		    		'new window',
		    		'query string=' .. formString
				}
			)
		local wikithonLinkBtn = frame:callParserFunction(
	    	'#queryformlink',
		    	{
		    		'form=Article_search',
		    		'link text=View articles',
		    		'link type=link',
		    		'new window',
		    		'query string=' .. formString
				}
			)
		local wikithonDiv = div:tag('div')
			wikithonDiv:addClass('bali-wikiton')
			if topicImage.file.exists then
				local url = frame:preprocess( '{{filepath:' .. topicImage.text .. '|800px}}' )
				wikithonDiv:attr('data-background-image', url)
			end
			--wikithonDiv:cssText('background-image: url('..topicImageUrl..')')
		local wikithonTags = wikithonDiv:tag('div')
			wikithonTags:addClass('bali-tags')
			if competitionsInfo[k].topic ~= nil and #competitionsInfo[k].topic then
				local tagTopic = wikithonTags:tag('span')
					tagTopic:wikitext('#'..competitionsInfo[k].topic)
			end
			if competitionsInfo[k].shelv ~= nil and #competitionsInfo[k].shelv then
				local tagSpan = wikithonTags:tag('span')
					tagSpan:wikitext('#'..competitionsInfo[k].shelv)
			end
			local codeSpan = wikithonTags:tag('span')
					codeSpan:wikitext('#'..k)
		local wikithonRow = wikithonDiv:tag('div')
			wikithonRow:addClass('bali-wikiton__row')
		local rowText = wikithonRow:tag('div')
			rowText:addClass('bali-wikiton__text')
			rowText:wikitext(wikithonLink)
		local rowBtn = wikithonRow:tag('span')
			rowBtn:addClass('bali-wikiton__button')
			rowBtn:wikitext(wikithonLinkBtn)
	end
	
	-- fetch wikithons artiles per wikithon
	--[=====[ 
	for k, v in pairs( competitions ) do
		local competition = k
		local ulWikithon = div:tag('ul')
			ulWikithon:addClass('wikithon-list-legacy--item')
			ulWikithon:wikitext(competition)
		local result = mw.smw.ask {
			'[[Category:Article]]',
			'[[Competition::' .. competition ..']]',
			limit = 10,
			mainlabel = 'origin'
		}
		if result and #result then
			for num, entityData in pairs( result ) do
				local liPage = ulWikithon:tag('li')
					liPage:addClass('wikithon-list-legacy--page')
					liPage:wikitext(entityData.origin)
			end
		end
	end
	--]=====]
    return div
end

return p