模組:重庆轨道交通车站

添加链接
维基百科，自由的百科全书
文档图示 模块文档[创建]
---@type fun(frame: frame, options: { trim: boolean?, removeBlanks: boolean?, valueFunc: (fun(key: any, value: any): any)?, frameOnly: boolean?, parentOnly: boolean?, parentFirst: boolean?, wrappers: string[]?, readOnly: boolean?, noOverwrite: boolean? }?): { [string]: string }
local getArgs = require('Module:Arguments').getArgs

local adj = require('Module:Adjacent stations')

local p = {}

local operational = {
	'0', '1', '2', '3', '4', '5', '江跳', '6', '9', '10', '18'
}

local construction = {
	'7', '15', '17', '24', '27', '璧铜', --'永川'
}

local projected = {
	'8', '12', '21'
}

local branches = {
	['3'] = { '空港' },
	['6'] = { '国博' },
}

local aliases = {
	['3a'] = '3',
	['6i'] = '6',
}

local bounds = {
	['5'] = { '江跳' },
	['江跳'] = { '5' },
}

---@param frame frame
---@param l string
---@return string
local function getLineStyle(frame, l)
	return 'border-right:solid 5px #' .. adj._color({ 'CRT', l }, frame) .. ';'
end

---@param frame frame
---@param l string
---@return string
local function getLineTitle(frame, l)
	return adj._line({ 'CRT', l }, frame)
end

---@param l string
---@return string
local function getLineName(l)
	if l == '0' then
		return '环线'
	elseif tonumber(l) then
		return l .. '号线'
	else
		return l .. '线'
	end
end

---@param l string
---@return string
local function getLineFullName(l)
	if l == '江跳' then
		return '重庆市郊铁路' .. getLineName(l)
	else
		return '重庆轨道交通' .. getLineName(l)
	end
end

---@param frame frame
---@param l string
---@return string
local function getLineList(frame, l)
	if branches[l] then
		local child_args = {
			'child',
			groupstyle = 'color:#3a3a3a; background:#ececec; width:4em; text-align:center;',
			liststyle  = 'width:auto;',
			list0      = frame:expandTemplate { title = '重庆轨道交通车站/' .. getLineName(l) }
		}
		for i, b in ipairs(branches[l]) do
			local branchName = getLineName(b)
			child_args['group' .. i] = branchName
			child_args['list' .. i] = frame:expandTemplate { title = '重庆轨道交通车站/' .. branchName }
		end
		return frame:expandTemplate { title = 'Navbox', args = child_args }
	else
		return frame:expandTemplate { title = '重庆轨道交通车站/' .. getLineName(l) }
	end
end

