پودمان:Hatnote list - تاریخچهٔ نسخه‌ها

Nazarzadeh: ۱ نسخه واردشده

2022-12-13T15:19:09Z

۱ نسخه واردشده

→ نسخهٔ قدیمی‌تر	نسخهٔ ‏۱۳ دسامبر ۲۰۲۲، ساعت ۱۸:۴۹
(بدون تفاوت)

fa>Jeeputer در ‏۱ فوریهٔ ۲۰۲۲، ساعت ۲۳:۱۳

2022-02-01T23:13:05Z

→ نسخهٔ قدیمی‌تر		نسخهٔ ‏۲ فوریهٔ ۲۰۲۲، ساعت ۰۲:۴۳
خط ۹:		خط ۹:

	local mArguments --initialize lazily		local mArguments --initialize lazily
			local mFormatLink = require('Module:Format link')
	local mHatnote = require('Module:Hatnote')		local mHatnote = require('Module:Hatnote')
	local libraryUtil = require('libraryUtil')		local libraryUtil = require('libraryUtil')
خط ۲۹:		خط ۳۰:
	formatted = false		formatted = false
	}		}

			--Searches display text only
			local function searchDisp(haystack, needle)
			return mw.ustring.find(
			mw.ustring.sub(haystack, (mw.ustring.find(haystack, '\|') or 0) + 1), needle
			)
			end

	-- Stringifies a list generically; probably shouldn't be used directly		-- Stringifies a list generically; probably shouldn't be used directly
	function stringifyList(list, options)		local function stringifyList(list, options)
	-- Type-checks, defaults, and a shortcut		-- Type-checks, defaults, and a shortcut
	checkType("stringifyList", 1, list, "table")		checkType("stringifyList", 1, list, "table")
خط ۴۲:		خط ۵۰:
	local s = options.space		local s = options.space
	-- Format the list if requested		-- Format the list if requested
	if options.formatted then list = ~~mHatnote~~.formatPages(~~unpack(~~list)) end		if options.formatted then
			list = mFormatLink.formatPages(
			{categorizeMissing = mHatnote.missingTargetCat}, list
			)
			end
	-- Set the separator; if any item contains it, use the alternate separator		-- Set the separator; if any item contains it, use the alternate separator
	local separator = options.separator		local separator = options.separator
	~~--searches display text only~~
	~~function searchDisp(t, f)~~
	~~return string.find(string.sub(t, (string.find(t, '\|') or 0) + 1), f)~~
	~~end~~
	for k, v in pairs(list) do		for k, v in pairs(list) do
	if searchDisp(v, separator) then		if searchDisp(v, separator) then
خط ۶۵:		خط ۷۳:

	--DRY function		--DRY function
	function conjList (conj, list, fmt)		function p.conjList (conj, list, fmt)
	return stringifyList(list, {conjunction = conj, formatted = fmt})		return stringifyList(list, {conjunction = conj, formatted = fmt})
	end		end

	-- Stringifies lists with "and" or "or"		-- Stringifies lists with "and" or "or"
	function p.andList (...) return conjList("و", ...) end		function p.andList (...) return p.conjList("و", ...) end
	function p.orList (...) return conjList("یا", ...) end		function p.orList (...) return p.conjList("یا", ...) end

	--------------------------------------------------------------------------------		--------------------------------------------------------------------------------
خط ۸۵:		خط ۹۳:
	title = mw.title.getCurrentTitle().text,		title = mw.title.getCurrentTitle().text,
	otherText = 'دیگر کاربردها',		otherText = 'دیگر کاربردها',
	forSeeForm = 'برای %s، %s را ببینید.'		forSeeForm = 'برای %s %s را ببینید.',
	}		}

	--Collapses duplicate punctuation		--Collapses duplicate punctuation
	function punctuationCollapse (text)		local function punctuationCollapse (text)
	local replacements = {		local replacements = {
	["%.%.$"] = ".",		["%.%.$"] = ".",
	["%?%.$"] = "؟",		["%؟%.$"] = "؟",
	["%!%.$"] = "!",		["%!%.$"] = "!",
	["%.%]%]%.$"] = ".]]",		["%.%]%]%.$"] = ".]]",
	["%?%]%]%.$"] = "؟]]",		["%؟%]%]%.$"] = "؟]]",
	["%!%]%]%.$"] = "!]]"		["%!%]%]%.$"] = "!]]"
	}		}
	for k, v in pairs(replacements) do text = ~~string~~.gsub(text, k, v) end		for k, v in pairs(replacements) do text = mw.ustring.gsub(text, k, v) end
	return text		return text
	end		end
