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

Wikinoor.ir: ۱ نسخه واردشده

2023-01-03T19:44:12Z

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

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

fa>Izno: add hlist support, move related strings to cfg, add support for finding classes in any class parameter

2022-12-29T18:13:14Z

add hlist support, move related strings to cfg, add support for finding classes in any class parameter

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

	~~-- we will want this later when we want to add tstyles for hlist/plainlist~~
	local function has_navbar()		local function has_navbar()
	return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off		return args[cfg.arg.navbar] ~= cfg.keyword.navbar_off
خط ۲۶۲:		خط ۲۶۱:
	end		end

	~~-- uses this now to make the needHlistCategory correct~~
	~~-- to use later for when we add list styles via navbox~~
	local function has_list_class(htmlclass)		local function has_list_class(htmlclass)
	~~local class_args = { -- rough order of probability of use~~
	~~cfg.arg.bodyclass, cfg.arg.listclass, cfg.arg.aboveclass,~~
	~~cfg.arg.belowclass, cfg.arg.titleclass, cfg.arg.navboxclass,~~
	~~cfg.arg.groupclass, cfg.arg.imageclass~~
	}
	local patterns = {		local patterns = {
	'^' .. htmlclass .. '$',		'^' .. htmlclass .. '$',
خط ۲۷۷:		خط ۲۶۹:
	}		}

	for _~~, arg~~ in ~~ipairs~~(~~class_args~~) do		for arg, _ in pairs(args) do
	for _, pattern in ipairs(patterns) do		if type(arg) == 'string' and mw.ustring.find(arg, cfg.pattern.class) then
	if mw.ustring.find(args[arg] or '', pattern) then		for _, pattern in ipairs(patterns) do
	return true		if mw.ustring.find(args[arg] or '', pattern) then
			return true
			end
	end		end
	end		end
	end		end
	return false		return false
			end

			-- there are a lot of list classes in the wild, so we add their TemplateStyles
			local function add_list_styles()
			local frame = mw.getCurrentFrame()
			local function add_list_templatestyles(htmlclass, templatestyles)
			if has_list_class(htmlclass) then
			return frame:extensionTag{
			name = 'templatestyles', args = { src = templatestyles }
			}
			else
			return ''
			end
			end

			local hlist_styles = add_list_templatestyles('hlist', cfg.hlist_templatestyles)
			local plainlist_styles = add_list_templatestyles('plainlist', cfg.plainlist_templatestyles)

			-- a second workaround for [[phab:T303378]]
			-- when that issue is fixed, we can actually use has_navbar not to emit the
			-- tag here if we want
			if has_navbar() and hlist_styles == '' then
			hlist_styles = frame:extensionTag{
			name = 'templatestyles', args = { src = cfg.hlist_templatestyles }
			}
			end

			-- hlist -> plainlist is best-effort to preserve old Common.css ordering.
			-- this ordering is not a guarantee because most navboxes will emit only
			-- one of these classes [hlist_note]
			return hlist_styles .. plainlist_styles
	end		end

خط ۳۸۷:		خط ۴۱۲:
	end		end

	local function add_navbox_styles()		local function add_navbox_styles(hiding_templatestyles)
	local frame = mw.getCurrentFrame()		local frame = mw.getCurrentFrame()
	-- This is a lambda so that it doesn't need the frame as a parameter		-- This is a lambda so that it doesn't need the frame as a parameter
