Buburka Rinderbuy: Buburka Rinderbuy moved page Module:Setlist to Module:Setlist2

2025-07-09T17:27:13Z

Buburka Rinderbuy moved page Module:Setlist to Module:Setlist2

← Older revision	Revision as of 13:27, 9 July 2025
(No difference)

Buburka Rinderbuy: 1 revision imported: Module:Setlist

2025-07-09T17:24:20Z

1 revision imported: Module:Setlist

← Older revision	Revision as of 13:24, 9 July 2025
(No difference)

2001:1970:48C0:AF00:4995:2ABE:C195:DAEE at 08:35, 9 July 2025

2025-07-09T08:35:14Z

New page

local p = {}

local function svg_arc(cx, cy, r, start_angle, end_angle, color, href)
local function polarToCartesian(cx, cy, r, angle)
local angle_rad = math.rad(angle - 90)
return cx + r * math.cos(angle_rad), cy + r * math.sin(angle_rad)
end
local x1, y1 = polarToCartesian(cx, cy, r, start_angle)
local x2, y2 = polarToCartesian(cx, cy, r, end_angle)
local largeArcFlag = ((end_angle - start_angle) % 360) > 180 and 1 or 0
local path = string.format(
"M %.2f %.2f A %.2f %.2f 0 %d 1 %.2f %.2f L %.2f %.2f Z",
x1, y1, r, r, largeArcFlag, x2, y2, cx, cy
)
return string.format(
'<a xlink:href="/wiki/%s"><path d="%s" fill="%s" stroke="#fff" stroke-width="0.5"/></a>',
href, path, color
)
end

local data = mw.loadData('Module:Setlist/Songs')

function p.fromArgs(frame)
local args = frame:getParent().args
local complete = (args['complete'] or "yes"):lower() == "yes"
local list = {}
for i = 1, 50 do
local song = args['song'..i]
if song and song ~= '' then
local label = args['label'..i] or ""
table.insert(list, { title = mw.text.trim(song), label = label })
end
end

-- Группируем песни по альбомам
local albumSongs = {}
local albumOrder = {}
for idx, songobj in ipairs(list) do
local title = songobj.title
local label = songobj.label
local albums = data.songs[title]
if albums then
for _, album in ipairs(albums) do
if not albumSongs[album] then
albumSongs[album] = {}
table.insert(albumOrder, album)
end
table.insert(albumSongs[album], {title = title, label = label, num = idx})
end
else
if not albumSongs["?"] then
albumSongs["?"] = {}
table.insert(albumOrder, "?")
end
table.insert(albumSongs["?"], {title = title, label = label, num = idx})
end
end

-- 1. Основной сетлист
local wikitext = '{| class="setlist-table setlist-anim" style="margin-top:1.6em;"\n|-\n| style="padding:0.7em 1.2em;" |\n'
for idx, songobj in ipairs(list) do
local numtxt = complete and (idx..".") or "*"
local label = (songobj.label and songobj.label ~= '') and ('<span class="setlist-label">'..songobj.label..'</span>') or ''
wikitext = wikitext .. '<div class="setlist-row"><span class="setlist-song">'..numtxt..' [['..songobj.title..']]</span>'..label..'</div>\n'
end

-- 2. SVG круговая диаграмма (кликабельная)
local total = 0
for _, album in ipairs(albumOrder) do
total = total + #albumSongs[album]
end

local svg = {'<svg width="50" height="50" viewBox="0 0 50 50" style="vertical-align:middle;">'}
local angle = 0
for _, album in ipairs(albumOrder) do
local count = #albumSongs[album]
local percent = count / total * 100
local sweep = percent * 3.6
local color = data.albumColors[album] or "#ccc"
local href = (data.albumLinks[album] or album):gsub(" ", "_")
table.insert(svg, svg_arc(25,25,25,angle,angle+sweep,color,href))
angle = angle + sweep
end
table.insert(svg, '</svg>')
wikitext = wikitext .. table.concat(svg, '\n')

-- 3. Блоки по альбомам
for albumIdx, album in ipairs(albumOrder) do
local arr = albumSongs[album]
local color = data.albumColors and data.albumColors[album] or "#eee"
local link = data.albumLinks and data.albumLinks[album] or album
local uniqid = "myDivision"..albumIdx
wikitext = wikitext .. '\n{| class="wikitable" style="margin-top:1em; border-collapse:separate; border-spacing:4px; border:hidden;"'
wikitext = wikitext .. '\n| style="background:'..color..'; border:hidden;" |'
wikitext = wikitext .. '\n| style="border:hidden;" | [['..link..'|'..album..']]'
wikitext = wikitext .. '\n| style="border:hidden;" | <span class="mw-customtoggle-'..uniqid..'">('..tostring(#arr)..')</span>'
wikitext = wikitext .. '\n| style="border:hidden;" |\n<div class="mw-collapsible mw-collapsed" id="mw-customcollapsible-'..uniqid..'">'
for _, entry in ipairs(arr) do
wikitext = wikitext .. '<span class="collapsible-setlist-row"><span class="collapsible-setlist-symbol">○</span><small>'..entry.title..'</small></span>\n'
end
wikitext = wikitext .. '</div>\n|}\n'
end

wikitext = wikitext .. '|}'
return wikitext
end

return p

Module:Setlist2 - Revision history

Buburka Rinderbuy: Buburka Rinderbuy moved page Module:Setlist to Module:Setlist2

Buburka Rinderbuy: 1 revision imported: Module:Setlist

2001:1970:48C0:AF00:4995:2ABE:C195:DAEE at 08:35, 9 July 2025