خط ۱۲۵:		خط ۱۳۳:
	local i = from		local i = from
	local terminated = false		local terminated = false
			-- If there is extra text, and no arguments are given, give nil value
			-- to not produce default of "For other uses, see foo (disambiguation)"
			if options.extratext and i > maxArg then return nil end
	-- Loop to generate rows		-- Loop to generate rows
	repeat		repeat
خط ۱۵۷:		خط ۱۶۸:
	function p.forSeeTableToString (forSeeTable, options)		function p.forSeeTableToString (forSeeTable, options)
	-- Type-checks and defaults		-- Type-checks and defaults
	checkType("forSeeTableToString", 1, forSeeTable, "table")		checkType("forSeeTableToString", 1, forSeeTable, "table", true)
	checkType("forSeeTableToString", 2, options, "table", true)		checkType("forSeeTableToString", 2, options, "table", true)
	options = options or {}		options = options or {}
خط ۱۶۵:		خط ۱۷۶:
	-- Stringify each for-see item into a list		-- Stringify each for-see item into a list
	local strList = {}		local strList = {}
	for k, v in pairs(forSeeTable) do		if forSeeTable then
	local useStr = v.use or options.otherText		for k, v in pairs(forSeeTable) do
	local pagesStr = p.andList(v.pages, true) or		local useStr = v.use or options.otherText
	mHatnote.~~_formatLink(~~mHatnote.disambiguate(options.title))		local pagesStr =
	local forSeeStr = ~~string~~.format(options.forSeeForm, useStr, pagesStr)		p.andList(v.pages, true) or
	forSeeStr = punctuationCollapse(forSeeStr)		mFormatLink._formatLink{
	table.insert(strList, forSeeStr)		categorizeMissing = mHatnote.missingTargetCat,
			link = mHatnote.disambiguate(options.title)
			}
			local forSeeStr = mw.ustring.format(options.forSeeForm, useStr, pagesStr)
			forSeeStr = punctuationCollapse(forSeeStr)
			table.insert(strList, forSeeStr)
			end
	end		end
			if options.extratext then table.insert(strList, punctuationCollapse(options.extratext..'.')) end
	-- Return the concatenated list		-- Return the concatenated list
	return table.concat(strList, ' ')		return table.concat(strList, ' ')

Nazarzadeh: ۱ نسخه واردشده

2021-05-16T07:16:05Z

۱ نسخه واردشده

→ نسخهٔ قدیمی‌تر	نسخهٔ ‏۱۶ مهٔ ۲۰۲۱، ساعت ۱۰:۴۶
(بدون تفاوت)

fa>Jeeputer: مختصرتر = بهتر

2021-05-04T04:39:53Z

مختصرتر = بهتر