خط ۴۰۵:		خط ۴۳۰:
	local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])		local child_templatestyles = add_user_styles(args[cfg.arg.child_templatestyles])

	-- The 'navbox-styles' div exists ~~for two reasons:~~		-- The 'navbox-styles' div exists to wrap the styles to work around T200206
	~~-- 1. To~~ wrap the styles to work around T200206 more elegantly. Instead		-- more elegantly. Instead of combinatorial rules, this ends up being linear
	-- of combinatorial rules, this ends up being linear number of CSS rules.		-- number of CSS rules.
	~~-- 2. To allow MobileFrontend to rip the styles out with 'nomobile' such that~~
	~~-- they are not dumped into the mobile view~~.
	return mw.html.create('div')		return mw.html.create('div')
	:addClass(cfg.class.navbox_styles)		:addClass(cfg.class.navbox_styles)
	:~~addClass~~(~~cfg~~.~~class~~.~~nomobile)~~		:wikitext(
	~~:wikitext(~~base_templatestyles .. templatestyles .. child_templatestyles)		add_list_styles() .. -- see [hlist_note] applied to 'before base_templatestyles'
			base_templatestyles ..
			templatestyles ..
			child_templatestyles ..
			table.concat(hiding_templatestyles)
			)
	:done()		:done()
			end

			-- work around [[phab:T303378]]
			-- for each arg: find all the templatestyles strip markers, insert them into a
			-- table. then remove all templatestyles markers from the arg
			local function move_hiding_templatestyles(args)
			local gfind = string.gfind
			local gsub = string.gsub
			local templatestyles_markers = {}
			local strip_marker_pattern = '(\127[^\127]UNIQ%-%-templatestyles%-%x+%-QINU[^\127]\127)'
			for k, arg in pairs(args) do
			for marker in gfind(arg, strip_marker_pattern) do
			table.insert(templatestyles_markers, marker)
			end
			args[k] = gsub(arg, strip_marker_pattern, '')
			end
			return templatestyles_markers
	end		end

	function p._navbox(navboxArgs)		function p._navbox(navboxArgs)
	args = navboxArgs		args = navboxArgs
			local hiding_templatestyles = move_hiding_templatestyles(args)
	local listnums = {}		local listnums = {}

خط ۴۴۱:		خط ۴۸۷:

	if border == cfg.keyword.border_none then		if border == cfg.keyword.border_none then
	res:node(add_navbox_styles())		res:node(add_navbox_styles(hiding_templatestyles))
	local nav = res:tag('div')		local nav = res:tag('div')
	:attr('role', 'navigation')		:attr('role', 'navigation')
خط ۴۶۷:		خط ۵۱۳:
	:wikitext('<div>')		:wikitext('<div>')
	else		else
	res:node(add_navbox_styles())		res:node(add_navbox_styles(hiding_templatestyles))
	local nav = res:tag('div')		local nav = res:tag('div')
	:attr('role', 'navigation')		:attr('role', 'navigation')

Wikinoor.ir: ۱ نسخه واردشده

2022-11-02T07:40:58Z

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

→ نسخهٔ قدیمی‌تر

نسخهٔ ‏۲ نوامبر ۲۰۲۲، ساعت ۱۱:۱۰

fa>Wikinoor.ir: remove titlegroup per templatestyles section on talk page

2022-01-07T21:39:23Z

remove titlegroup per templatestyles section on talk page

نمایش تغییرات

Hbaghizadeh@noornet.net: ۱ نسخه واردشده

2016-09-29T06:33:24Z

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

صفحهٔ تازه

