Viquidites

Mòdul:Wikidata: diferència entre les revisions

Exploració interactiva de l'historial
← Edició anteriorEdició següent →
Contingut suprimit Contingut afegit
actualització, correccions i millores diverses
actualització, correccions i millores menors
Línia 1:
-- version 2018061820180809 from master @cawiki
 
local p = {}
 
local wiki =
{
langcode = mw.language.getContentLanguage().code
}
 
-----------------------------------------------------------------------------
Linha 50 ⟶ 45:
},
["monolingualtext"] = '<span lang="%language">%text</span>',
["warnDump"] = "[[CategoriaCategory:FuncióCalled function 'Dump' delfrom mòdulmodule Wikidata]]",
["cite"] = { -- Cite web parameters
Linha 99 ⟶ 94:
 
loadI18n()
 
local wiki =
{
langcode = mw.language.getContentLanguage().code
}
 
local function findLang(langcode)
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
local myframe = mw.getCurrentFrame()
langcode = myframe.args.lang
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
langcode = myframe:getParent().args.lang
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
if not mw.title.new(myframe:getParent():getTitle()).isContentPage then
langcode = myframe:preprocess( '{{int:lang}}' )
end
if langcode == nil or langcode == "" or mw.language.isKnownLanguageTag(langcode) == false then
langcode = wiki.langcode
end
end
end
end
local languages = mw.language.getFallbacksFor(langcode)
table.insert(languages, 1, langcode)
return languages
end
 
local function case(word, localcase, lang)
Linha 106 ⟶ 127:
return cases[localcase](word, lang)
end
 
-- mw.wikibase.getLabelWithLang or getLabelByLang with a table of languages
local function getLabelByLangs(id, languages)
local label
local lang = languages[1]
if lang == wiki.langcode then
-- using getLabelWithLang when possible instead of getLabelByLang
label, lang = mw.wikibase.getLabelWithLang(id)
else
for _, l in ipairs(languages) do
label = mw.wikibase.getLabelByLang(id, l)
lang = l
if label then
break
end
end
end
return label, lang
end
 
-- Is gender femenine? true or false
local function feminineGender(id)
local entity = mw.wikibase.getEntityObject(id)
local genderClaims = entity.claims["P21"] -- sex or gender
if genderClaims then
local genderId = getValueOfClaim(genderClaims[1], nil, {["formatting"]="raw"})
if genderId == "Q6581072" or genderId == "Q1052281" or genderId == "Q43445" then -- female, transgender female, female organism
return true
end
end
return false
end
 
-- Fetch female form of label
local function feminineForm(id, lang)
local feminine_claims = findClaims(mw.wikibase.getEntityObject(id), 'P2521') -- female form of label
if feminine_claims then
for _, feminine_claim in ipairs(feminine_claims) do
local feminine_value = getValueOfClaim(feminine_claim, nil, {["formatting"]=lang, ["lang"]={lang}})
if feminine_value then
return feminine_value
end
end
end
end
 
-- Add a small pencil as icon for edit on Wikidata
local function addEditIcon(id, lang, uselang, icon)
if icon and lang ~= uselang then
return " [[File:Arbcom ru editing.svg|12px|" .. mw.message.new('Translate-taction-translate'):inLanguage(uselang):plain() .. "|link=d:" .. id .. "]]"
end
return ''
end
 
Linha 138 ⟶ 212:
end
braces = mw.ustring.gsub(braces, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1") -- escape magic characters
braces_expanded = mw.ustring.gsub(braces_expanded, "(%%[0-9])", "%%%1") -- no captures in replacement string, i.e. url %-coded
text = mw.ustring.gsub(text, "{{" .. braces .. "}}", braces_expanded)
end
Linha 151 ⟶ 226:
return expandBraces(mw.ustring.gsub(parameters.formatting, '$1', escaped_data), parameters.formatting)
elseif parameters.case then
return case(data, parameters.case, wiki.langcode)
else
return data
Linha 169 ⟶ 244:
else
local globenum = mw.text.split(data.globe, 'entity/')[2] -- http://www.wikidata.org/wiki/Q2
localif globetable = mw.loadDatapcall('require, "Module:Mapa cos celeste/dades'") then
local globetable = mw.loadData('Module:Mapa cos celeste/dades')
for _, globe in pairs(globetable.maps) do
iffor _, globe.wikidata ==in globenumpairs(globetable.maps) thendo
returnif globe.coord_globewikidata == globenum then
return globe.coord_globe
end
end
end
Linha 180 ⟶ 257:
end
 
local function printDatavalueQuantity(data, parameterparameters)
-- exemples: 277±1 Centímetre, 1,94 metre
local amount = data.amount
amount = mw.ustring.gsub(amount, "%+", "")
local sortkey = string.format("%09d", amount)
local langamount = mw.language.new(wiki.langcode):formatNum(tonumber(amount))
amount = lang:formatNum(tonumber(amount))
-- This is used to get the unit name for a numeric value
local suffix = ""
if parameterparameters.formatting == "unit" or parameterparameters.formatting == "unitcode" then
-- get the url for the unit entry on Wikidata:
local unitID = data.unit
Linha 196 ⟶ 272:
if mw.ustring.sub(unitID, 1, 1) == "Q" then
local unit_label = mw.wikibase.label(unitID)
suffixif =pcall(require, " " .. require("Module:Wikidata/Units").getUnit(amount, unit_label, unitID, parameter == "unitcode")then
suffix = " " .. require("Module:Wikidata/Units").getUnit(amount, unit_label, unitID, parameters.formatting == "unitcode")
else
suffix = " " .. unit_label or unitID
end
end
end
Linha 202 ⟶ 282:
end
 
local function printDatavalueTime(data, parameterparameters)
-- Dates and times are stored in ISO 8601 format
local timestamp = data.time
Linha 263 ⟶ 343:
ret = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(card)) .. addon
-- precision is year
elseif parameterparameters.formatting == 'Y' or precision == 9 then
ret = tostring(intyear) .. addon
-- precision is month
Linha 269 ⟶ 349:
timestamp = timestamp .. " + 1 day" -- formatDate yyyy-mm-00 returns the previous month
ret, _ = string.gsub(d(i18n.datetime[10]), " 0+", " ") -- supress leading zeros in year
elseif parameterparameters.formatting then
ret, _ = string.gsub(d(parameterparameters.formatting), "([ %[])0+", "%1") -- supress leading zeros in year optionally linked
else
ret, _ = string.gsub(d(i18n.datetime[11]), " 0+", " ")
Linha 279 ⟶ 359:
local function printDatavalueEntity(data, parameters)
local entityId = "Q" .. tostring(data['numeric-id'])
if parameters.formatting == 'raw' then
return entityId, entityId
end
local label, lang = mw.wikibase.getLabelWithLang(entityId)
local sitelink = mw.wikibase.sitelink(entityId)
local parameter = parameters.formatting
local labelcase = label or sitelink
if parameters.case == 'feminineform' and lang ~= nil then -- case gender and item is female
labelcase = feminineForm(entityId, lang) or labelcase
end
if parameters.case then
labelcase = case(labelcase, parameters.case, lang)
-- temporary track previous to fetch feminine from P2521
if parameters.case == 'feminine' and labelcase ~= (label or sitelink) then
local feminine_claims = findClaims(mw.wikibase.getEntityObject(entityId), 'P2521')
local feminine_value
if feminine_claims then
for _, feminine_claim in ipairs(feminine_claims) do
feminine_value = getValueOfClaim(feminine_claim, nil, {["formatting"]=wiki.langcode})
if feminine_value then
break
end
end
end
if feminine_claims == nil or labelcase ~= (feminine_value or '') then
require('Mòdul:utilitats').track("Wikidata/femení/" .. entityId)
require('Mòdul:utilitats').track("Wikidata/femení")
end
end
end
local ret1, ret2
if parameter == 'rawlabel' then
ret1 = entityId
ret2 = entityId
elseif parameter == 'label' then
ret1 = labelcase or entityId
ret2 = labelcase or entityId
Linha 319 ⟶ 385:
else
if parameter == "ucfirst" or parameter == "ucinternallink" then
labelcase = labelcase and mw.language.getContentLanguagenew(lang):ucfirst(labelcase)
-- only first of a list, reset formatting for next ones
if parameter == "ucinterlanllink" then
Linha 343 ⟶ 409:
end
 
local function printDatavalueMonolingualText(data, parameterparameters)
-- data fields: language [string], text [string]
local result = nil
if parameterparameters.formatting == "language" or parameterparameters.formatting == "text" then
result = data[parameterparameters.formatting]
elseif parameterparameters.formatting then
if data["language"] == wiki.langcode then
result = data["text"]
Linha 395 ⟶ 461:
 
local function getSnakValue(snak, parameters)
local parameter = parameters.formatting
if snak.snaktype == 'value' then
-- call the respective snak parser
Linha 403 ⟶ 468:
return printDatavalueString(snak.datavalue.value, parameters)
elseif snak.datavalue.type == "globecoordinate" then
return printDatavalueCoordinate(snak.datavalue.value, parameterparameters.formatting)
elseif snak.datavalue.type == "quantity" then
return printDatavalueQuantity(snak.datavalue.value, parameterparameters)
elseif snak.datavalue.type == "time" then
return printDatavalueTime(snak.datavalue.value, parameterparameters)
elseif snak.datavalue.type == 'wikibase-entityid' then
return printDatavalueEntity(snak.datavalue.value, parameters)
elseif snak.datavalue.type == 'monolingualtext' then
return printDatavalueMonolingualText(snak.datavalue.value, parameterparameters)
end
end
Linha 555 ⟶ 620:
 
function p.claim(frame)
if mw.title.new(frame:getParent():getTitle()).isContentPage andthen
if not mw.title.new(frame:getTitle()).isSubpage then
-- invoked from a content page and not invoking a module subpage
return printError("not-from-content-page")
end
end
return p._main(frame.args, frame:getParent().args)
Linha 572 ⟶ 639:
-- arguments
local property = string.upper(args["property"] or "")
local id = args["item"] or (pargs and pargs["item"]); if id == "" then id = nil end
local idgender = args["itemgender"]
Linha 578 ⟶ 644:
idgender = nil
end
local property = string.upper(args["property"] or "")
local qualifierId = {}
qualifierId[1] = args["qualifier"] and string.upper(args["qualifier"]) or nil
Linha 643 ⟶ 710:
local genderCase
if parameters.case == "gender" or idgender or parameters.formatting == "table" then
if feminineGender(idgender or id) then
local genderEntity = idgender and mw.wikibase.getEntityObject(idgender) or entity
genderCase = "feminineform"
local genderClaims = genderEntity.claims["P21"]
if parameters.case == "gender" or idgender then
if genderClaims then
parameters.case = genderCase
local genderId = getValueOfClaim(genderClaims[1], nil, {["formatting"]="raw"})
if genderId == "Q6581072" or genderId == "Q1052281" or genderId == "Q43445" then -- female, transgender female, female organism
genderCase = (parameters.case == "infoboxlabel") and "labelfeminine" or "feminine"
if parameters.case == "gender" or idgender then
parameters.case = genderCase
end
end
end
Linha 704 ⟶ 766:
params.case = parameters.case
end
if qual == property then qual = nil end -- hack for getting the property with another formatting, i.e. colformat1=raw
valueq, sortkeyq, _ = getValueOfClaim(claim, qual, params)
values[#values]["col" .. i] = valueq
Linha 926 ⟶ 989:
function p.getParentValues(frame)
local args = frame.args
local id = args["item"] or frame:getParent().args["item"]; if id == "" then id = nil end
local propertySup = args["property"]; if (propertySup == nil or propertySup == "") then propertySup = "P131" end --administrative entity
local propertyLabel = args["label"]; if (propertyLabel == nil or propertyLabel == "") then propertyLabel = "P31" end --instance
Linha 998 ⟶ 1.061:
args.formatting = "internallink"
args.separator = "/·/"
local pargs = frame:getParent().args
local link_list = p._main(args, pargs) -- get internal link of property/qualifier
if link_list == nil then
return
Linha 1.004 ⟶ 1.068:
local link_table = mw.text.split(link_list, "/·/", true)
args.formatting = "raw"
local items_list = p._main(args, pargs) -- get item of property/qualifier
local items_table = mw.text.split(items_list, "/·/", true)
args.property = args.parent
Linha 1.012 ⟶ 1.076:
for i, v in ipairs(items_table) do
args.item = v
local link_label = p._main(args, pargs) -- get label of parent property
if link_label then
link_table[i] = mw.ustring.gsub(link_table[1] or '', "%[%[(.*)%|.+%]%]", "[[%1|" .. link_label .. "]]")
Linha 1.120 ⟶ 1.184:
-- Gets a label in a given language (content language by default) or its fallbacks, optionnally linked.
function p.getLabel(frame)
local idargs = mw.text.trim(frame.args[1] or "")
local id = mw.text.trim(args[1] or "")
if id == "" then return end
local langcodeediticon = frame:getParentnot ()args.editicon == "false" or args.langediticon == "no")
local languages = findLang()
if langcode == nil or langcode == "" then
langcode = frame.args.lang
local label, lang
if langcode == nil or langcode == "" then
langcode if languages[1] == wiki.langcode and args.fixed then
label = require("Module:Wikidata/labels").infoboxLabelsFromId[id] -- exceptions or labels fixed
end
end
local label = mw.wikibase.getLabelByLang(id, langcode)
local pencil = ''
if label == nil then
label, lang = getLabelByLangs(id, languages)
local languages = mw.language.getFallbacksFor(langcode)
if label then
for _, l in ipairs(languages) do
if args.itemgender and feminineGender(args.itemgender) then
langcode = l
label = mw.wikibase.getLabelByLangfeminineForm(id, langcodelang) or label
if label then break end
label = mw.language.new(lang):ucfirst(mw.text.nowiki(label)) -- sanitize
end
pencil = addEditIcon(id, lang, languages[1], editicon)
end
if label then
local linked = args.linked
label = mw.language.new(langcode):ucfirst(mw.text.nowiki(label)) -- sanitize
end
local linked = frame.args.linked
if linked and linked ~= "" and linked ~= "no" then
local article = mw.wikibase.getSitelink(id) or ("d:" .. id)
return "[[" .. article .. "|" .. (label or id) .. "]]" .. pencil
else
return (label or id) .. pencil
end
end
Obtingut de «https://ca.wikiquote.org/wiki/Mòdul:Wikidata»