“模块:Navbar”的版本间的差异

来自「荏苒之境」
（创建页面，内容为“local p = {} local getArgs local ul function p.addItem (mini, full, link, descrip, args, url) local l if url then l = {'[', '', ']'} else l = {'[[', '|', ']…”）
 
第2行： 第2行：


local getArgs
local getArgs
local ul
function p.addItem (mini, full, link, descrip, args, url)
local l
if url then
l = {'[', '', ']'}
else
l = {'[[', '|', ']]'}
end
ul:tag('li')
:addClass('nv-'..full)
:wikitext(l[1] .. link .. l[2])
:tag(args.mini and 'abbr' or 'span')
:attr('title', descrip..' this template')
:cssText(args.fontstyle)
:wikitext(args.mini and mini or full)
:done()
:wikitext(l[3])
end
function p.brackets (position, c, args, div)
if args.brackets then
div
:tag('span')
:css('margin-'..position, '-0.125em')
:cssText(args.fontstyle)
:wikitext(c)
end
end


function p._navbar(args)
function p._navbar(args)
local show = {true, true, true, false, false, false}
local titleArg = 1
local titleArg = 1
 
if args.collapsible then
if args.collapsible then
titleArg = 2
titleArg = 2
if not args.plain then args.mini = 1 end
if not args.plain then
args.mini = 1
end
if args.fontcolor then
if args.fontcolor then
args.fontstyle = 'color:' .. args.fontcolor .. ';'
args.fontstyle = 'color:' .. args.fontcolor .. ';'
第44行： 第16行：
args.style = 'float:left; text-align:left'
args.style = 'float:left; text-align:left'
end
end
 
if args.template then
titleArg = 'template'
show = {true, false, false, false, false, false}
local index = {t = 2, d = 2, e = 3, h = 4, m = 5, w = 6, talk = 2, edit = 3, hist = 4, move = 5, watch = 6}
for k,v in ipairs(require ('Module:TableTools').compressSparseArray(args)) do
local num = index[v]
if num then show[num] = true end
end
end
if args.noedit then show[3] = false end
local titleText = args[titleArg] or (':' .. mw.getCurrentFrame():getParent():getTitle())
local titleText = args[titleArg] or (':' .. mw.getCurrentFrame():getParent():getTitle())
local title = mw.title.new(mw.text.trim(titleText), 'Template')
local title = mw.title.new(mw.text.trim(titleText), 'Template');
 
if not title then
if not title then
error('Invalid title ' .. titleText)
error('页面不存在 ' .. titleText)
end
end
local talkpage = title.talkPageTitle and title.talkPageTitle.fullText or ''
 
local talkpage = title.talkPageTitle and title.talkPageTitle.fullText or '';
 
local div = mw.html.create():tag('div')
local div = mw.html.create():tag('div')
div
div
第78行： 第40行：
:css('word-spacing', 0)
:css('word-spacing', 0)
:cssText(args.fontstyle)
:cssText(args.fontstyle)
:wikitext(args.text or 'This box:')
:wikitext(args.text or '本模板：')
:wikitext(' ')
:wikitext(' ')
end
end
 
p.brackets('right', '[ ', args, div)
if args.brackets then
div
ul = div:tag('ul')
:tag('span')
if show[1] then p.addItem('v', 'view', title.fullText, 'View', args) end
:css('margin-right', '-0.125em')
if show[2] then p.addItem('t', 'talk', talkpage, 'Discuss', args) end
:cssText(args.fontstyle)
if show[3] then p.addItem('e', 'edit', title:fullUrl('action=edit'), 'Edit', args, true) end
:wikitext('[ ')
if show[4] then p.addItem('h', 'hist', title:fullUrl('action=history'), 'History of', args, true) end
end
if show[5] then
 
local move = mw.title.new ('Special:Movepage')
local ul = div:tag('ul');
p.addItem('m', 'move', move:fullUrl('target='..title.fullText), 'Move', args, true) end
 
if show[6] then p.addItem('w', 'watch', title:fullUrl('action=watch'), 'Watch', args, true) end
ul
:tag('li')
p.brackets('left', ' ]', args, div)
:addClass('nv-view')
:wikitext('[[' .. title.fullText .. '|')
:tag(args.mini and 'abbr' or 'span')
:attr('title', '-{zh-hans:查看;zh-hant:檢視;}-该模板')
:cssText(args.fontstyle)
:wikitext(args.mini and '-{zh-hans:查;zh-hant:閱;}-' or '-{zh-hans:查看;zh-hant:檢視;}-')
:done()
:wikitext(']]')
:done()
:tag('li')
:addClass('nv-talk')
:wikitext('[[' .. talkpage .. '|')
:tag(args.mini and 'abbr' or 'span')
:attr('title', '讨论该模板')
:cssText(args.fontstyle)
:wikitext(args.mini and '论' or '讨论')
:done()
:wikitext(']]');
 
if not args.noedit then
ul
:tag('li')
:addClass('nv-edit')
:wikitext('[' .. title:fullUrl('action=edit') .. ' ')
:tag(args.mini and 'abbr' or 'span')
:attr('title', '编辑该模板')
:cssText(args.fontstyle)
:wikitext(args.mini and '编' or '编辑')
:done()
:wikitext(']');
end
 
if args.brackets then
div
:tag('span')
:css('margin-left', '-0.125em')
:cssText(args.fontstyle)
:wikitext(' ]')
end
 
if args.collapsible then
if args.collapsible then
div
div
第106行： 第106行：
end
end


-- DELIBERATE DELTA FROM EN.WP THAT INTEGRATES HLIST TSTYLES
return tostring(div:done())
-- CARE WHEN SYNCING
local frame = mw.getCurrentFrame()
return frame:extensionTag{
name = 'templatestyles', args = { src = 'Flatlist/styles.css' }
} .. frame:extensionTag{
name = 'templatestyles', args = { src = 'Module:Navbar/styles.css' }
} .. tostring(div:done())
end
end


2021年9月4日 (六) 13:08的版本

此模块的文档可以在模块:Navbar/doc创建 

local p = {}

local getArgs

function p._navbar(args)
	local titleArg = 1

	if args.collapsible then
		titleArg = 2
		if not args.plain then
			args.mini = 1
		end
		if args.fontcolor then
			args.fontstyle = 'color:' .. args.fontcolor .. ';'
		end
		args.style = 'float:left; text-align:left'
	end

	local titleText = args[titleArg] or (':' .. mw.getCurrentFrame():getParent():getTitle())
	local title = mw.title.new(mw.text.trim(titleText), 'Template');

	if not title then
		error('页面不存在 ' .. titleText)
	end

	local talkpage = title.talkPageTitle and title.talkPageTitle.fullText or '';

	local div = mw.html.create():tag('div')
	div
		:addClass('plainlinks')
		:addClass('hlist')
		:addClass('navbar')
		:cssText(args.style)

	if args.mini then div:addClass('mini') end

	if not (args.mini or args.plain) then
		div
			:tag('span')
				:css('word-spacing', 0)
				:cssText(args.fontstyle)
				:wikitext(args.text or '本模板：')
				:wikitext(' ')
	end

	if args.brackets then
		div
			:tag('span')
				:css('margin-right', '-0.125em')
				:cssText(args.fontstyle)
				:wikitext('[ ')
	end

	local ul = div:tag('ul');

	ul
		:tag('li')
			:addClass('nv-view')
			:wikitext('[[' .. title.fullText .. '|')
			:tag(args.mini and 'abbr' or 'span')
				:attr('title', '-{zh-hans:查看;zh-hant:檢視;}-该模板')
				:cssText(args.fontstyle)
				:wikitext(args.mini and '-{zh-hans:查;zh-hant:閱;}-' or '-{zh-hans:查看;zh-hant:檢視;}-')
				:done()
			:wikitext(']]')
			:done()
		:tag('li')
			:addClass('nv-talk')
			:wikitext('[[' .. talkpage .. '|')
			:tag(args.mini and 'abbr' or 'span')
				:attr('title', '讨论该模板')
				:cssText(args.fontstyle)
				:wikitext(args.mini and '论' or '讨论')
				:done()
			:wikitext(']]');

	if not args.noedit then
		ul
			:tag('li')
				:addClass('nv-edit')
				:wikitext('[' .. title:fullUrl('action=edit') .. ' ')
				:tag(args.mini and 'abbr' or 'span')
					:attr('title', '编辑该模板')
					:cssText(args.fontstyle)
					:wikitext(args.mini and '编' or '编辑')
					:done()
				:wikitext(']');
	end

	if args.brackets then
		div
			:tag('span')
				:css('margin-left', '-0.125em')
				:cssText(args.fontstyle)
				:wikitext(' ]')
	end

	if args.collapsible then
		div
			:done()
		:tag('div')
			:css('font-size', '114%')
			:css('margin', args.mini and '0 4em' or '0 7em')
			:cssText(args.fontstyle)
			:wikitext(args[1])
	end

	return tostring(div:done())
end

function p.navbar(frame)
	if not getArgs then
		getArgs = require('Module:Arguments').getArgs
	end
	return p._navbar(getArgs(frame))
end

return p
取自“https://wiki.gilatod.art/index.php?title=模块:Navbar&oldid=721”