--
-- This module implements {{Navbox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar
local getArgs -- lazily initialized

local args
local tableRowAdded = false
local border
local listnums = {}

local function trim(s)
return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
end

local function addNewline(s)
if s:match('^[*:;#]') or s:match('^{|') then
return '\n' .. s ..'\n'
else
return s
end
end

local function addTableRow(tbl)
-- If any other rows have already been added, then we add a 2px gutter row.
if tableRowAdded then
tbl
:tag('tr')
:css('height', '2px')
:tag('td')
:attr('colspan',2)
end

tableRowAdded = true

return tbl:tag('tr')
end

local function renderNavBar(titleCell)
-- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
-- or right to keep the title centered.
local spacerSide = nil

if args.navbar == 'off' then
-- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
-- also no show/hide link, then we need a spacer on the right to achieve the left shift.
if args.state == 'plain' then spacerSide = 'left' end
elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle() == 'الگو:Navbox' and (border == 'subgroup' or border == 'child' or border == 'none')) then
-- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
if args.state ~= 'plain' then spacerSide = 'right' end
else
-- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right
-- to balance out the width of the navbar.
if args.state == 'plain' then spacerSide = 'left' end

titleCell:wikitext(navbar{
args.name,
mini = 1,
fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') .. ';background:none transparent;border:none;'
})
end

-- Render the spacer div.
if spacerSide then
titleCell
:tag('span')
:css('float', spacerSide)
:css('width', '6em')
:wikitext(' ')
end
end

--
-- Title row
--
local function renderTitleRow(tbl)
if not args.title then return end

local titleRow = addTableRow(tbl)

if args.titlegroup then
titleRow
:tag('th')
:attr('scope', 'row')
:addClass('navbox-group')
:addClass(args.titlegroupclass)
:cssText(args.basestyle)
:cssText(args.groupstyle)
:cssText(args.titlegroupstyle)
:wikitext(args.titlegroup)
end

local titleCell = titleRow:tag('th'):attr('scope', 'col')

if args.titlegroup then
titleCell
:css('border-right', '2px solid #fdfdfd')
:css('width', '100%')
end

local titleColspan = 2
if args.imageright then titleColspan = titleColspan + 1 end
if args.image then titleColspan = titleColspan + 1 end
if args.titlegroup then titleColspan = titleColspan - 1 end

titleCell
:cssText(args.basestyle)
:cssText(args.titlestyle)
:addClass('navbox-title')
:attr('colspan', titleColspan)

renderNavBar(titleCell)

titleCell
:tag('div')
:addClass(args.titleclass)
:css('font-size', '110%')
:wikitext(addNewline(args.title))
end

--
-- Above/Below rows
--

local function getAboveBelowColspan()
local ret = 2
if args.imageright then ret = ret + 1 end
if args.image then ret = ret + 1 end
return ret
end

local function renderAboveRow(tbl)
if not args.above then return end

addTableRow(tbl)
:tag('td')
:addClass('navbox-abovebelow')
:addClass(args.aboveclass)
:cssText(args.basestyle)
:cssText(args.abovestyle)
:attr('colspan', getAboveBelowColspan())
:tag('div')
:wikitext(addNewline(args.above))
end

local function renderBelowRow(tbl)
if not args.below then return end

addTableRow(tbl)
:tag('td')
:addClass('navbox-abovebelow')
:addClass(args.belowclass)
:cssText(args.basestyle)
:cssText(args.belowstyle)
:attr('colspan', getAboveBelowColspan())
:tag('div')
:wikitext(addNewline(args.below))
end

--
-- List rows
--
local function renderListRow(tbl, listnum)
local row = addTableRow(tbl)

if listnum == 1 and args.imageright then
row
:tag('td')
:addClass('navbox-image')
:addClass(args.imageclass)
:css('width', '0%')
:css('padding', '0px 2px 0px 0px')
:cssText(args.imagerightstyle)
:attr('rowspan', 2 * #listnums - 1)
:tag('div')
:wikitext(addNewline(args.imageright))
end

if args['group' .. listnum] then
local groupCell = row:tag('th')

groupCell
:attr('scope', 'row')
:addClass('navbox-group')
:addClass(args.groupclass)
:cssText(args.basestyle)

if args.groupwidth then
groupCell:css('width', args.groupwidth)
end

groupCell
:cssText(args.groupstyle)
:cssText(args['group' .. listnum .. 'style'])
:wikitext(args['group' .. listnum])
end

local listCell = row:tag('td')

if args['group' .. listnum] then
listCell
:css('text-align', 'right')
:css('border-right-width', '2px')
:css('border-right-style', 'solid')
else
listCell:attr('colspan', 2)
end

if not args.groupwidth then
listCell:css('width', '100%')
end

local isOdd = (listnum % 2) == 1
local rowstyle = args.evenstyle
if isOdd then rowstyle = args.oddstyle end

local evenOdd
if args.evenodd == 'swap' then
if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
else
if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
end

listCell
:css('padding', '0px')
:cssText(args.liststyle)
:cssText(rowstyle)
:cssText(args['list' .. listnum .. 'style'])
:addClass('navbox-list')
:addClass('navbox-' .. evenOdd)
:addClass(args.listclass)
:tag('div')
:css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
:wikitext(addNewline(args['list' .. listnum]))

if listnum == 1 and args.image then
row
:tag('td')
:addClass('navbox-image')
:addClass(args.imageclass)
:css('width', '0%')
:css('padding', '0px 0px 0px 2px')
:cssText(args.imagestyle)
:attr('rowspan', 2 * #listnums - 1)
:tag('div')
:wikitext(addNewline(args.image))
end
end

--
-- Tracking categories
--

local function needsHorizontalLists()
if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end

local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
for _, cls in ipairs(listClasses) do
if args.listclass == cls or args.bodyclass == cls then
return false
end
end

return true
end

local function hasBackgroundColors()
return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
end

local function getTrackingCategories()
local cats = {}
if needsHorizontalLists() then table.insert(cats, 'ناوباکس‌های بدون فهرست افقی') end
if hasBackgroundColors() then table.insert(cats, 'جعبه‌های ناوبری با استفاده از رنگ‌های پس‌زمینه') end
return cats
end

local function renderTrackingCategories(builder)
local title = mw.title.getCurrentTitle()
if title.namespace ~= 10 then return end -- not in template space
local subpage = title.subpageText
if subpage == 'توضیحات' or subpage == 'تمرین' or subpage == 'آزمایشی' then return end

for _, cat in ipairs(getTrackingCategories()) do
builder:wikitext('[[رده:' .. cat .. ']]')
end
end

--
-- Main navbox tables
--
local function renderMainTable()
local tbl = mw.html.create('table')
:addClass('nowraplinks')
:addClass(args.bodyclass)

if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
tbl
:addClass('collapsible')
:addClass(args.state or 'autocollapse')
end

tbl:css('border-spacing', 0)
if border == 'subgroup' or border == 'child' or border == 'none' then
tbl
:addClass('navbox-subgroup')
:cssText(args.bodystyle)
:cssText(args.style)
else -- regular navobx - bodystyle and style will be applied to the wrapper table
tbl
:addClass('navbox-inner')
:css('background', 'transparent')
:css('color', 'inherit')
end
tbl:cssText(args.innerstyle)

renderTitleRow(tbl)
renderAboveRow(tbl)
for _, listnum in ipairs(listnums) do
renderListRow(tbl, listnum)
end
renderBelowRow(tbl)

return tbl
end

function p._navbox(navboxArgs)
args = navboxArgs

for k, _ in pairs(args) do
local listnum = ('' .. k):match('^list(%d+)$')
if listnum then table.insert(listnums, tonumber(listnum)) end
end
table.sort(listnums)

border = trim(args.border or args[1] or '')

-- render the main body of the navbox
local tbl = renderMainTable()

-- render the appropriate wrapper around the navbox, depending on the border param
local res = mw.html.create()
if border == 'none' then
res:node(tbl)
elseif border == 'subgroup' or border == 'child' then
-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
-- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
-- padding being applied, and at the end add a <div> to balance out the parent's </div>
res
:wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
:node(tbl)
:wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
else
res
:tag('table')
:addClass('navbox')
:css('border-spacing', 0)
:cssText(args.bodystyle)
:cssText(args.style)
:tag('tr')
:tag('td')
:css('padding', '2px')
:node(tbl)
end

renderTrackingCategories(res)

return tostring(res)
end

function p.navbox(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
args = getArgs(frame, {wrappers = 'الگو:Navbox'})

-- Read the arguments in the order they'll be output in, to make references number in the right order.
local _
_ = args.title
_ = args.above
for i = 1, 20 do
_ = args["group" .. tostring(i)]
_ = args["list" .. tostring(i)]
end
_ = args.below

return p._navbox(args)
end

return p