→ نسخهٔ قدیمی‌تر		نسخهٔ ‏۴ مهٔ ۲۰۲۱، ساعت ۰۸:۰۹
خط ۲۳:		خط ۲۳:
	--default options table used across the list stringification functions		--default options table used across the list stringification functions
	local stringifyListDefaultOptions = {		local stringifyListDefaultOptions = {
	conjunction = "~~and~~",		conjunction = "و",
	separator = ",",		separator = "،",
	altSeparator = ";",		altSeparator = "؛",
	space = " ",		space = " ",
	formatted = false		formatted = false
خط ۴۶:		خط ۴۶:
	local separator = options.separator		local separator = options.separator
	--searches display text only		--searches display text only
	~~local~~ function searchDisp(t, f)		function searchDisp(t, f)
	return string.find(string.sub(t, (string.find(t, '\|') or 0) + 1), f)		return string.find(string.sub(t, (string.find(t, '\|') or 0) + 1), f)
	end		end
خط ۷۰:		خط ۷۰:

	-- Stringifies lists with "and" or "or"		-- Stringifies lists with "and" or "or"
	function p.andList (...) return conjList("~~and~~", ...) end		function p.andList (...) return conjList("و", ...) end
	function p.orList (...) return conjList("or", ...) end		function p.orList (...) return conjList("یا", ...) end

	--------------------------------------------------------------------------------		--------------------------------------------------------------------------------
خط ۸۲:		خط ۸۲:
	--default options table used across the forSee family of functions		--default options table used across the forSee family of functions
	local forSeeDefaultOptions = {		local forSeeDefaultOptions = {
	andKeyword = '~~and~~',		andKeyword = 'و',
	title = mw.title.getCurrentTitle().text,		title = mw.title.getCurrentTitle().text,
	otherText = '~~other uses~~',		otherText = 'دیگر کاربردها',
	forSeeForm = '~~For~~ %~~s, see~~ %s.',		forSeeForm = 'برای %s، %s را ببینید.'
	}		}

خط ۹۲:		خط ۹۲:
	local replacements = {		local replacements = {
	["%.%.$"] = ".",		["%.%.$"] = ".",
	["%?%.$"] = "?",		["%?%.$"] = "؟",
	["%!%.$"] = "!",		["%!%.$"] = "!",
	["%.%]%]%.$"] = ".]]",		["%.%]%]%.$"] = ".]]",
	["%?%]%]%.$"] = "?]]",		["%?%]%]%.$"] = "؟]]",
	["%!%]%]%.$"] = "!]]"		["%!%]%]%.$"] = "!]]"
	}		}
خط ۱۲۵:		خط ۱۲۵:
	local i = from		local i = from
	local terminated = false		local terminated = false
	~~-- If there is extra text, and no arguments are given, give nil value~~
	~~-- to not produce default of "For other uses, see foo (disambiguation)"~~
	~~if options.extratext and i > maxArg then return nil end~~
	-- Loop to generate rows		-- Loop to generate rows
	repeat		repeat
خط ۱۶۰:		خط ۱۵۷:
	function p.forSeeTableToString (forSeeTable, options)		function p.forSeeTableToString (forSeeTable, options)
	-- Type-checks and defaults		-- Type-checks and defaults
	checkType("forSeeTableToString", 1, forSeeTable, "table"~~, true~~)		checkType("forSeeTableToString", 1, forSeeTable, "table")
	checkType("forSeeTableToString", 2, options, "table", true)		checkType("forSeeTableToString", 2, options, "table", true)
	options = options or {}		options = options or {}
خط ۱۶۸:		خط ۱۶۵:
	-- Stringify each for-see item into a list		-- Stringify each for-see item into a list
	local strList = {}		local strList = {}
	~~if forSeeTable then~~		for k, v in pairs(forSeeTable) do
	for k, v in pairs(forSeeTable) do		local useStr = v.use or options.otherText
	local useStr = v.use or options.otherText		local pagesStr = p.andList(v.pages, true) or
	local pagesStr = p.andList(v.pages, true) or mHatnote._formatLink~~{link =~~ mHatnote.disambiguate(options.title)}		mHatnote._formatLink(mHatnote.disambiguate(options.title))
	local forSeeStr = string.format(options.forSeeForm, useStr, pagesStr)		local forSeeStr = string.format(options.forSeeForm, useStr, pagesStr)
	forSeeStr = punctuationCollapse(forSeeStr)		forSeeStr = punctuationCollapse(forSeeStr)
	table.insert(strList, forSeeStr)		table.insert(strList, forSeeStr)
	~~end~~
	end		end
	~~if options.extratext then table.insert(strList, punctuationCollapse(options.extratext..'.')) end~~
	-- Return the concatenated list		-- Return the concatenated list
	return table.concat(strList, ' ')		return table.concat(strList, ' ')

Nazarzadeh: ۱ نسخه واردشده

2021-03-10T10:24:54Z

۱ نسخه واردشده

→ نسخهٔ قدیمی‌تر	نسخهٔ ‏۱۰ مارس ۲۰۲۱، ساعت ۱۳:۵۴
(بدون تفاوت)

Nazarzadeh: ۱ نسخه واردشده

2020-09-22T11:05:45Z

۱ نسخه واردشده

→ نسخهٔ قدیمی‌تر	نسخهٔ ‏۲۲ سپتامبر ۲۰۲۰، ساعت ۱۴:۳۵
(بدون تفاوت)

en>Mr. Stradivarius: switch back to Module:Hatnote instead of Module:Hatnote/sandbox

2020-06-16T15:02:40Z

switch back to Module:Hatnote instead of Module:Hatnote/sandbox

→ نسخهٔ قدیمی‌تر		نسخهٔ ‏۱۶ ژوئن ۲۰۲۰، ساعت ۱۸:۳۲
خط ۲۳:		خط ۲۳:
	--default options table used across the list stringification functions		--default options table used across the list stringification functions
	local stringifyListDefaultOptions = {		local stringifyListDefaultOptions = {
	conjunction = "و",		conjunction = "and",
	separator = "،",		separator = ",",
	altSeparator = "؛",		altSeparator = ";",
	space = " ",		space = " ",
	formatted = false		formatted = false
خط ۴۶:		خط ۴۶:
	local separator = options.separator		local separator = options.separator
	--searches display text only		--searches display text only
	function searchDisp(t, f)		local function searchDisp(t, f)
	return string.find(string.sub(t, (string.find(t, '\|') or 0) + 1), f)		return string.find(string.sub(t, (string.find(t, '\|') or 0) + 1), f)
	end		end
خط ۷۰:		خط ۷۰:

	-- Stringifies lists with "and" or "or"		-- Stringifies lists with "and" or "or"
	function p.andList (...) return conjList("و", ...) end		function p.andList (...) return conjList("and", ...) end
	function p.orList (...) return conjList("یا", ...) end		function p.orList (...) return conjList("or", ...) end

	--------------------------------------------------------------------------------		--------------------------------------------------------------------------------
خط ۸۲:		خط ۸۲:
	--default options table used across the forSee family of functions		--default options table used across the forSee family of functions
	local forSeeDefaultOptions = {		local forSeeDefaultOptions = {
	andKeyword = 'و',		andKeyword = 'and',
	title = mw.title.getCurrentTitle().text,		title = mw.title.getCurrentTitle().text,
	otherText = '~~دیگر کاربردها~~',		otherText = 'other uses',
	forSeeForm = '~~برای~~ %s، %s ~~را مشاهده کنید~~.'		forSeeForm = 'For %s, see %s.',
	}		}

خط ۹۲:		خط ۹۲:
	local replacements = {		local replacements = {
	["%.%.$"] = ".",		["%.%.$"] = ".",
	["%?%.$"] = "؟",		["%?%.$"] = "?",
	["%!%.$"] = "!",		["%!%.$"] = "!",
	["%.%]%]%.$"] = ".]]",		["%.%]%]%.$"] = ".]]",
	["%?%]%]%.$"] = "؟]]",		["%?%]%]%.$"] = "?]]",
	["%!%]%]%.$"] = "!]]"		["%!%]%]%.$"] = "!]]"
	}		}
خط ۱۲۵:		خط ۱۲۵:
	local i = from		local i = from
	local terminated = false		local terminated = false
			-- If there is extra text, and no arguments are given, give nil value
			-- to not produce default of "For other uses, see foo (disambiguation)"
			if options.extratext and i > maxArg then return nil end
	-- Loop to generate rows		-- Loop to generate rows
	repeat		repeat
خط ۱۵۷:		خط ۱۶۰:
	function p.forSeeTableToString (forSeeTable, options)		function p.forSeeTableToString (forSeeTable, options)
	-- Type-checks and defaults		-- Type-checks and defaults
	checkType("forSeeTableToString", 1, forSeeTable, "table")		checkType("forSeeTableToString", 1, forSeeTable, "table", true)
	checkType("forSeeTableToString", 2, options, "table", true)		checkType("forSeeTableToString", 2, options, "table", true)
	options = options or {}		options = options or {}
خط ۱۶۵:		خط ۱۶۸:
	-- Stringify each for-see item into a list		-- Stringify each for-see item into a list
	local strList = {}		local strList = {}
	for k, v in pairs(forSeeTable) do		if forSeeTable then
	local useStr = v.use or options.otherText		for k, v in pairs(forSeeTable) do
	local pagesStr = p.andList(v.pages, true) or		local useStr = v.use or options.otherText
	mHatnote._formatLink(mHatnote.disambiguate(options.title))		local pagesStr = p.andList(v.pages, true) or mHatnote._formatLink{link = mHatnote.disambiguate(options.title)}
	local forSeeStr = string.format(options.forSeeForm, useStr, pagesStr)		local forSeeStr = string.format(options.forSeeForm, useStr, pagesStr)
	forSeeStr = punctuationCollapse(forSeeStr)		forSeeStr = punctuationCollapse(forSeeStr)
	table.insert(strList, forSeeStr)		table.insert(strList, forSeeStr)
			end
	end		end
			if options.extratext then table.insert(strList, punctuationCollapse(options.extratext..'.')) end
	-- Return the concatenated list		-- Return the concatenated list
	return table.concat(strList, ' ')		return table.concat(strList, ' ')

fa>Huji: مطابقت با دیگر الگوها

2018-08-06T12:02:13Z

مطابقت با دیگر الگوها

صفحهٔ تازه

--------------------------------------------------------------------------------
-- Module:Hatnote list --
-- --
-- This module produces and formats lists for use in hatnotes. In particular, --
-- it implements the for-see list, i.e. lists of "For X, see Y" statements, --
-- as used in {{about}}, {{redirect}}, and their variants. Also introduced --
-- are andList & orList helpers for formatting lists with those conjunctions. --
--------------------------------------------------------------------------------

local mArguments --initialize lazily
local mHatnote = require('Module:Hatnote')
local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType
local p = {}

--------------------------------------------------------------------------------
-- List stringification helper functions
--
-- These functions are used for stringifying lists, usually page lists inside
-- the "Y" portion of "For X, see Y" for-see items.
--------------------------------------------------------------------------------

--default options table used across the list stringification functions
local stringifyListDefaultOptions = {
conjunction = "و",
separator = "،",
altSeparator = "؛",
space = " ",
formatted = false
}

-- Stringifies a list generically; probably shouldn't be used directly
function stringifyList(list, options)
-- Type-checks, defaults, and a shortcut
checkType("stringifyList", 1, list, "table")
if #list == 0 then return nil end
checkType("stringifyList", 2, options, "table", true)
options = options or {}
for k, v in pairs(stringifyListDefaultOptions) do
if options[k] == nil then options[k] = v end
end
local s = options.space
-- Format the list if requested
if options.formatted then list = mHatnote.formatPages(unpack(list)) end
-- Set the separator; if any item contains it, use the alternate separator
local separator = options.separator
--searches display text only
function searchDisp(t, f)
return string.find(string.sub(t, (string.find(t, '|') or 0) + 1), f)
end
for k, v in pairs(list) do
if searchDisp(v, separator) then
separator = options.altSeparator
break
end
end
-- Set the conjunction, apply Oxford comma, and force a comma if #1 has "§"
local conjunction = s .. options.conjunction .. s
if #list == 2 and searchDisp(list[1], "§") or #list > 2 then
conjunction = separator .. conjunction
end
-- Return the formatted string
return mw.text.listToText(list, separator .. s, conjunction)
end

--DRY function
function conjList (conj, list, fmt)
return stringifyList(list, {conjunction = conj, formatted = fmt})
end

-- Stringifies lists with "and" or "or"
function p.andList (...) return conjList("و", ...) end
function p.orList (...) return conjList("یا", ...) end

--------------------------------------------------------------------------------
-- For see
--
-- Makes a "For X, see [[Y]]." list from raw parameters. Intended for the
-- {{about}} and {{redirect}} templates and their variants.
--------------------------------------------------------------------------------

--default options table used across the forSee family of functions
local forSeeDefaultOptions = {
andKeyword = 'و',
title = mw.title.getCurrentTitle().text,
otherText = 'دیگر کاربردها',
forSeeForm = 'برای %s، %s را مشاهده کنید.'
}

--Collapses duplicate punctuation
function punctuationCollapse (text)
local replacements = {
["%.%.$"] = ".",
["%?%.$"] = "؟",
["%!%.$"] = "!",
["%.%]%]%.$"] = ".]]",
["%?%]%]%.$"] = "؟]]",
["%!%]%]%.$"] = "!]]"
}
for k, v in pairs(replacements) do text = string.gsub(text, k, v) end
return text
end

-- Structures arguments into a table for stringification, & options
function p.forSeeArgsToTable (args, from, options)
-- Type-checks and defaults
checkType("forSeeArgsToTable", 1, args, 'table')
checkType("forSeeArgsToTable", 2, from, 'number', true)
from = from or 1
checkType("forSeeArgsToTable", 3, options, 'table', true)
options = options or {}
for k, v in pairs(forSeeDefaultOptions) do
if options[k] == nil then options[k] = v end
end
-- maxArg's gotten manually because getArgs() and table.maxn aren't friends
local maxArg = 0
for k, v in pairs(args) do
if type(k) == 'number' and k > maxArg then maxArg = k end
end
-- Structure the data out from the parameter list:
-- * forTable is the wrapper table, with forRow rows
-- * Rows are tables of a "use" string & a "pages" table of pagename strings
-- * Blanks are left empty for defaulting elsewhere, but can terminate list
local forTable = {}
local i = from
local terminated = false
-- Loop to generate rows
repeat
-- New empty row
local forRow = {}
-- On blank use, assume list's ended & break at end of this loop
forRow.use = args[i]
if not args[i] then terminated = true end
-- New empty list of pages
forRow.pages = {}
-- Insert first pages item if present
table.insert(forRow.pages, args[i + 1])
-- If the param after next is "and", do inner loop to collect params
-- until the "and"'s stop. Blanks are ignored: "1|and||and|3" → {1, 3}
while args[i + 2] == options.andKeyword do
if args[i + 3] then
table.insert(forRow.pages, args[i + 3])
end
-- Increment to next "and"
i = i + 2
end
-- Increment to next use
i = i + 2
-- Append the row
table.insert(forTable, forRow)
until terminated or i > maxArg

return forTable
end

-- Stringifies a table as formatted by forSeeArgsToTable
function p.forSeeTableToString (forSeeTable, options)
-- Type-checks and defaults
checkType("forSeeTableToString", 1, forSeeTable, "table")
checkType("forSeeTableToString", 2, options, "table", true)
options = options or {}
for k, v in pairs(forSeeDefaultOptions) do
if options[k] == nil then options[k] = v end
end
-- Stringify each for-see item into a list
local strList = {}
for k, v in pairs(forSeeTable) do
local useStr = v.use or options.otherText
local pagesStr = p.andList(v.pages, true) or
mHatnote._formatLink(mHatnote.disambiguate(options.title))
local forSeeStr = string.format(options.forSeeForm, useStr, pagesStr)
forSeeStr = punctuationCollapse(forSeeStr)
table.insert(strList, forSeeStr)
end
-- Return the concatenated list
return table.concat(strList, ' ')
end

-- Produces a "For X, see [[Y]]" string from arguments. Expects index gaps
-- but not blank/whitespace values. Ignores named args and args < "from".
function p._forSee (args, from, options)
local forSeeTable = p.forSeeArgsToTable(args, from, options)
return p.forSeeTableToString(forSeeTable, options)
end

-- As _forSee, but uses the frame.
function p.forSee (frame, from, options)
mArguments = require('Module:Arguments')
return p._forSee(mArguments.getArgs(frame), from, options)
end

return p