مۆدیوول:category tree/ws topic cat
ڕواڵەت
"بەڵگەدارکردنی ئەم مۆدیوولە دەکرێ لە مۆدیوول:category tree/ws topic cat/docدا دروست بکرێ"
local export = {}
local topic_cat = require("Module:category tree/topic cat")
local poscatboiler = require("Module:category tree/poscatboiler")
-- Short-circuit some unnecessarily long category trees by
-- replacing certain parent categories, when encountered, with other ones
local parent_substitutions = {}
parent_substitutions['thesaurus-only categories'] = 'all topics'
parent_substitutions['architecture'] = 'all topics'
parent_substitutions['atmosphere'] = 'nature'
parent_substitutions['businesses'] = 'food and drink' -- for Restaurants
parent_substitutions['divination'] = 'occult'
parent_substitutions['drinking'] = 'food and drink'
parent_substitutions['earth sciences'] = 'all topics' -- for Geography
parent_substitutions['eating'] = 'food and drink'
parent_substitutions['employment'] = 'economics'
parent_substitutions['formal sciences'] = 'sciences'
parent_substitutions['geometry'] = 'mathematics'
parent_substitutions['human activity'] = 'human behaviour'
parent_substitutions['justice'] = 'society'
parent_substitutions['language'] = 'communication'
parent_substitutions['medical signs and symptoms'] = 'health'
parent_substitutions['politics'] = 'society'
parent_substitutions['senses'] = 'perception'
parent_substitutions['social sciences'] = 'all topics'
-- Makes a "ws topic cat" object out of a "topic cat" object.
local function convert_topic_cat_to_ws_topic_cat(result)
-- substituted category names are not allowed
if parent_substitutions[result._info.label] ~= nil then
error(('This category is not allowed as a Thesaurus category. "%s" (see the list of parent substitutions at [[Module:category tree/ws topic cat]])'):format(result:getCategoryName()))
end
-- keep a copy of the topic cat object's metatable so
-- we can call its functions from our overrides
local metatable = getmetatable(result)
-- override certain functions on the topic cat object with
-- {{ws topic cat}}-specific functions
function result:getCategoryName()
return 'Thesaurus:' .. metatable.getCategoryName(result)
end
function result:getDescription(isChild)
local desc = metatable.getDescription(result)
desc = mw.ustring.gsub(desc, ' terms([ .,])', ' thesaurus entries%1')
desc = mw.ustring.gsub(desc, 'Category:', 'Category:Thesaurus:')
desc = mw.ustring.gsub(desc, "'''NOTE.+$", '')
return desc
end
function result:getParents()
local parents = metatable.getParents(result)
for key, parent in pairs(parents) do
-- Process parent categories as follows:
-- 1. skip non-topic cats and meta-categories that start with "List of"
-- 2. map "en:All topics" to "English thesaurus entries" (and same for other languages), but map "All topics" itself to the root "Thesaurus" category
-- 3. check if this parent is to be substituted, if so, substitute it
-- 4. prepend "Thesaurus:" to all other category names
if parent.name._info == nil or parent.name._info.raw ~= nil or string.sub(parent.name._info.label, 1, 8) == 'list of ' then
table.remove(parents, key)
elseif parent.name._info.label == 'all topics' or parent_substitutions[parent.name._info.label] == 'all topics' then
if parent.name._lang == nil then
parent.name = 'Category:Thesaurus' -- TODO this cat needs to be Lua-ised
parent.sort = string.lower(result._info.label)
else
parent.name = poscatboiler.new({ code = parent.name._info.code, label = 'thesaurus entries' })
end
elseif parent_substitutions[parent.name._info.label] ~= nil then
parent.name = convert_topic_cat_to_ws_topic_cat(topic_cat.new({
code = parent.name._info.code,
label = parent_substitutions[parent.name._info.label]
}))
else
parent.name = convert_topic_cat_to_ws_topic_cat(parent.name)
end
end
-- add the non-thesaurus version of this category as a parent, unless it is a thesaurus-only category
if result._data.thesaurusonly == nil then
table.insert(parents, { name = topic_cat.new(result._info), sort = ' ' })
end
return parents
end
function result:getUmbrella()
if not result._lang then
return nil
end
local uinfo = mw.clone(result._info)
uinfo.code = nil
return export.new(uinfo)
end
return result
end
function export.new_main(frame)
local params = {
[1] = {},
[2] = {required = true},
["sc"] = {},
}
args = require("Module:parameters").process(frame:getParent().args, params, nil, "category tree/ws topic cat", "new_main")
return export.new({code = args[1], label = args[2]})
end
function export.new(info)
return convert_topic_cat_to_ws_topic_cat(topic_cat.new(info))
end
return export