Module:User:Benwing2/category tree/topic cat/utilities

---

This module sandbox lacks a documentation subpage. You may create it.

Useful links: root page • root page’s subpages • links • transclusions • testcases • user page • user talk page • userspace

This is a private module sandbox of Benwing2, for their own experimentation. Items in this module may be added and removed at Benwing2's discretion; do not rely on this module's stability.

local export = {}

local rsplit = mw.text.split

-- Add links to `label`. It operates as follows:
-- 1. If the singular equivalent of the label (which will be the label itself if the label doesn't end in -s) exists as
--    a term in Wiktionary and `no_singularize` isn't specified, link the label to the singular equivalent.
-- 2. Otherwise link the label directly, if it exists (as a term in Wiktionary).
-- 3. Otherwise, if the label is multiword, split the label into words, singularize the last word (unless
--    `no_singularize` is specified), and attempt to link each word individually. This fails if any of the linked words
--    don't exist in Wiktionary.
-- 4. Otherwise, if the label is multiword, split the label into words and link each word individually as-is, including
--    the last one. This fails if any of the linked words don't exist in Wiktionary.
-- 5. Finally, return the label unchanged.
--
-- FIXME: This should probably check if an English term exists for each linked term rather than that the term exists at
-- all.
--
-- If `wikify` is given, just link the singular equivalent of the label to Wikipedia unless `no_singularize` is given,
-- in which case the label is linked as-is to Wikipedia.
--
-- The main use of `no_singularize` is with plural-form terms that also exist in the singular but have special meanings
-- in the plural that are different from the corresponding singular (e.g. [[acoustics]] is not the plural of
-- [[acoustic]], but will be incorrectly linked as [[acoustic]]s unless `no_singularize` is given).
function export.link_label(label, no_singularize, wikify)
	local function term_exists(term)
		local title = mw.title.new(term)
		return title and title.exists
	end

	local singular_label
	if not no_singularize then
		singular_label = require("Module:string utilities").singularize(label)
	end

	if wikify then
		if singular_label then
			return "[[w:" .. singular_label .. "|" .. label .. "]]"
		else
			return "[[w:" .. label .. "|" .. label .. "]]"
		end
	end

	-- First try to singularize the label as a whole, unless 'no singularize' was given. If the result exists,
	-- return it.
	if singular_label and term_exists(singular_label) then
		return "[[" .. singular_label .. "|" .. label .. "]]"
	elseif term_exists(label) then
		-- Then check if the original label as a whole exists, and return if so.
		return "[[" .. label .. "]]"
	else
		-- Otherwise, if the label is multiword, split into words and try the link each one, singularizing the last
		-- one unless 'no singularize' was given.
		local split_label
		if label:find(" ") then
			if not no_singularize then
				split_label = rsplit(label, " ")
				for i, word in ipairs(split_label) do
					if i == #split_label then
						local singular_word = require("Module:string utilities").singularize(word)
						if term_exists(singular_word) then
							split_label[i] = "[[" .. singular_word .. "|" .. word .. "]]"
						else
							split_label = nil
							break
						end
					else
						if term_exists(word) then
							split_label[i] = "[[" .. word .. "]]"
						else
							split_label = nil
							break
						end
					end
				end
				if split_label then
					split_label = table.concat(split_label, " ")
				end
			end

			-- If we weren't able to link individual words with the last word singularized, link all words as-is.
			if not split_label then
				split_label = rsplit(label, " ")
				for i, word in ipairs(split_label) do
					if term_exists(word) then
						split_label[i] = "[[" .. word .. "]]"
					else
						split_label = nil
						break
					end
				end
				if split_label then
					split_label = table.concat(split_label, " ")
				end
			end
		end

		return split_label or label
	end
end

return export