Module:WikiJournal/sandbox
Jump to navigation
Jump to search
Documentation for this module may be created at Module:WikiJournal/sandbox/doc
p = {}
-- Return the entity ID of the item linked to the current page.
function p.QID(frame)
if not mw.wikibase then
return "no mw.wikibase"
end
return mw.wikibase.getEntityIdForTitle( mw.title.getCurrentTitle().subjectPageTitle.text) or ""
end
--[[
Fetch info from Wikidata and format lists
Author info (name, employer, orcid)
--]]
function p.getAuthors(frame)
local args= frame.args
if not args.qid and not args[1] then
args = frame:getParent().args
end
local qid = mw.text.trim(args[1] or args.qid or "")
if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end
if not qid then return end
-- qualID is a string list of wanted qualifiers or "ALL"
local qualID = mw.text.trim(args.qual or ""):upper()
local allflag = (qualID == "ALL")
-- create table of wanted qualifiers as key
local qwanted = {}
-- create sequence of wanted qualifiers
local qorder = {}
for q in mw.text.gsplit(qualID, "%p") do -- split at punctuation and iterate
local qtrim = mw.text.trim(q)
if qtrim ~= "" then
qwanted[mw.text.trim(q)] = true
qorder[#qorder+1] = qtrim
end
end
-- construct a table of tables:
-- key = series ordinal;
-- value = {name=author's name, orcid=author's orcid id, emp=author's employer. quals = qualifiers}
local auths = {}
-- series ordinal = true when used
local ords = {}
-- list of employers
local emps = {}
-- keep track of values without series ordinals and max ordinal
local noord = 0
local maxord = 0
-- get authors that have entries
local prop50 = mw.wikibase.getBestStatements(qid, "P50")
for i, v in ipairs(prop50) do
if v.mainsnak.snaktype == "value" then
-- get author's qid
local authorqid = v.mainsnak.datavalue.value.id
-- get author's name
local name = mw.wikibase.getLabel(authorqid) or "No label"
-- get author's orcid id
local orcid
local orcidtbl = mw.wikibase.getBestStatements(authorqid, "P496")[1]
if orcidtbl and orcidtbl.mainsnak.snaktype == "value" then
orcid = orcidtbl.mainsnak.datavalue.value
end
-- get author's employer
local emp
local emptbl = mw.wikibase.getBestStatements(authorqid, "P108")[1]
if emptbl and emptbl.mainsnak.snaktype == "value" then
emp = mw.wikibase.getLabel(emptbl.mainsnak.datavalue.value.id)
end
-- get employer's location
local prop108 = mw.wikibase.getBestStatements(authorqid, "P108")
for i, v in ipairs(prop108) do
if v.mainsnak.snaktype == "value" then
-- get employer's qid
local employerqid = v.mainsnak.datavalue.value.id
-- get employer's name
local name = mw.wikibase.getLabel(employerqid) or "No label"
-- get employer's location
local emploc
local emploctbl = mw.wikibase.getBestStatements(employerqid, "P131")[1]
if emploc and emploc.mainsnak.snaktype == "value" then
emploc = emploc.mainsnak.datavalue.value
end
-- get employer's country
local empcon
local empcontbl = mw.wikibase.getBestStatements(employerqid, "P17")[1]
if empcon and empcontbl.mainsnak.snaktype == "value" then
empcon = mw.wikibase.getLabel(empcontbl.mainsnak.datavalue.value.id)
end
end
end
if emp then emps[emp] = true end
-- get author's qualifiers if wanted
local qtbl = {}
local qualtxt = ""
if v.qualifiers and (allflag or #qorder > 0) then
for prop, val in pairs(v.qualifiers) do
if allflag or qwanted[prop] then
-- render the first value of each qualifier
qtbl[#qtbl + 1] = mw.wikibase.renderSnak(val[1])
end
end
qualtxt = table.concat(qtbl, ", ") -- use comma space separators
end
-- get ordinal
local ordinal = noord
if v.qualifiers then
qualP1545 = v.qualifiers["P1545"][1]
if qualP1545 then
ordinal = tonumber(qualP1545.datavalue.value) or noord
end
end
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
auths[ordinal] = {name = name, orcid = orcid, emp = emp, emploc = emploc, empcon = empcon, quals = qualtxt}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- add author's name strings to the author's table
local propP2093 = mw.wikibase.getBestStatements(qid, "P2093")
for i, v in ipairs(propP2093) do
if v.mainsnak.snaktype == "value" then
local name = v.mainsnak.datavalue.value
local ordinal = noord
if v.qualifiers then
qualP1545 = v.qualifiers["P1545"][1]
if qualP1545 then
ordinal = tonumber(qualP1545.datavalue.value) or noord
end
end
-- get author string's qualifiers if wanted
local qtbl = {}
local qualtxt = ""
if v.qualifiers and (allflag or #qorder > 0) then
for prop, val in pairs(v.qualifiers) do
if allflag or qwanted[prop] then
-- render the first value of each qualifier
qtbl[#qtbl + 1] = mw.wikibase.renderSnak(val[1])
end
end
qualtxt = table.concat(qtbl, ", ") -- use comma space separators
end
-- get ordinal
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
auths[ordinal] = {name = name, quals = qualtxt}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- compact the auths table into a sequence
local authors = {}
for idx = 1, maxord do
if auths[idx] then table.insert(authors, auths[idx]) end
end
for idx = 0, noord, -1 do
if auths[idx] then table.insert(authors, auths[idx]) end
end
-- create a sequence of employers
local employers = {}
for k, v in pairs(emps) do
table.insert(employers, k)
end
-- construct some output
out = {}
for i, v in ipairs(authors) do
out[i] = v.name
if v.orcid then
out[i] = out[i] .. " [[file:ORCID_iD.svg|frameless|text-bottom|16px|link=https://orcid.org/" .. v.orcid .. " ]]"
end
if v.emp then
out[i] = out[i] .. " {{efn|name= " .. v.emp .. ", " .. v.emploc .. ", " .. v.empcon .."}}"
end
if v.quals ~= "" then
out[i] = out[i] .. frame:expandTemplate{title = 'efn-lr', args = {name=v.quals , v.quals} }
end
end
-- glue the list of authors together as a comma separated list
local returntxt = table.concat(out, ", ")
return returntxt
end
--[[
Author plain info (name only)
--]]
function p.getAuthorsPlain(frame)
local args= frame.args
if not args.qid and not args[1] then
args = frame:getParent().args
end
local qid = mw.text.trim(args[1] or args.qid or "")
if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end
if not qid then return end
-- construct a table of tables:
-- key = series ordinal;
-- value = {name=author's name}
local auths = {}
-- series ordinal = true when used
local ords = {}
-- keep track of values without series ordinals and max ordinal
local noord = 0
local maxord = 0
-- get authors that have entries
local prop50 = mw.wikibase.getBestStatements(qid, "P50")
for i, v in ipairs(prop50) do
if v.mainsnak.snaktype == "value" then
-- get author's qid
local nameid = v.mainsnak.datavalue.value.id
-- get author's name
local name = mw.wikibase.getLabel(nameid) or "No label"
-- get ordinal
local ordinal = noord
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
auths[ordinal] = {name = name}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- add author's name strings to the author's table
local propP2093 = mw.wikibase.getBestStatements(qid, "P2093")
for i, v in ipairs(propP2093) do
if v.mainsnak.snaktype == "value" then
local name = v.mainsnak.datavalue.value
local ordinal = noord
-- get ordinal
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
auths[ordinal] = {name = name}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- compact the auths table into a sequence
local authors = {}
for idx = 1, maxord do
if auths[idx] then table.insert(authors, auths[idx]) end
end
for idx = 0, noord, -1 do
if auths[idx] then table.insert(authors, auths[idx]) end
end
-- construct some output
out = {}
for i, v in ipairs(authors) do
out[i] = v.name
end
-- glue the list of authors together as a comma separated list
local returntxt = table.concat(out, ", ")
return returntxt
end
--[[
Editor info (name, role)
--]]
function p.getEditors(frame)
local args= frame.args
if not args.qid and not args[1] then
args = frame:getParent().args
end
local qid = mw.text.trim(args[1] or args.qid or "")
if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end
if not qid then return end
-- qualID is a string list of wanted qualifiers or "ALL"
local qualID = mw.text.trim(args.qual or ""):upper()
local allflag = (qualID == "ALL")
-- create table of wanted qualifiers as key
local qwanted = {}
-- create sequence of wanted qualifiers
local qorder = {}
for q in mw.text.gsplit(qualID, "%p") do -- split at punctuation and iterate
local qtrim = mw.text.trim(q)
if qtrim ~= "" then
qwanted[mw.text.trim(q)] = true
qorder[#qorder+1] = qtrim
end
end
-- construct a table of tables:
-- key = series ordinal;
-- value = {name=editor's name, orcid=editor's orcid id, quals=qualtxt}
local eds = {}
-- series ordinal = true when used
local ords = {}
-- list of roles
local roles = {}
-- keep track of values without series ordinals and max ordinal
local noord = 0
local maxord = 0
-- get editors that have entries
local prop98 = mw.wikibase.getBestStatements(qid, "P98")
for i, v in ipairs(prop98) do
if v.mainsnak.snaktype == "value" then
-- get editor's qid
local nameid = v.mainsnak.datavalue.value.id
-- get editor's name
local name = mw.wikibase.getLabel(nameid) or "No label"
-- get editor's orcid id
local orcid
local orcidtbl = mw.wikibase.getBestStatements(nameid, "P496")[1]
if orcidtbl and orcidtbl.mainsnak.snaktype == "value" then
orcid = orcidtbl.mainsnak.datavalue.value
end
-- get editor's qualifiers if wanted
local qtbl = {}
local qualtxt = ""
if v.qualifiers and (allflag or #qorder > 0) then
for prop, val in pairs(v.qualifiers) do
if allflag or qwanted[prop] then
-- render the first value of each qualifier
qtbl[#qtbl + 1] = mw.wikibase.renderSnak(val[1])
end
end
qualtxt = table.concat(qtbl, ", ") -- use comma space separators
end
-- get ordinal
local ordinal = noord
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
eds[ordinal] = {name = name, orcid = orcid, quals = qualtxt}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- compact the eds table into a sequence
local editors = {}
for idx = 1, maxord do
if eds[idx] then table.insert(editors, eds[idx]) end
end
for idx = 0, noord, -1 do
if eds[idx] then table.insert(editors, eds[idx]) end
end
-- construct some output
out = {}
for i, v in ipairs(editors) do
out[i] = v.name
if v.orcid then
out[i] = out[i] .. " [[file:ORCID_iD.svg|frameless|text-bottom|16px|link=https://orcid.org/" .. v.orcid .. " ]]"
end
if v.role then
out[i] = out[i] .. " (" .. v.orcid .. ")"
end
if v.quals ~= "" then
out[i] = out[i] .. " <small>(" .. v.quals ..")</small>"
end
end
-- glue the list of editors together as a vertical list
local returntxt = "<p>" .. table.concat(out, "<br>") .. "</p>"
return returntxt
end
--[[
Reviewer info (name, orcid)
--]]
function p.getReviewers(frame)
local args= frame.args
if not args.qid and not args[1] then
args = frame:getParent().args
end
local qid = mw.text.trim(args[1] or args.qid or "")
if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end
if not qid then return end
-- construct a table of tables:
-- key = series ordinal;
-- value = {name=reviewer's name, orcid=reviewer's orcid id, role=reviewer's role}
local eds = {}
-- series ordinal = true when used
local ords = {}
-- list of roles
local roles = {}
-- keep track of values without series ordinals and max ordinal
local noord = 0
local maxord = 0
-- get reviewers that have entries
local prop4032 = mw.wikibase.getBestStatements(qid, "P4032")
for i, v in ipairs(prop4032) do
if v.mainsnak.snaktype == "value" then
-- get reviewer's qid
local nameid = v.mainsnak.datavalue.value.id
-- get reviewer's name
local name = mw.wikibase.getLabel(nameid) or "No label"
-- get reviewer's orcid id
local orcid
local orcidtbl = mw.wikibase.getBestStatements(nameid, "P496")[1]
if orcidtbl and orcidtbl.mainsnak.snaktype == "value" then
orcid = orcidtbl.mainsnak.datavalue.value
end
-- get ordinal
local ordinal = noord
if ordinal == noord then noord = noord -1 end
-- check for a duplicate ordinal
if ords[ordinal] then
repeat ordinal = ordinal + 1 until not ords[ordinal]
end
eds[ordinal] = {name = name, orcid = orcid}
ords[ordinal] = true
if ordinal > maxord then maxord = ordinal end
end
end
-- compact the eds table into a sequence
local reviewers = {}
for idx = 1, maxord do
if eds[idx] then table.insert(reviewers, eds[idx]) end
end
for idx = 0, noord, -1 do
if eds[idx] then table.insert(reviewers, eds[idx]) end
end
-- construct some output
out = {}
for i, v in ipairs(reviewers) do
out[i] = v.name
if v.orcid then
out[i] = out[i] .. " [[file:ORCID_iD.svg|frameless|text-bottom|16px|link=https://orcid.org/" .. v.orcid .. " ]]"
end
end
-- glue the list of reviewers together as a vertical list
local returntxt = "<p>" .. table.concat(out, "<br>") .. "</p>"
return returntxt
end
--[[
Extract fig from article (page, fig_number)
--]]
local Transcluder = require('Module:Transcluder')
-- Helper function to handle errors
function getError(message, value)
if type(message) == 'string' then
message = Transcluder.getError(message, value)
end
return message
end
function p.getFig(frame)
local args = Transcluder.parseArgs(frame)
-- Make sure the requested page exists
local page = args[1]
if not page then return getError('no-page') end
local title = mw.title.new(page)
if not title then return getError('no-page') end
if title.isRedirect then title = title.redirectTarget end
if not title.exists then return getError('page-not-found', page) end
page = title.prefixedText
-- Get the nth fig file
local ok, figs = pcall(Transcluder.get, page, { only = 'templates', templates = 'fig' })
if ok then
local fig = Transcluder.getTemplates(figs, args.fig_number)[1]
local parameters = Transcluder.getParameters(fig)
local file = parameters['image']
local caption = parameters['caption'] or ''
output = file
end
return output
end
return p