---@param frame frame
---@return string
function p.navbox(frame)
	-- Make map
	---@type { [string]: boolean }
	local operational_map  = {}
	---@type { [string]: boolean }
	local construction_map = {}
	---@type { [string]: boolean }
	local projected_map    = {}

	for _, l in ipairs(operational) do
		operational_map[l] = false
	end
	for _, l in ipairs(construction) do
		construction_map[l] = false
	end
	for _, l in ipairs(projected) do
		projected_map[l] = false
	end

	-- Scan args
	local args = getArgs(frame)
	local num_int = 0
	local num_arg = 0
	local single_line = ''
	local cats = {}

	if args.construction or args.projected then
		-- do nothing
	else
		for a, l in pairs(aliases) do
			if args[a] then
				args[a] = nil
				args[l] = '1'
			end
		end
		for l, _ in pairs(operational_map) do
			if args[l] then
				operational_map[l] = true
				num_int = num_int + 1
				num_arg = num_arg + 1
				single_line = l
				if not args.nocat then
					table.insert(cats, '[[Category:' .. getLineFullName(l) .. '车站]]')
				end
				if bounds[l] then
					for _, b in ipairs(bounds[l]) do
						operational_map[b] = true
					end
				end
			end
		end
		for l, _ in pairs(construction_map) do
			if args[l] then
				construction_map[l] = true
				num_arg = num_arg + 1
				single_line = l
				if not args.nocat then
					table.insert(cats, '[[Category:' .. getLineFullName(l) .. '车站]]')
				end
			end
		end
		for l, _ in pairs(projected_map) do
			if args[l] then
				projected_map[l] = true
				num_arg = num_arg + 1
				single_line = l
				if not args.nocat then
					table.insert(cats, '[[Category:' .. getLineFullName(l) .. '车站]]')
				end
			end
		end
		if num_arg == 0 then
			for l, _ in pairs(operational_map) do
				operational_map[l] = true
			end
			for l, _ in pairs(construction_map) do
				construction_map[l] = true
			end
			for l, _ in pairs(projected_map) do
				projected_map[l] = true
			end
		end
	end

	-- Build navbox
	local navbox_args = {
		name       = '重庆轨道交通车站',
		state      = 'autocollapse',
		bodystyle  = 'width:100%; vertical-align:middle;',
		titlestyle = 'background:#00843d; color:white;',
		groupstyle = 'background:#ececec; width:4em; text-align:center;',
		liststyle  = 'width:auto;'
	}

	if args.construction or args.projected then
		if args.construction then
			navbox_args.title =
			'[[重庆轨道交通|<span style="color:white">重庆轨道交通</span>]]在建线路[[重庆轨道交通车站列表|<span style="color:white">车站</span>]]'
			for i, l in ipairs(construction) do
				navbox_args['group' .. i .. 'style'] = getLineStyle(frame, l)
				navbox_args['group' .. i] = getLineTitle(frame, l)
				navbox_args['list' .. i] = getLineList(frame, l)
			end
		else
			navbox_args.title =
			'[[重庆轨道交通|<span style="color:white">重庆轨道交通</span>]]规划线路[[重庆轨道交通车站列表|<span style="color:white">车站</span>]]'
			for i, l in ipairs(projected) do
				navbox_args['group' .. i .. 'style'] = getLineStyle(frame, l)
				navbox_args['group' .. i] = getLineTitle(frame, l)
				navbox_args['list' .. i] = getLineList(frame, l)
			end
		end
	else
		if num_arg > 0 then
			navbox_args.state = 'expanded'
			if num_int > 1 and not args.nocat then
				table.insert(cats, '[[Category:重庆轨道交通换乘车站|' .. num_int .. ']]')
			end
		end
		if num_arg == 1 then
			local line_name = getLineFullName(single_line)
			navbox_args.name = '重庆轨道交通车站/' .. getLineName(single_line)
			navbox_args.title = '[[' .. line_name .. '|<span style="color:white">' .. line_name .. '</span>]]车站'
			navbox_args.titlestyle = 'background:#' .. adj._color({ 'CRT', single_line }, frame) .. '; color:white'
			navbox_args.list0 = getLineList(frame, single_line)
		else
			navbox_args.title =
			'[[重庆轨道交通|<span style="color:white">重庆轨道交通</span>]][[重庆轨道交通车站列表|<span style="color:white">车站</span>]]'
			local i = 1
			for _, l in ipairs(operational) do
				if operational_map[l] then
					navbox_args['group' .. i .. 'style'] = getLineStyle(frame, l)
					navbox_args['group' .. i] = getLineTitle(frame, l)
					navbox_args['list' .. i] = getLineList(frame, l)
					i = i + 1
				end
			end
			local construction_args = {
				'child',
				title      = '在建线路',
				titlestyle = 'background:#ececec; color:#6b6b6b;',
				groupstyle = 'background:#ececec; width:4em; text-align:center;',
				liststyle  = 'width:auto;'
			}
			local j = 1
			for _, l in ipairs(construction) do
				if construction_map[l] then
					construction_args['group' .. j .. 'style'] = getLineStyle(frame, l)
					construction_args['group' .. j] = getLineTitle(frame, l)
					construction_args['list' .. j] = getLineList(frame, l)
					j = j + 1
				end
			end
			if j > 1 then
				if num_arg > 0 then
					construction_args.state = 'expanded'
				end
				navbox_args['list' .. i] = frame:expandTemplate { title = 'Navbox', args = construction_args }
				i = i + 1
			end
			local projected_args = {
				'child',
				title      = '规划线路',
				titlestyle = 'background:#ececec; color:#6b6b6b;',
				groupstyle = 'background:#ececec; width:4em; text-align:center;',
				liststyle  = 'width:auto;'
			}
			local k = 1
			for _, l in ipairs(projected) do
				if projected_map[l] then
					projected_args['group' .. k .. 'style'] = getLineStyle(frame, l)
					projected_args['group' .. k] = getLineTitle(frame, l)
					projected_args['list' .. k] = getLineList(frame, l)
					k = k + 1
				end
			end
			if k > 1 then
				if num_arg > 0 then
					projected_args.state = 'expanded'
				end
				navbox_args['list' .. i] = frame:expandTemplate { title = 'Navbox', args = projected_args }
				i = i + 1
			end
		end
	end

	return frame:expandTemplate { title = 'Navbox', args = navbox_args } .. table.concat(cats)
end

return p
取自“https://zh.100ke.info/w/index.php?title=Module:重庆轨道交通车站&oldid=80282019”