local p = {}
local POOL_TEMPLATE = "Featured pool"
local STYLES_PAGE = "Template:Featured box/styles.css"
local function trim(s)
return mw.text.trim(s or "")
end
local function makeStylesTag(frame)
frame = frame or mw.getCurrentFrame()
return frame:extensionTag("templatestyles", "", { src = STYLES_PAGE })
end
local function hasImageExtension(name)
if not name or name == "" then
return false
end
local lower = mw.ustring.lower(name)
return lower:match("%.png$")
or lower:match("%.jpg$")
or lower:match("%.jpeg$")
or lower:match("%.svg$")
end
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 = trim(line)
line = line:gsub("<!%-%-.-%-%->", "")
line = trim(line)
if line ~= "" then
line = line:gsub("^%*%s*", "")
line = trim(line)
local linkedTitle =
line:match("^%[%[([^|%]]+)%]%]$")
or line:match("^%[%[([^|%]]+)|.-%]%]$")
if linkedTitle then
line = linkedTitle
end
line = trim(line)
if line ~= "" then
table.insert(pages, line)
end
end
end
return pages
end
local function removeBalancedTemplates(s)
local previous
repeat
previous = s
s = s:gsub("%b{}", "")
until s == previous
return s
end
local function removeRefs(s)
s = s:gsub("<ref[^>/]-/>", "")
s = s:gsub("<ref.->.-</ref>", "")
s = s:gsub("<ref.->", "")
return s
end
local function removeFiles(s)
s = s:gsub("%[%[%s*[Ff]ile%s*:.-%]%]", "")
s = s:gsub("%[%[%s*[Ii]mage%s*:.-%]%]", "")
return s
end
local function cleanLeadWikitext(s)
if not s or s == "" then
return ""
end
s = s:gsub("<!%-%-.-%-%->", "")
s = removeRefs(s)
s = removeFiles(s)
s = removeBalancedTemplates(s)
s = s:gsub("<br%s*/?>", "\n")
s = s:gsub("<br%s*>", "\n")
s = s:gsub("\r", "")
s = s:gsub("'''", "")
s = s:gsub("''", "")
s = s:gsub("%[https?://[^%s%]]+%s+([^%]]+)%]", "%1")
s = s:gsub("%[https?://[^%s%]]+%]", "")
s = s:gsub("<[^>]+>", "")
local cleanedLines = {}
for line in mw.text.gsplit(s, "\n", true) do
local cleaned = trim(line)
if cleaned ~= ""
and not cleaned:match("^__%u+__$")
and not cleaned:match("^%[%[[Cc]ategory:")
and not cleaned:match("^%s*|")
and not cleaned:match("^%s*}") then
table.insert(cleanedLines, cleaned)
end
end
return 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 normalizeImageFile(value)
if not value or value == "" then
return nil
end
value = trim(value)
value = value:gsub("<!%-%-.-%-%->", "")
value = trim(value)
if value == "" then
return nil
end
local linked =
value:match("%[%[%s*[Ff]ile%s*:%s*([^|%]]+)")
or value:match("%[%[%s*[Ii]mage%s*:%s*([^|%]]+)")
if linked then
value = linked
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 = trim(value)
if value == "" then
return nil
end
local lower = mw.ustring.lower(value)
if lower == "none" or lower == "no" or lower == "n/a" or lower == "-" then
return nil
end
if not hasImageExtension(value) then
return nil
end
return "File:" .. value
end
local function isImageParameterName(name)
if not name then
return false
end
name = mw.ustring.lower(trim(name))
return name == "image"
or name == "photo"
or name == "picture"
or name == "portrait"
or name == "logo"
or name == "flag"
or name == "emblem"
or name:match("^image%d+$")
or name:match("^photo%d+$")
or name:match("^picture%d+$")
or name:match("^portrait%d+$")
or name:match("^logo%d+$")
or name:match("^flag%d+$")
or name:match("^emblem%d+$")
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 name, value = line:match("^%s*|%s*([%w_%-]+)%s*=%s*(.-)%s*$")
if name and value and isImageParameterName(name) then
local file = normalizeImageFile(value)
if file then
return file
end
end
end
for name, value in wikitext:gmatch("|%s*([%w_%-]+)%s*=%s*([^|\n}]+)") do
if isImageParameterName(name) then
local file = normalizeImageFile(value)
if file then
return file
end
end
end
for file in wikitext:gmatch("%[%[%s*[Ff]ile%s*:%s*([^|%]]+)") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
for file in wikitext:gmatch("%[%[%s*[Ii]mage%s*:%s*([^|%]]+)") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
for file in wikitext:gmatch("([%w%s%._%-%(%)]+%.[Pp][Nn][Gg])") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
for file in wikitext:gmatch("([%w%s%._%-%(%)]+%.[Jj][Pp][Gg])") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
for file in wikitext:gmatch("([%w%s%._%-%(%)]+%.[Jj][Pp][Ee][Gg])") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
for file in wikitext:gmatch("([%w%s%._%-%(%)]+%.[Ss][Vv][Gg])") do
local normalized = normalizeImageFile(file)
if normalized then
return normalized
end
end
return nil
end
local function plainLower(s)
s = mw.ustring.lower(s or "")
s = s:gsub("_", " ")
s = s:gsub("%s+", " ")
return s
end
local function contains(text, needle)
return mw.ustring.find(text, needle, 1, true) ~= nil
end
local function getFeaturedClass(title, content)
local titleText = plainLower(title)
local contentText = plainLower(content)
local allText = titleText .. "\n" .. contentText
if contains(allText, "bucharest butchers")
or contains(allText, "snubable enterprise")
or contains(titleText, "snubable") then
return "featured-bucharest"
end
if contains(titleText, "noord")
or contains(contentText, "[[noord family")
or contains(contentText, "[[category:noord family")
or contains(contentText, "family = [[noord family")
or contains(contentText, "|family=[[noord family") then
return "featured-noord"
end
if contains(titleText, "paap")
or contains(contentText, "[[paap family")
or contains(contentText, "[[category:paap family")
or contains(contentText, "family = [[paap family")
or contains(contentText, "|family=[[paap family") then
return "featured-paap"
end
if contains(titleText, "van hetten")
or contains(contentText, "[[van hetten family")
or contains(contentText, "[[category:van hetten family")
or contains(contentText, "family = [[van hetten family")
or contains(contentText, "|family=[[van hetten family") then
return "featured-van-hetten"
end
if contains(titleText, "hoos")
or contains(contentText, "[[hoos family")
or contains(contentText, "[[category:hoos family")
or contains(contentText, "family = [[hoos family")
or contains(contentText, "|family=[[hoos family") then
return "featured-hoos"
end
if contains(titleText, "schroeter")
or contains(contentText, "[[schroeter family")
or contains(contentText, "[[category:schroeter family")
or contains(contentText, "family = [[schroeter family")
or contains(contentText, "|family=[[schroeter family") then
return "featured-schroeter"
end
if contains(allText, "tanoa einsatzgruppen")
or contains(titleText, "tanoa")
or contains(contentText, "[[category:tanoa")
or contains(contentText, "[[tanoa") then
return "featured-tanoa"
end
return ""
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
local content = ""
if page and page.exists then
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,
className = getFeaturedClass(title, content)
}
end
local function makeImageBlock(data)
if not data.image then
return ""
end
return
'<div class="featured-box-image-frame">' ..
'[[' .. data.image .. '|frameless|160x160px|link=' .. data.title .. '|' .. data.title .. ']]' ..
'</div>'
end
local function makeBoxClass(data)
local className = "featured-box"
if data and data.className and data.className ~= "" then
className = className .. " " .. data.className
end
return className
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
if args.classonly == "1" then
return data.className or ""
end
return
makeStylesTag(frame) ..
makeImageBlock(data) ..
"'''[[" .. data.title .. "]]'''" ..
'<div class="featured-box-lead">' ..
data.lead ..
'</div>'
end
function p.box(frame)
local data, err = getFeaturedData()
if not data then
return
makeStylesTag(frame) ..
'<div class="featured-box">' ..
'<div class="featured-box-title">Featured page</div>' ..
'<div class="featured-box-body">' .. err .. '</div>' ..
'</div>'
end
return
makeStylesTag(frame) ..
'<div class="' .. makeBoxClass(data) .. '">' ..
'<div class="featured-box-title">Featured page</div>' ..
'<div class="featured-box-body">' ..
makeImageBlock(data) ..
'<div class="featured-box-page-title">' ..
"'''[[" .. data.title .. "]]'''" ..
'</div>' ..
'<div class="featured-box-lead">' .. data.lead .. '</div>' ..
'<div class="featured-box-open">[[:' .. data.title .. '|Open page]]</div>' ..
'</div>' ..
'</div>'
end
return p
