Module:Motifs - Revision history

Noeth at 20:09, 24 April 2026

2026-04-24T20:09:14Z

← Older revision		Revision as of 20:09, 24 April 2026
Line 1:		Line 1:
	local p = {}		local p = {}

	~~local function getParent(motif)~~
	~~local data = mw.smw.ask({~~
	~~'[[' .. motif .. ']]',~~
	~~'?Is Child Of',~~
	~~mainlabel = '-',~~
	~~limit = 1~~
	})

	~~local parent = ''~~

	~~if data and data[1] and data[1]['Is Child Of'] then~~
	~~parent = data[1]['Is Child Of']~~
	~~if type(parent) == 'table' then~~
	~~parent = parent[1]~~
	~~end~~
	~~end~~

	~~return parent or ''~~
	~~end~~

	function p.renderBadges(frame)		function p.renderBadges(frame)
Line 33:		Line 13:

	if motif ~= '' then		if motif ~= '' then
	~~local parent = getParent(motif)~~		table.insert(motifs, motif)

	table.insert(motifs, {
	~~label =~~ motif,
	~~parent = parent~~
	})
	end		end
	end		end

	table.sort(motifs, function(a, b)		table.sort(motifs, function(a, b)
	~~local keyA =~~ mw.ustring.lower(a~~.parent .. '\|' .. a.label~~)		return mw.ustring.lower(a) < mw.ustring.lower(b)
	~~local keyB =~~ mw.ustring.lower(b~~.parent .. '\|' .. b.label~~)
	~~return keyA < keyB~~
	end)		end)

	local html = mw.html.create()		local html = mw.html.create()

	for _, ~~item~~ in ipairs(motifs) do		for _, motif in ipairs(motifs) do
	~~local badge =~~ html		html
	:tag('span')		:tag('span')
	:addClass('badge badge-pill badge-motif mr-1')		:addClass('badge badge-pill badge-motif mr-1')
	~~:attr(~~		:wikitext(frame:preprocess(
	~~'title',~~		'{{#formredlink:target=' .. motif .. '\|form=Content}}'
	~~item.parent ~= '' and ('Child of: ' .. item.parent) or 'Top-level motif'~~		))
	)

	~~if item.parent ~= '' then~~
	~~badge:addClass('has-parent')~~

	~~badge~~
	~~:tag('span')~~
	~~:addClass('motif-parent')~~
	~~:wikitext(item.parent .. ' › ')~~
	~~:done()~~
	~~end~~

	~~badge~~:wikitext(frame:preprocess(
	'{{#formredlink:target=' .. ~~item.label~~ .. '\|form=Content}}'
	))
	end		end

Noeth at 20:05, 24 April 2026

2026-04-24T20:05:57Z

← Older revision		Revision as of 20:05, 24 April 2026
Line 1:		Line 1:
	local p = {}		local p = {}

			local function getParent(motif)
			local data = mw.smw.ask({
			'[[' .. motif .. ']]',
			'?Is Child Of',
			mainlabel = '-',
			limit = 1
			})

			local parent = ''

			if data and data[1] and data[1]['Is Child Of'] then
			parent = data[1]['Is Child Of']
			if type(parent) == 'table' then
			parent = parent[1]
			end
			end

			return parent or ''
			end

	function p.renderBadges(frame)		function p.renderBadges(frame)
Line 7:		Line 27:
	end		end

	~~local smw = mw.smw~~
	local motifs = {}		local motifs = {}

	~~-- collect motifs + parent info~~
	for motif in mw.text.gsplit(raw, ';', true) do		for motif in mw.text.gsplit(raw, ';', true) do
	motif = mw.text.trim(motif)		motif = mw.text.trim(motif)

	if motif ~= '' then		if motif ~= '' then
	local ~~data~~ = ~~smw.ask~~({		local parent = getParent(motif)
	~~'[[' ..~~ motif ~~.. ']]',~~
	~~'?Is Child Of',~~
	~~mainlabel = '-',~~
	~~limit = 1~~
	})

	~~local parent = ''~~
	~~if data and data[1] and data[1]['Is Child Of'] then~~
	~~parent = data[1]['Is Child Of']~~
	~~if type(parent) == 'table' then~~
	~~parent = parent[1]~~
	~~end~~
	~~end~~

	table.insert(motifs, {		table.insert(motifs, {
	label = motif,		label = motif,
	parent = parent ~~or ''~~		parent = parent
	})		})
	end		end
	end		end

	~~-- sort: parent + label (case-insensitive)~~
	table.sort(motifs, function(a, b)		table.sort(motifs, function(a, b)
	local keyA = mw.ustring.lower(a.parent .. '\|' .. a.label)		local keyA = mw.ustring.lower(a.parent .. '\|' .. a.label)
Line 44:		Line 48:
	end)		end)

	~~-- render~~
	local html = mw.html.create()		local html = mw.html.create()

