local p = {}
local POOL_TEMPLATE = "Featured pool"
local function getPool()
local content = mw.getCurrentFrame():expandTemplate{ title = POOL_TEMPLATE }
local pages = {}
for line in mw.text.gsplit(content or "", "\n", true) do
line = mw.text.trim(line or "")
line = line:gsub("<!%-%-.-%-%->", "")
line = mw.text.trim(line)
if line ~= "" then
line = line:gsub("^%*%s*", "")
line = mw.text.trim(line)
local linkedTitle = line:match("^%[%[([^%]|]+)|?.-%]%]$")
if linkedTitle then
line = linkedTitle
end
line = mw.text.trim(line)
if line ~= "" then
table.insert(pages, line)
end
end
end
return pages
end
local function removeTemplates(s)
local previous
repeat
previous = s
s = s:gsub("%b{}", "")
until s == previous
return s
end
local function cleanLeadWikitext(s)
if not s or s == "" then
return ""
end
s = s:gsub("<!%-%-.-%-%->", "")
s = s:gsub("<ref[^>/]-/>", "")
s = s:gsub("<ref.->.-</ref>", "")
s = s:gsub("<ref.->", "")
s = s:gsub("%[%[[Ff]ile:.-%]%]", "")
s = s:gsub("%[%[[Ii]mage:.-%]%]", "")
s = removeTemplates(s)
s = s:gsub("'''", "")
s = s:gsub("''", "")
s = s:gsub("%[%[([^%]|]+)|([^%]]+)%]%]", "%2")
s = s:gsub("%[%[([^%]]+)%]%]", "%1")
s = s:gsub("%[https?://[^%s%]]+%s+([^%]]+)%]", "%1")
s = s:gsub("%[https?://[^%s%]]+%]", "")
s = s:gsub("<br%s*/?>", "\n")
s = s:gsub("<[^>]+>", "")
s = s:gsub("\r", "")
local cleanedLines = {}
for line in mw.text.gsplit(s, "\n", true) do
local trimmed = mw.text.trim(line)
if trimmed ~= ""
and not trimmed:match("^__%u+__$")
and not trimmed:match("^%[%[[Cc]ategory:")
and not trimmed:match("^%s*|")
and not trimmed:match("^%s*}") then
table.insert(cleanedLines, trimmed)
end
end
return mw.text.trim(table.concat(cleanedLines, "\n\n"))
end
local function extractLeadFromContent(wikitext)
if not wikitext or wikitext == "" then
return ""
end
local leadLines = {}
for line in mw.text.gsplit(wikitext, "\n", true) do
if line:match("^%s*==+%s*[^=].-==+%s*$") then
break
end
table.insert(leadLines, line)
end
return cleanLeadWikitext(table.concat(leadLines, "\n"))
end
local function normalizeFileName(value)
if not value or value == "" then
return nil
end
value = mw.text.trim(value)
value = value:gsub("<!%-%-.-%-%->", "")
value = mw.text.trim(value)
if value == "" then
return nil
end
local linkedFile = value:match("%[%[%s*[Ff]ile%s*:%s*([^%]|%]]+)")
or value:match("%[%[%s*[Ii]mage%s*:%s*([^%]|%]]+)")
if linkedFile then
value = linkedFile
else
value = value:gsub("^%s*[Ff]ile%s*:%s*", "")
value = value:gsub("^%s*[Ii]mage%s*:%s*", "")
value = value:gsub("|.*$", "")
value = value:gsub("%]%].*$", "")
end
value = mw.text.trim(value)
if value == "" then
return nil
end
local lower = mw.ustring.lower(value)
if lower == "none" or lower == "no" or lower == "n/a" then
return nil
end
return "File:" .. value
end
local function extractImageFromContent(wikitext)
if not wikitext or wikitext == "" then
return nil
end
for line in mw.text.gsplit(wikitext, "\n", true) do
local value = line:match("^%s*|%s*image%d*%s*=%s*(.-)%s*$")
or line:match("^%s*|%s*logo%d*%s*=%s*(.-)%s*$")
or line:match("^%s*|%s*flag%d*%s*=%s*(.-)%s*$")
if value then
local file = normalizeFileName(value)
if file then
return file
end
end
end
local fallback = wikitext:match("%[%[%s*[Ff]ile%s*:%s*([^%]|%]]+)")
or wikitext:match("%[%[%s*[Ii]mage%s*:%s*([^%]|%]]+)")
if fallback then
return normalizeFileName(fallback)
end
return nil
end
local function getFeaturedData()
local pages = getPool()
if #pages == 0 then
return nil, "No featured pages defined."
end
local day = tonumber(os.date("%j")) or 1
local index = ((day - 1) % #pages) + 1
local title = pages[index]
local page = mw.title.new(title)
local lead = ""
local image = nil
if page and page.exists then
local content = page:getContent() or ""
lead = extractLeadFromContent(content)
image = extractImageFromContent(content)
end
if lead == "" then
lead = "Featured page for " .. os.date("%d %B %Y") .. "."
end
return {
title = title,
lead = lead,
image = image
}
end
function p.main(frame)
local args = frame and frame.args or {}
local data, err = getFeaturedData()
if not data then
return err
end
if args.titleonly == "1" then
return data.title
end
if args.imageonly == "1" then
return data.image or ""
end
local imageBlock = ""
if data.image then
imageBlock = string.format(
'<div style="float:right; width:105px; margin:0 0 0.5em 0.75em; padding:4px; border:1px solid #a2a9b1; background:#f8f9fa; border-radius:6px; text-align:center;">[[%s|frameless|100x100px|link=%s|%s]]</div>',
data.image,
data.title,
data.title
)
end
return string.format(
'%s\'\'\'[[%s]]\'\'\'<div style="margin-top:0.35em; line-height:1.5;">%s</div>',
imageBlock,
data.title,
data.lead
)
end
function p.box()
local data, err = getFeaturedData()
if not data then
return '<div style="width:100%; max-width:820px; margin:0.5em 0; border:1px solid #a2a9b1; border-radius:8px; background:#ffffff; overflow:hidden;"><div style="padding:0.5em 0.75em; font-size:110%; font-weight:bold; background:#eaecf0; border-bottom:1px solid #a2a9b1;">Featured page</div><div style="padding:0.8em;">' .. err .. '</div></div>'
end
local imageBlock = ""
if data.image then
imageBlock = string.format(
'<div style="float:right; width:105px; margin:0 0 0.5em 0.75em; padding:4px; border:1px solid #a2a9b1; background:#f8f9fa; border-radius:6px; text-align:center;">[[%s|frameless|100x100px|link=%s|%s]]</div>',
data.image,
data.title,
data.title
)
end
return string.format(
'<div style="width:100%; max-width:820px; margin:0.5em 0; border:1px solid #a2a9b1; border-radius:8px; background:#ffffff; overflow:hidden;">' ..
'<div style="padding:0.5em 0.75em; font-size:110%; font-weight:bold; background:#eaecf0; border-bottom:1px solid #a2a9b1;">Featured page</div>' ..
'<div style="padding:0.8em; font-size:105%; line-height:1.5;">' ..
'%s' ..
'<div style="font-size:110%; margin-bottom:0.35em;">\'\'\'[[%s]]\'\'\'</div>' ..
'<div>%s</div>' ..
'<div style="margin-top:0.6em; clear:both;">[[:%s|Open page]]</div>' ..
'</div>' ..
'</div>',
imageBlock,
data.title,
data.lead,
data.title
)
end
return p
