|
local parent_links = require('Module:Auto parents')._parent_links
local headerStructureconstruct_header = require('Module:Header structure').construct_header
local headerAttributions = require('Module:Header/attribution')
local construct_defaultsort = require('Module:Header/sort')._construct_defaultsort
local construct_year = require('Module:Header/year').construct_year
local current_title = mw.title.getCurrentTitle()
--[=[
Wrap stylesheet in noexport div
]=]
local function get_noexport_stylesheet(template)
return tostring(mw.html.create('div'):addClass('ws-noexport'):wikitext(mw.getCurrentFrame():extensionTag('templatestyles', '', {src = template .. '/styles.css'})))
end
--[=[
end
local year = args['override-year'] or args['year']
if year then
mf['ws-year'] = year
end
local function check_non_existent_author_pages(args, paramcategories, categoriescheckArgs)
-- check for cases that aren't supposed to produce a valid link
if args[param] then
-- some pages expect an invalid author
local lower_argparam = stringcheckArgs.lower(args[param])
local tracking_cat = checkArgs.tracking_cat or 'Works with non-existent author pages'
local attr_data = headerAttributions.attr_data[param] or headerAttributions.attr_data[string.gsub(param, 'section-', '')]
if not attr_data or not attr_data['special_cases'][lower_arg] then
if not param or not args[param] or yesno(args[param .. '-nolink']) then
local target = mw.title.makeTitle("Author", args[param])
return
-- expensive function!
if not target or not target.exists then
table.insert(categories, "Works with non-existent author pages")
end
end
end
local lower_arg = string.lower(args[param])
local attr_data = headerAttributions.attr_data[param] or headerAttributions.attr_data[string.gsub(param, 'section%-', '')]
if attr_data and attr_data['special_cases'] and attr_data['special_cases'][lower_arg] then
return
end
-- check if page exists
local target = mw.title.makeTitle('Author', args[param])
-- expensive function!
if not target or not target.exists then
table.insert(categories, tracking_cat)
end
return
end
if args['override-author'] then
table.insert(categories, "Pages with override author")
end
if args['override-translator'] then
table.insert(categories, "Pages with override translator")
end
if current_title:inNamespaces(0, 114) or args.testing then
local params_to_check = {
check_non_existent_author_pages(args, 'author', categories)
{param = 'author'},
check_non_existent_author_pages(args, 'editor', categories)
{param = 'editor'},
check_non_existent_author_pages(args, 'translator', categories)
check_non_existent_author_pages(args, {param = 'section-translator'}, categories)
{param = 'composer', tracking_cat = 'Works with non-existent composer pages'},
check_non_existent_author_pages(args, 'section-author', categories)
{param = 'illustrator', tracking_cat = 'Works with non-existent illustrator pages'}
}
for k, v in pairs(params_to_check) do
check_non_existent_author_pages(args, categories, v)
check_non_existent_author_pages(args, categories, {param = 'section-' .. v.param, tracking_cat = v.tracking_cat})
end
end
local author = args['override-author'] or args['author']
if author and (string.lower(author) == 'unknown') and not args['nocat'] then
if args.template_name == 'Translation header' then
table.insert(categories, 'Translations of anonymous works')
local editor = args['override-editor'] or args['editor']
if editor and not args['nocat'] then
editor = string.lower(editor)
if editor == 'unknown' or editor == '?' then
local translator = args['override-translator'] or args['translator']
if translator and not args['nocat'] then
translator = string.lower(translator)
if translator == 'unknown' or translator == 'not mentioned' or translator == '?' then
end
if args['override-year'] then
table.insert(categories, "Pages with override year")
end
if args['noyear'] then
table.insert(categories, "Pages with noyear")
-- translation header categories
local isMainPage = ((current_title:inNamespaces(0, 114) and not current_title.isSubpage) or args['testing'])
if args.template_name == 'Translation header' then
if args.template_name == 'Translation header' and isMainPage then
if args.language then
if not args['nocat'] then
table.insert(categories, 'Works originally in ' .. (args.language_name or 'an undefined language'))
if args.language then
else
table.insert(categories, 'Wikisource translations withof noworks originalin ' .. (args.language_name or 'an undefined language'))
else
table.insert(categories, 'Wikisource translations with no original language')
end
end
table.insert(categories, 'Wikisource translations with no original source')
end
elseif not args['nocat'] and isMainPage then
if not current_titleargs.isSubpagelanguage then
table.insert(categories, 'WikisourceWorks translationsoriginally in ' .. (args.language_name or 'an undefined language'))
elseif args['language-required'] then
table.insert(categories, 'Translations with no original language')
end
end
--[=[
ConstructAssemble the year spantitle
--]=]
local function getYearFromTimestampheader_title(timestampargs)
local title = args.title or ''
-- example timestamps: +2016-10-05T00:00:00Z, -1752-00-00T00:00:00Z
local splittitleSpan = tostring(mw.texthtml.splitcreate(timestamp'span'):attr('id', 'header-title-text', true):wikitext(title))
local year
local bce = ''
if split[1] == '' then
year = tonumber(split[2])
bce = ' BCE'
else
year = tonumber(split[1])
end
return {year = year, bce = bce}
end
local function formatYear(year, precision)
if precision == 7 then
local suffixes = {
[1] = 'st',
[2] = 'nd',
[3] = 'rd',
default = 'th'
}
local century = (year - year % 100)/100 + 1
return century .. (suffixes[century] or suffixes['default']) .. ' century'
elseif precision == 8 then
return year .. 's'
else
return year
end
end
local function getYearFromSingleStatement(statement, args)
local snak = statement.mainsnak
if not snak or not snak.datavalue or not snak.datavalue.value or not snak.datavalue.value.time then
return nil
end
local year = construct_year(args)
if args['noprint'] and args['nocat'] then
local attr = headerAttributions.construct_attributions(args)
return nil
local section = headerAttributions.construct_section(args)
end
if attr ~= '' and title ~= '' then
local cats = {} -- tracking categories
attr = '<br id=\"header-title=break\" />' .. attr
--[=[ Precision:
0 - billion years
1 - hundred million years,
2 - ten million years,
3 - million years,
4 - hundred thousand years,
5 - ten thousand years,
6 - millenia,
7 - centuries,
8 - decades,
9 - years,
10 - months,
11 - days
12 - hours
13 - minutes
14 - seconds
]=]
local precision = math.min(snak.datavalue.value.precision, 9)
local year
local circa = ''
local start_times = {}
local end_times = {}
local start_years = {}
local end_years = {}
local start_year
local end_year
if statement.qualifiers then
-- Check if date is approximate
-- P1480 = sourcing circumstances, Q5727902 = circa
if statement.qualifiers.P1480 then
for _, qualifier in pairs(statement.qualifiers.P1480) do
if qualifier.datavalue and qualifier.datavalue.value.id == 'Q5727902' then
precision = precision - 1
circa = 'c. '
break
end
end
end
-- P580 = start time
if statement.qualifiers.P580 then
for k, v in pairs(statement.qualifiers.P580) do
local startt = getYearFromSingleStatement({mainsnak = v}, {nocat = true, noprint = false, ['table'] = true})
if startt then
table.insert(start_times, startt)
end
end
for k, v in pairs(start_times) do
table.insert(start_years, v.year)
end
start_years = tableTools.removeDuplicates(start_years)
table.sort(start_years)
if #start_years > 1 then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
start_year = start_years[1]
end
-- P582 = end time
if statement.qualifiers.P582 then
for k, v in pairs(statement.qualifiers.P582) do
local endt = getYearFromSingleStatement({mainsnak = v}, {nocat = true, noprint = false, ['table'] = true})
if endt then
table.insert(end_times, endt)
end
end
for k, v in pairs(end_times) do
table.insert(end_years, v.year)
end
end_years = tableTools.removeDuplicates(end_years)
table.sort(end_years)
if #end_years > 1 then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
end_year = end_years[1]
end
end
return table.concat({titleSpan, year, attr, section})
if precision < 9 then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
if precision < 7 then
if args['noprint'] then
year = ''
else
year = string.gsub(string.gsub(mw.wikibase.formatValue(statement.mainsnak), '^<span>', ''), '</span>$', '')
end
return circa .. year .. table.concat(cats)
end
local timestamp_info = getYearFromTimestamp(snak.datavalue.value.time)
year = timestamp_info.year
local bce = timestamp_info.bce
-- approximate year, precision 8: year - year % 10 for decade
-- approximate decade, precision 7: year - year % 100 for century
if circa ~= '' then
year = year - (year % math.pow(10, 9 - precision))
end
year = formatYear(year, precision)
if start_year and start_year ~= year then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
local printed_year = circa .. year .. bce
if (start_year or end_year) and start_year ~= end_year then
printed_year = circa .. (start_year or '') .. '–' .. (end_year or '') .. bce
end
if start_year and end_year and start_year ~= end_year then
local start_decade = start_year - start_year % 10
local end_decade = end_year - end_year % 10
local start_century = start_year - start_year % 100
local end_century = end_year - end_year % 100
if start_decade == end_decade then
table.insert(cats, '[[Category:' .. start_decade .. 's' .. bce .. ' works' .. ']]')
elseif start_century == end_century then
table.insert(cats, '[[Category:' .. formatYear(end_year, 7) .. bce .. ' works' .. ']]')
end
else
table.insert(cats, '[[Category:' .. year .. bce .. ' works' .. ']]')
end
if args['noprint'] then
printed_year = ''
end
if not args['nocat'] then
cats = tableTools.removeDuplicates(cats)
printed_year = printed_year .. table.concat(cats)
end
if args['table'] then
return {year = year, printed_year = printed_year, circa = circa, bce = bce}
end
return printed_year
end
local function parse_wikidata_year_and_categorise(args)
-- Fetch entity object for Wikidata item connected to the current page
-- Let manually-specified Wikidata ID override if given and valid
if not (args.wikidata and mw.wikibase.isValidEntityId(args.wikidata)) then
args.wikidata = mw.wikibase.getEntityIdForCurrentPage()
end
local item = mw.wikibase.getEntity(args.wikidata)
if not item then
return nil
end
local statements = item:getBestStatements('P577') -- publication date
if #statements == 0 then
return nil
end
local years = {}
for _, statement in pairs(statements) do
local year = getYearFromSingleStatement(statement, args)
if year then
table.insert(years, year)
end
end
local cat = ''
years = tableTools.removeDuplicates(years)
if #years == 0 then
return nil
elseif #years > 1 and not args['nocat'] then
cat = '[[Category:' .. 'Works of uncertain date' .. ']]'
end
return table.concat(years, '/') .. cat
end
local function parse_year_and_categorise(args)
if args['override-year'] then
return args['override-year']
end
local year = args['year']
-- Use Wikidata if year param is empty
if not year then
return parse_wikidata_year_and_categorise(args)
end
local cats = {}
local bce = ''
local circa = ''
local ret = ''
-- Extract common era info to make it easier to process
if string.match(year, "BCE$") then
bce = ' BCE'
year = string.gsub(year, '%s*BCE', '')
-- Also tag it as a non-numeric year
table.insert(cats, '[[Category:' .. 'Works with non-numeric dates' .. ']]')
end
-- If the year provided is a plain year (all digits)
if tonumber(year) then
table.insert(cats, '[[Category:' .. year .. bce .. ' works]]')
if not args['noprint'] then
ret = year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
-- For simple years we're done.
return ret
end
-- Add tracking category for all non-numeric dates
table.insert(cats, '[[Category:' .. 'Works with non-numeric dates' .. ']]')
-- Explicitly tagged as being of unknown date
if year == '?' or string.lower(year) == 'unknown' then
table.insert(cats, '[[Category:' .. 'Works of unknown date' .. ']]')
if not args['noprint'] then
ret = 'unknown'
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
-- For explicitly given unknown years we're done.
return ret
end
-- Now figure out a complex date
-- Year ranges
year = string.gsub(string.gsub(year, '%-', '–'), '—', '–')
-- Approximate years
-- Lua patterns can't do ^c(irca)?( |%.|/)* because they don't do alternation or apply quantifiers to groups
if string.match(year, '^circa') or string.match(year, '^c%s*%.') or string.match(year, '^c%s*/') then
circa = 'c. '
year = string.gsub(string.gsub(string.gsub(year, '^circa%s*', ''), '^c%s*%.%s*', ''), '^c%s*/%s*', '')
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
-- circa a specific year
if tonumber(year) then
year = tonumber(year)
local decade = (year - year % 10) .. 's'
table.insert(cats, '[[Category:' .. decade .. bce .. ' works]]')
if not args['noprint'] then
ret = circa .. year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
-- For approximate years with a known decade we're done
return ret
end
end
-- Check if it looks like a decade
if string.match(year, '^%d*0s$') then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
table.insert(cats, '[[Category:' .. year .. bce .. ' works]]')
-- For explicitly given decades we're done
if not args['noprint'] then
ret = circa .. year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
return ret
end
-- Or a century
-- Lua patterns can't do '^%d*(st|nd|rd|th) century$'
if string.match(year, '^%d*st century$') or string.match(year, '^%d*nd century$') or string.match(year, '^%d*rd century$') or string.match(year, '^%d*th century$') then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
table.insert(cats, '[[Category:' .. year .. bce .. ' works]]')
-- For explicitly given centuries we're done
if not args['noprint'] then
ret = circa .. year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
return ret
end
-- Or a range of years
local start_year, end_year
if string.match(year, '^%d*–%d*$') then
start_year, end_year = string.match(year, '^(%d*)–(%d*)$')
elseif string.match(year, '^%d*/%d*$') then
start_year, end_year = string.match(year, '^(%d*)/(%d*)$')
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
if start_year or end_year then
start_year = tonumber(start_year)
end_year = tonumber(end_year)
if start_year and end_year and start_year == end_year and circa == '' then
table.insert(cats, '[[Category:' .. start_year .. bce .. ' works' .. ']]')
if not args['noprint'] then
ret = circa .. start_year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
return ret
elseif start_year and end_year then
local start_decade = start_year - start_year % 10
local end_decade = end_year - end_year % 10
local start_century = start_year - start_year % 100
local end_century = end_year - end_year % 100
if start_decade == end_decade then
table.insert(cats, '[[Category:' .. start_decade .. 's' .. bce .. ' works' .. ']]')
elseif start_century == end_century then
table.insert(cats, '[[Category:' .. formatYear(end_year, 7) .. bce .. ' works' .. ']]')
end
elseif end_year then
table.insert(cats, '[[Category:' .. 'Works of uncertain date' .. ']]')
end
-- check isn't redundant since the year might just be –
if start_year or end_year then
if not args['noprint'] then
ret = circa .. year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
return ret
end
end
-- If we're here we didn't manage to parse it.
table.insert(cats, '[[Category:' .. 'Works with unrecognised dates' .. ']]')
if not args['noprint'] then
ret = circa .. year .. bce
end
if not args['nocat'] then
ret = ret .. table.concat(cats)
end
-- Return whatever we have and the tracking cats
return ret
end
local function construct_year(args)
local year = mw.html.create('span'):attr('id', 'header-year-text')
local year_args = {
['year'] = args['year'],
['override-year'] = args['override-year'],
noprint = yesno(args['noyear']) or false,
wikidata = args.wikidata
}
year_args['nocat'] = yesno(args['noyearcat'])
if year_args['nocat'] == nil then
if args.testing then
year_args['nocat'] = false
else
year_args['nocat'] = (
yesno(args['disambiguation']) -- Disambiguations never categorise
or not current_title:inNamespaces(0, 114) -- Only categorize in mainspace and Translation
or current_title.isSubpage -- Only categorise if this is a base page
)
end
end
local year_text = parse_year_and_categorise(year_args)
if year_text then
year:wikitext(year_text)
if year_args['noprint'] then
return tostring(year)
else
return ' (' .. tostring(year) .. ')'
end
elseif year_args['nocat'] then
return ''
else
return '[[Category:' .. 'Undated works' .. ']]'
end
end
--[=[
Assemble the title
]=]
local function header_title(args)
return table.concat({
tostring(mw.html.create('span'):attr('id', 'header-title-text'):wikitext(args.title)),
construct_year(args),
headerAttributions.construct_attributions(args),
headerAttributions.construct_section(args)
})
end
end
-- aliases
args.sortkey = args.defaultsort or args.sortkey
-- default values
args.template_name = args.template_name or 'Header'
args.title = args.title or parent_links({})
args.testing = yesno(args.testing) or current_title.fullText == 'Template:Header/testcases' or current_title.fullText == 'Template:Translation header/testcases'
args.testing = yesno(args.testing or current_title.fullText == 'Template:Header/testcases' or current_title.fullText == 'Template:Translation header/testcases')
-- add aliases to argsWithBlanks
args.nocat = yesno(args.nocat) or false
-- noyearcat has different behavior for nil and false
if args.nocat == true then
args.noyearcat = true
end
if args.language then
args.language_name = ISO_639_language_name(args.language)
end
args['language-required'] = yesno(args['language-required']) or false
-- add values to argsWithBlanks
for k, v in pairs(args) do
if not argsWithBlanks[k] then
end
-- default valuevalues for title and section (allow override by setting section to blank)
if not argsWithBlanks['title'] then
args['title'] = parent_links({})
argsWithBlanks['title'] = args['title']
end
if not argsWithBlanks['section'] and current_title.isSubpage then
args['section'] = current_title.subpageText
argsWithBlanks['section'] = args['section']
end
args.header_class = 'wst-header ws-header ws-noexport noprint dynlayout-exempt ' .. (args.header_class or '')
args.main_class = 'headertemplate'
args.notes_id = args.notes_id or 'navigationNotes'
-- title
args.main_title = header_title(args)
if args.template_name == 'Translation header' and args.language then
interwiki = tostring(mw.html.create('span'):addClass('interwiki-info'):attr('id', args.language):attr('title', '(original)'))
if args.original and (args.language_namelanguage == 'ang' or args.language == 'enm' or args.language == 'sco') then
-- cycle to mul.ws and back around to en.ws
if args.language == 'ang' or args.language == 'enm' or args.language == 'sco' then
interwiki = interwiki .. '[[' .. args.language .. ':en:' .. args.original .. ']]'
-- cycle to mul.ws and back around to en.ws
interwiki = interwikielseif args..original '[[' ..and args.language .. ':en:' ..and args.original ..language_name ']]'then
-- general interwiki link
else
interwiki = interwiki .. '[[' .. args.language .. ':' .. args.original .. ']]'
-- general interwiki link
interwiki = interwiki .. '[[' .. args.language .. ':' .. args.original .. ']]'
end
end
end
})
return headerStructure.get_noexport_stylesheet('Header') .. headerStructure.construct_header(args)
end
args.header_class = 'wst-translation-header'
args.template_name = 'Translation header'
args.main_id = 'translationheadertemplate'
args.notes_id = 'translation-notes'
args.notes_class = 'header-notes'
args.language_name = ISO_639_language_name(args.language)
return headerStructure.get_noexport_stylesheet('Translation header') .. p._header(args, argsWithBlanks)
end
| 