Line 58:		Line 61:
	if item.parent ~= '' then		if item.parent ~= '' then
	badge:addClass('has-parent')		badge:addClass('has-parent')

			badge
			:tag('span')
			:addClass('motif-parent')
			:wikitext(item.parent .. ' › ')
			:done()
	end		end

Noeth at 20:04, 24 April 2026

2026-04-24T20:04:42Z

← Older revision		Revision as of 20:04, 24 April 2026
Line 8:		Line 8:

	local smw = mw.smw		local smw = mw.smw
	local ~~html~~ = ~~mw.html.create()~~		local motifs = {}

			-- collect motifs + parent info
	for motif in mw.text.gsplit(raw, ';', true) do		for motif in mw.text.gsplit(raw, ';', true) do
	motif = mw.text.trim(motif)		motif = mw.text.trim(motif)
Line 17:		Line 18:
	'[[' .. motif .. ']]',		'[[' .. motif .. ']]',
	'?Is Child Of',		'?Is Child Of',
	mainlabel = '-'		mainlabel = '-',
			limit = 1
	})		})

	local parent = ~~nil~~		local parent = ''
	if data and data[1] and data[1]['Is Child Of'] then		if data and data[1] and data[1]['Is Child Of'] then
	parent = data[1]['Is Child Of']		parent = data[1]['Is Child Of']
Line 28:		Line 30:
	end		end

	~~local badge~~ = ~~html~~		table.insert(motifs, {
	~~:tag(~~'~~span~~')		label = motif,
	:~~addClass~~(~~'badge badge~~-~~pill badge-motif mr-1'~~)		parent = parent or ''
	~~:attr~~('~~title~~', parent ~~and (~~'~~Child of:~~ ' .. ~~parent~~) ~~or 'Top~~-~~level motif'~~)		})
			end
			end

			-- sort: parent + label (case-insensitive)
			table.sort(motifs, function(a, b)
			local keyA = mw.ustring.lower(a.parent .. '\|' .. a.label)
			local keyB = mw.ustring.lower(b.parent .. '\|' .. b.label)
			return keyA < keyB
			end)

			-- render
			local html = mw.html.create()

	~~if parent then~~		for _, item in ipairs(motifs) do
	badge		local badge = html
	:tag('span')		:tag('span')
	:addClass('motif-~~parent~~')		:addClass('badge badge-pill badge-motif mr-1')
	:~~wikitext~~(parent .. ' › ')		:attr(
	~~:done(~~)		'title',
	~~end~~		item.parent ~= '' and ('Child of: ' .. item.parent) or 'Top-level motif'
			)

	badge:~~wikitext(frame:preprocess~~(		if item.parent ~= '' then
	'~~{{#formredlink:target=~~' ~~.. motif .. '\|form=Content}}'~~		badge:addClass('has-parent')
	))
	end		end

			badge:wikitext(frame:preprocess(
			'{{#formredlink:target=' .. item.label .. '\|form=Content}}'
			))
	end		end

Noeth: Noeth moved page Module:MotifTags to Module:Motifs

2026-04-24T20:00:33Z

Noeth moved page Module:MotifTags to Module:Motifs

← Older revision	Revision as of 20:00, 24 April 2026
(No difference)

Noeth: Created page with "local p = {} function p.renderBadges(frame) local raw = frame.args[1] or '' if raw == '' then return '' end local smw = mw.smw local html = mw.html.create() for motif in mw.text.gsplit(raw, ';', true) do motif = mw.text.trim(motif) if motif ~= '' then local data = smw.ask({ '' .. motif .. '', '?Is Child Of', mainlabel = '-' }) local..."

2026-04-24T20:00:08Z

Created page with "local p = {} function p.renderBadges(frame) local raw = frame.args[1] or '' if raw == '' then return '' end local smw = mw.smw local html = mw.html.create() for motif in mw.text.gsplit(raw, ';', true) do motif = mw.text.trim(motif) if motif ~= '' then local data = smw.ask({ '' .. motif .. '', '?Is Child Of', mainlabel = '-' }) local..."

New page

local p = {}

function p.renderBadges(frame)
local raw = frame.args[1] or ''
if raw == '' then
return ''
end

local smw = mw.smw
local html = mw.html.create()

for motif in mw.text.gsplit(raw, ';', true) do
motif = mw.text.trim(motif)

if motif ~= '' then
local data = smw.ask({
'[[' .. motif .. ']]',
'?Is Child Of',
mainlabel = '-'
})

local parent = nil
if data and data[1] and data[1]['Is Child Of'] then
parent = data[1]['Is Child Of']
if type(parent) == 'table' then
parent = parent[1]
end
end

local badge = html
:tag('span')
:addClass('badge badge-pill badge-motif mr-1')
:attr('title', parent and ('Child of: ' .. parent) or 'Top-level motif')

if parent then
badge
:tag('span')
:addClass('motif-parent')
:wikitext(parent .. ' › ')
:done()
end

badge:wikitext(frame:preprocess(
'{{#formredlink:target=' .. motif .. '|form=Content}}'
))
end
end

return tostring(html)
end

return p